by Tunde (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 10th July 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Generates Random Numbers
API Declarations
'Add a commandbutton and a textboxon the form
Dim num as Integer
Randomize 'Initializes random number generation
num = Int(9*Rnd)+1 'generates random number
Text1.Text= num
if num = 10 then
msgbox "A ten (10) has been generated", vbInformaton
End if
End Sub