| |
Как сгенерировать всю последовательность
чисел от 1 до 5. Каждое число должно быть
сгенерировано один и только один раз.
Расположите на форме CommandButton. Нажимая на
кнопку, вы получите всю последовательность чисел
от 1 до 5 в произвольном порядке.
Данный пример сгенерирует последовательность
чисел от 2 до 7 (то есть всего 6
чисел: 2,3,4,5,6,7) в произвольном порядке.
Если вы не хотите, чтобы число StartCards входило в
диапазон генерируемых чисел, замените строчку
intRndCard = CInt(Rnd() * (PlusCards - 1)) + StartCards
на
intRndCard = CInt(Rnd() * (PlusCards - 1)) + StartCards + 1
Private Sub Command1_Click()
StartCards = 2 'с какого числа начинается
диапазон
PlusCards = 6 'данное число указывает сколько
цифр надо прибавить к StartCards
ReDim bytCard(PlusCards + StartCards)
Dim blnFoundCard
Dim i As Integer
Dim intRndCard
Cls
For i = 1 To PlusCards
blnFoundCard = False
Do While Not (blnFoundCard)
Randomize
intRndCard = CInt(Rnd() * (PlusCards - 1)) + StartCards
If bytCard(intRndCard) = 0 Then
bytCard(intRndCard) = i
Print intRndCard
blnFoundCard = True
End If
Loop
DoEvents
Next
End Sub
|
|