by Clive (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sun 18th May 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Number Guessing Game
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