by M.Muthu Rekha (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 8th December 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Generates Random Numbers to be displayed in the Command Buttons
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
No comments have been posted about Generates Random Numbers to be displayed in the Command Buttons. Why not be the first to post a comment about Generates Random Numbers to be displayed in the Command Buttons.