| Вопрос: При генерации массива проверять на повторения | Добавлено: 01.05.08 22:08 |
Автор вопроса:  Boron
|
|
Не могли бы подсказать, как сделать следующую задачу (сам решить её не могу):
Генерируется массив (9). Каждое значение массива генерируется случайным образом от 0 до 35. Нужно сделать так, чтобы в случае, если новое значение уже идентично предыдущим, то оно генерируется заново. Можно тупо сделать If Array(1) > Array (0) Then... Но согласитесь, это неправильный подход. Кто-нибудь может помочь? Dim Array(9) Dim i For i = 0 To 9 Array(i) = Int(Rnd() * 35) Cells(i + 1, 10) = Array(i) Next i Спасибо! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 02.05.08 17:17 |
| Юзай tmp = Int(Rnd() * (35 - i)) и отсчитывай в другом массиве tmp неиспользованных чисел. | ||
|
Номер ответа: 2 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #2 | Добавлено: 02.05.08 17:27 |
|
# глянь
http://www.vbnet.ru/forum/show.aspx?id=165324 |
||
Страница: 1 |