VB 隨機數

Steps:
1. Initialize the random number generator - (Randomize())
2. Generate a random number
3. Compare it with those in the array
4. If found, regenerate it again - (the while loop)
5. Store it into the array and go to step 2 until all numbers are generated
6. Print the output


Imports System.Random

:
:

Private Sub GenNumbers()

　Dim NewNumber, GeneratedNumbers(6) As Integer
　Dim i, j As Integer
　Dim rn As New Random()
　Dim Checked As Boolean
　Dim Output As String = ’’’’

　Randomize()

　For i = 0 To GeneratedNumbers.Length() - 1

　　Checked = False

　　While (Not Checked)

　　　NewNumber = rn.Next(1, 11)
　　　Checked = False

　　　If i = 0 Then
　　　　Checked = True
　　　Else

　　　　’ Compare generated number with those stored in array
　　　　For j = 0 To i - 1
　　　　　If NewNumber = GeneratedNumbers(j) Then
　　　　　　’ Number already existed. Regenerate a new number!
　　　　　　Checked = False
　　　　　　Exit For
　　　　　Else
　　　　　　If j = i - 1 Then
　　　　　　　Checked = True
　　　　　　End If
　　　　　End If
　　　　Next

　　　End If

　　End While

　　’ Store the number into array
　　GeneratedNumbers(i) = NewNumber
　　Output &= GeneratedNumbers(i) & ’’ ’’

　Next i

　MessageBox.Show(Output)

End Sub