| |
Генерация последовательности неповторяющихся чисел |
|
| |
Вторая версия примера для создания
последовательности неповторяющихся чисел.
Первый пример смотрите на этой странице.
Private Sub Form_Paint()
Dim genNum As Integer
Dim check As Boolean
Dim sNum 'число для задания верхней границы массива
sNum = 25
ReDim mass(sNum)
Randomize
For x = 1 To sNum
Do
genNum = Int((sNum - 1 + 1) * Rnd + 1)
For y = x To 1 Step -1
If genNum = mass(y) Then
check = False
Exit For
Else
check = True
End If
Next y
Loop Until check = True
If check = True Then
mass(x) = genNum
End If
Next x
For i = 1 To sNum
Print mass(i)
Next
' Coding by Anthony Ho Leong Mi <hlm_82@yahoo.com>
End Sub
|
|
| |
|
|
|
|