• Home
 · 
• Miscellaneous
 · 
• Number Guessing Game

Number Guessing Game

Number Guessing Game

Rate Number Guessing Game

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim a As Byte
Randomize
a = (5 * Rnd) + 1
lblRnum.Caption = Str(a)
If Val(TxttNum) = a Then
MsgBox ("Congrats You are a winner")
Else
MsgBox ("You Lose!!!!!")
End If



End Sub