• Home
 · 
• Miscellaneous
 · 
• Generates Random Numbers

Generates Random Numbers

Generates Random Numbers

API Declarations


'Add a commandbutton and a textboxon the form



Rate Generates Random Numbers

• 1
• 2
• 3
• 4
• 5

(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