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 = "赢：" & Win & "场" & "平：" & Draw & "场" & "负：" & Own & "场"

同时我们统计赢，平，负的场数。

整个程序设计：

程序界面设计

程序源代码：

Private playerGuess As String

Private randGuess() As String

Private Win As Single

Private Own As Single

Private Draw As Single

Private Sub ClothCommand_Click()

    playerGuess = "Cloth"

    GuessTimer.Enabled = True

    TitleLabel.Caption = "玩家准备出''''布''''"

End Sub

Private Sub ForfexCommand_Click()

    playerGuess = "Forfex"

    GuessTimer.Enabled = True

    TitleLabel.Caption = "玩家准备出''''剪刀''''"

End Sub

Private Sub Form_Load()

    ReDim randGuess(3)

    randGuess(1) = "石头"

    randGuess(2) = "剪刀"

    randGuess(3) = "布"

    ResultLabel.Caption = "赢：" & Win & "场" & "平：" & Draw & "场" & "负：" & Own & "场"

    Dim sum As Single

    sum = 0

    For i = 1 To 12

上一页  [1] [2] [3] [4]  下一页