火影疾风坛对酒攻略是大部分火影疾风坛玩家每天都会关注的，要想知道火影疾坛对酒怎么提高胜率就要先知道对酒机制，三奘搜集了一些关于火影疾风坛对酒数据，下面先来看看火影疾风坛对酒关于锤子剪子布的计算机程序

　　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不好的情况一直输要好的多哦。

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

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