'添加壹個按鈕Command1 修改為 比壹比
Dim b As Integer
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 3) + 1
Select Case b
Case 1
s = "石頭"
Case 2
s = "剪刀"
Case 3
s = "布"
End Select
Select Case a
Case 1
s1 = "石頭"
Case 2
s1 = "剪刀"
Case 3
s1 = "布"
End Select
Me.Cls
If a = b Then
Print "平了,妳選的是" & s & " 電腦選的是" & s1
Exit Sub
End If
If a - b = 1 Or a - b = -2 Then
Print "妳贏了,妳選的是" & s & " 電腦選的是" & s1
Else
Print "妳輸了,妳選的是" & s & " 電腦選的是" & s1
End If
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
App.Title = "石頭剪刀布"
Me.Caption = App.Title & App.Major & "." & App.Minor
b = 1
End Sub
Private Sub Option1_Click()
b = 1
End Sub
Private Sub Option2_Click()
b = 2
End Sub
Private Sub Option3_Click()
b = 3
End Sub