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月日起上海企业退休职工增加养