VB猜拳小游戏

Private Sub Command3_Click()
Label1.Caption = Label1.Caption & vbCrLf & "你出的是布！"
x = 2
End Sub

Private Sub Command1_Click()
Label1.Caption = Label1.Caption & vbCrLf & "你出的是剪刀！"
x = 0
End Sub

Private Sub Command2_Click()
Label1.Caption = Label1.Caption & vbCrLf & "你出的是石头！"
x = 1
End Sub

Dim x, win, draw, own As Integer                                                    (在通用部分声明)

Private Sub Command4_Click()
Dim out As Integer
out = Int(Rnd * 3)
Select Case out
Case 0
Label1.Caption = Label1.Caption & vbCrLf & "电脑出的是剪刀！"
Case 1
Label1.Caption = Label1.Caption & vbCrLf & "电脑出的是石头！"
Case 2
Label1.Caption = Label1.Caption & vbCrLf & "电脑出的是布！"
End Select
If (out < x And Abs(x - out) = 1) Or (x - out = -2) Then
Label1.Caption = Label1.Caption & vbCrLf & "你赢了电脑！"
win = win + 1
Else
If x = out Then
Label1.Caption = Label1.Caption & vbCrLf & "打平了！"
draw = draw + 1
Else
Label1.Caption = Label1.Caption & vbCrLf & "你输给了电脑！"
own = own + 1
End If
End If
If win >= 3 Then
msgl = MsgBox("恭喜，你赢了电脑，真棒！", 1, "下场对话框")
Else
If own >= 3 Then
msgl = MsgBox("真遗憾，你输给了电脑，再来一盘吧！", 1, "下场对话框")唯品会
End If
End If
label2.Caption = "赢" & win & "场" & vbCrLf & "平" & draw & "场" & vbCrLf & "输" & own & "场"

Private Sub Command5_Click()
Label1.Caption = ""
label2.Caption = ""
win = 0
own = 0
draw = 0
End Sub

End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()
win = 0
own = 0
draw = 0
End Sub

2014年1月日起上海企业退休职工增加养