怎么提高对酒胜率?_火影疾风坛对酒攻略_火影疾风坛对酒攻略

火影疾风坛对酒攻略，火影疾风坛怎么提高对酒胜率：

以下是关于锤子剪子布的计算机程序

Dim MyStr, YourVar, MyVar

Randomize

Do

MyStr = "输入代表锤子、剪刀、布的数字：" & vbCrLf & vbCrLf & _

"1 == 锤子" & vbCrLf & "2 == 剪刀" & vbCrLf & "3 == 布" & vbCrLf & "0 == 结束"

YourVar = InputBox(MyStr, "锤子、剪刀、布")

If YourVar = "1" Or YourVar = "2" Or YourVar = "3" Then

MyVar = Int((3 * Rnd) + 1)

MyStr = "你出的是："

Select Case YourVar

Case 1 MyStr = MyStr + "锤子"

Case 2 MyStr = MyStr + "剪刀"

Case 3 MyStr = MyStr + "布"

End Select

MyStr = MyStr & vbCrLf & "小李出的是："

Select Case MyVar

Case 1 MyStr = MyStr + "锤子"

Case 2 MyStr = MyStr + "剪刀"

Case 3 MyStr = MyStr + "布"

End Select

MyStr = MyStr & vbCrLf & vbCrLf

If MyVar - YourVar = 0 Then

MyStr = MyStr + "平手。"

ElseIf MyVar - YourVar = 1 Or MyVar - YourVar = -2 Then

MyStr = MyStr + "恭喜你！获得*魂。"

Else

MyStr = MyStr + "你输了。返还*银两！"

End If

MsgBox MyStr, 64, "锤子、剪刀、布"

End If

Loop Until YourVar = "0"

以上是源程序，仅供参考。知道了原理后，再来看。锤子、剪子、布，三选一，用概率学来说每个有33.33333····%的概率会被选到，电脑是死板的严格按照公式随机抽取锤子、剪子、布。那好吧，我们刚好能利用它的死板，来达到自己的目的。

大家都知道硬币有正反面，有人统计过硬币上抛后落下，正反面向上的概率，答案是抛得次数越多，正面朝上或反面朝上的概率越接近1/2，所以呢，锤子剪子布也是同样的道理，次数越多，概率也就越接近1/3，这是个恒久不变的定理。举例来说，第一次电脑出的是剪刀，第二次再出剪刀的概率是多少？相信大家心里有数了吧，出的概率肯定是有，但相对的来说，概率会降低。这就好办了，还剩下的两个，石头和布，你会选择出什么呢？应该出石头吗？电脑还有1/2的概率出布，1/3的概率出剪刀，出石头危险系数大过出布，所以这时我们应该出布，至少电脑再出布我们就会和它平局，而不会输，如果1/3概率出剪刀这种概率你碰到了，那就只能自认倒霉喽。

总结：就是电脑如果出了剪刀，下局你就应该出布，电脑如果出了布，下局你就应该出锤子，电脑如果出了锤子，下局你就出剪刀，这样胜算会比RP不好的情况一直输要好的多哦。

还有就是要统计电脑出锤子、剪子、布的次数，像买彩票一样，越不常出现的数字下次就越容易出现。统计出现越频繁的，相应的改变自己的出招策略。

最后，别一有钱就对酒，尽量攒多点，在夜深人静的时候一次性对酒。