Private Sub Command1_Click()
Select Case a
Case 1
Label4.Caption = "電腦出剪刀"
Case 2
Label4.Caption = "電腦出石頭"
Case 3
Label4.Caption = "電腦出布"
End Select
If a = 1 Then
Label3.Caption = "電腦出剪刀，妳出剪刀-->平手"
ElseIf a = 2 Then
Label3.Caption = "電腦出石頭，妳出剪刀-->電腦贏"
Else
Label3.Caption = "電腦出布，妳出剪刀--人腦贏>"
End If
End Sub

Private Sub Command2_Click()
Select Case a
Case 1
Label4.Caption = "電腦出剪刀"
Case 2
Label4.Caption = "電腦出石頭"
Case 3
Label4.Caption = "電腦出布"
End Select
If a = 1 Then
Label3.Caption = "電腦出剪刀，妳出石頭-->人腦贏"
ElseIf a = 2 Then
Label3.Caption = "電腦出石頭，妳出石頭-->平手"
Else
Label3.Caption = "電腦出布，妳出石頭--電腦贏>"
End If
End Sub

Private Sub Command3_Click()
Select Case a
Case 1
Label4.Caption = "電腦出剪刀"
Case 2
Label4.Caption = "電腦出石頭"
Case 3
Label4.Caption = "電腦出布"
End Select
If a = 1 Then
Label3.Caption = "電腦出剪刀，妳出布-->電腦贏"
ElseIf a = 2 Then
Label3.Caption = "電腦出石頭，妳出布-->人腦贏"
Else
Label3.Caption = "電腦出布，妳出布--平手>"
End If
End Sub

Private Sub Command4_Click()
Label3.Caption = ""
Label4.Caption = ""
Randomize
a = Int(3 - 1) * Rnd + 1
Label2.Caption = a
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Randomize
a = Int(3 - 1) * Rnd + 1
Label2.Caption = a
End Sub