• Home
 · 
• Miscellaneous
 · 
• Generates Random Numbers to be displayed in the Command Buttons

Generates Random Numbers to be displayed in the Command Buttons

Generates Random Numbers to be displayed in the Command Buttons

Rate Generates Random Numbers to be displayed in the Command Buttons

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
Randomize
Dim a As Integer, b As Integer
Dim no As Integer
For a = 0 To 7
ff:
no = 7 * Rnd + 1
For b = 0 To 7
If arr(b) = no Then
GoTo ff
End If
Next
arr(a) = no
Command1(a).FontSize = 15
Command1(a).Caption = arr(a)
Next
End Sub