Generates Random Numbers
Generates Random Numbers
API Declarations
'Add a commandbutton and a textboxon the form
Rate Generates Random Numbers
(1(1 Vote))
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
Generates Random Numbers Comments
No comments yet — be the first to post one!
Post a Comment