Dim x, user As Integer
Private Sub Command1_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Randomize
x = Int(Rnd() * 3) + 1
If x = 1 Then
Image1.Visible = True
Else
If x = 2 Then
Image2.Visible = True
Else
Image3.Visible = True
End If
End If
user = 1
If user = 1 Then
If x = 1 Then
MsgBox "勝負未定再來一次~~"
End If
If x = 2 Then
MsgBox "打包行李逃命去!!"
End If
If x = 3 Then
MsgBox "乖乖被胖虎打吧你=))"
End If
End If
End Sub
Private Sub Command2_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Randomize
x = Int(Rnd() * 3) + 1
If x = 1 Then
Image1.Visible = True
Else
If x = 2 Then
Image2.Visible = True
Else
Image3.Visible = True
End If
End If
user = 2
If user = 2 Then
If x = 1 Then
MsgBox "乖乖被胖虎打吧你=))"
End If
If x = 2 Then
MsgBox "勝負未定再來一次~~"
End If
If x = 3 Then
MsgBox "打包行李逃命去!!"
End If
End If
End Sub
Private Sub Command3_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Randomize
x = Int(Rnd() * 3) + 1
If x = 1 Then
Image1.Visible = True
Else
If x = 2 Then
Image2.Visible = True
Else
Image3.Visible = True
End If
End If
user = 3
If user = 3 Then
If x = 1 Then
MsgBox "打包行李逃命去!!"
End If
If x = 2 Then
MsgBox "乖乖被胖虎打吧你=))"
End If
If x = 3 Then
MsgBox "勝負未定再來一次~~"
End If
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Image1_Click()
user = 1
End Sub
Private Sub Image2_Click()
user = 2
End Sub
Private Sub Image3_Click()
user = 3
End Sub
