• Home
 · 
• Miscellaneous
 · 
• Its a Rock Paper Scissors game

Its a Rock Paper Scissors game

Its a Rock Paper Scissors game

API Declarations


Dim paper As Integer
Dim scissors As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer



Rate Its a Rock Paper Scissors game

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

a = (Rnd * 3) + 1
If a = 1 Then
MsgBox ("Paper!")
MsgBox ("You have been defeated!")
b = b + 1
End If
If a = 2 Then
MsgBox ("Scissors!")
MsgBox ("You Win!")
c = c + 1
End If
If a = 3 Then
MsgBox ("Rock!")
MsgBox ("Tie!")
End If
Txt2 = b
Txt1 = c
If b = 5 Then
MsgBox "You have lost too many times, but there is always another day!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If
If c = 5 Then
MsgBox "You are a very good guesser, you have won!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If


End Sub

Private Sub Cmd2_Click()
a = (Rnd * 3) + 1
If a = 1 Then
MsgBox ("Paper!")
MsgBox ("Tie!")
End If
If a = 2 Then
MsgBox ("Scissors!")
MsgBox ("You have been defeated!")
b = b + 1
End If
If a = 3 Then
MsgBox ("Rock!")
MsgBox ("You Win!")
c = c + 1
End If
Txt2 = b
Txt1 = c
If b = 5 Then

MsgBox "You have lost too many times, but there is always another day!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If

If c = 5 Then
MsgBox "You are a very good guesser, you have won!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If
End Sub

Private Sub cmd3_Click()
a = (Rnd * 3) + 1
If a = 1 Then
MsgBox ("Paper!")
MsgBox ("You Win!")
c = c + 1
End If
If a = 2 Then
MsgBox ("Scissors!")
MsgBox ("Tie!")
End If
If a = 3 Then
MsgBox ("Rock!")
MsgBox ("You have been defeated!")
b = b + 1
End If
Txt2 = b
Txt1 = c
If b = 5 Then

MsgBox "You have lost too many times, but there is always another day!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If
If c = 5 Then
MsgBox "You are a very good guesser, you have won!"
Txt1 = 0
Txt2 = 0
b = 0
c = 0
End If
End Sub

Private Sub Form_Load()
Randomize
Txt1 = 0
Txt2 = 0
If b = 5 Then
End
MsgBox "You have lost too many times, but there is always another day!"
End If
If c = 5 Then
End
MsgBox "You are a very good guesser, you have won!"
End If


End Sub