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]  下一页