declared:
y as int
coutner as string
value as string
Code:
Public Sub loadquestions()
Randomize()
value = CInt(Int(((counter - 1) * Rnd()) + 1))
arrayOfGeneratedNumbers(10)
newNumberGenerated = False
Do Until newNumberGenerated = True
newNumberGenerated = True
value = random number
For Each y In arrayOfGeneratedNumbers
Leave a comment: