-
Bingo Game
I'm trying to programme a Bingo game to generate non repeating random numbers. Dream-in Code gave me the idea i've tried tweaking the code but without success. This is what i have so far.
Private Sub Button1_Click()
Dim intNumber As Integer
Dim arrNumber(0 To 90) As Integer
Dim i, x, y As Integer
TextBox1 = ("")
Start:
Randomize
intNumber = Int((90 * Rnd()) + 1)
If intNumber = arrNumber(y) Then
GoTo Start:
End If
arrNumber(x) = intNumber
TextBox1 = (arrNumber(i))
End Sub
-
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules