火影疾风坛对酒攻略，火影疾风坛怎么提高对酒胜率：
以下是关于锤子剪子布的计算机程序
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不好的情况一直输要好的多哦。
还有就是要统计电脑出锤子、剪子、布的次数，像买彩票一样，越不常出现的数字下次就越容易出现。统计出现越频繁的，相应的改变自己的出招策略。
最后，别一有钱就对酒，尽量攒多点，在夜深人静的时候一次性对酒。
你还想知道：
欢迎关注我们
