''''剪刀'''' 电脑赢" 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] 下一页 没有相关教程
|