sum = sum + i Next i MsgBox sum End Sub Private Sub GuessCommand_Click() Dim guess As String GuessTimer.Enabled = False guess = randGuess(Int(Rnd() * 3) + 1) RandLabel.Caption = guess If guess = "石头" Then If playerGuess = "Rock" Then TitleLabel.Caption = "玩家出''''石头'''' 电脑出''''石头'''' 双方平" Draw = Draw + 1 ElseIf playerGuess = "Forfex" Then TitleLabel.Caption = "玩家出''''布'''' 电脑出''''石头'''' 玩家赢" Win = Win + 1 Else ''''playerGuess="Cloth" TitleLabel.Caption = "玩家出''''剪刀'''' 电脑出''''石头'''' 电脑赢" Own = Own + 1 End If ElseIf guess = "剪刀" Then If playerGuess = "Rock" Then TitleLabel.Caption = "玩家出''''石头'''' 电脑出''''剪刀'''' 玩家赢" Win = Win + 1 ElseIf playerGuess = "Forfex" Then TitleLabel.Caption = "玩家出''''剪刀'''' 电脑出''''剪刀'''' 双方平" Draw = Draw + 1 Else ''''playerGuess="Cloth" TitleLabel.Caption = "玩家出''''布'''' 电脑出''''剪刀'''' 电脑赢" Own = Own + 1 End If Else ''''guess="布" If playerGuess = "Rock" Then TitleLabel.Caption = "玩家出''''石头'''' 电脑出''''布'''' 电脑赢" Own = Own + 1 ElseIf playerGuess = "Forfex" Then TitleLabel.Caption = "玩家出''''剪刀'''' 电脑出''''布'''' 玩家赢" Win = Win + 1 Else ''''playerGuess="Cloth" TitleLabel.Caption = "玩家出''''布'''' 电脑出''''布'''' 双方平" Draw = Draw + 1 End If End If ResultLabel.Caption = "上一页 [1] [2] [3] [4] 下一页 没有相关教程
|