| Вопрос: Последовательности чисел | Добавлено: 09.03.06 22:27 |
Автор вопроса:  LeX | Web-сайт: www.vbkoders.info | ICQ: 301424893 |
| Может быть кто-нибудь подскажет как выдать все возможные последовательности чисел? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 10.03.06 09:11 |
|
По конкретней напиши, а то не совсем понятно чего ты хочешь.
Бесконечный цикл? |
||
|
Номер ответа: 2 Автор ответа:  sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 10.03.06 09:23 |
алго брут-форсера  ?
|
||
|
Номер ответа: 3 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 10.03.06 10:19 |
|
Private Sub Form_Load()
Dim a As Byte Dim b As Byte Dim c As Byte Dim N As String For a = 0 To 9 For b = 0 To 9 For c = 0 To 9 N = a & b & c List1.AddItem N Next c Next b Next a End Sub |
||
|
Номер ответа: 4 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #4 | Добавлено: 10.03.06 11:34 |
| Спасибо за исчерпывающий ответ! | ||
|
Номер ответа: 5 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #5 | Добавлено: 10.03.06 11:45 |
|
Можно просто офигеть...
Как от формулировки вопроса, так и от представленного кода для его решения... И вопрос даже не в том, что dim i as long
.
for i=0 to 999 list1.additem format$(i,"000" 
next Вопрос в том, как человеку могло придти в голову (нет, правда интересно) спросить "А как перечислить все числа подряд?". |
||
|
Номер ответа: 6 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #6 | Добавлено: 10.03.06 12:03 |
|
На самом деле, вопрос не такой уж и глупый, как кажется.
Дело в том, что оба представленных кода годятся только для НЕПРЕРЫВНОЙ последовательности чисел. Если же необходимо исключить из рассмотрения какие-то цифры (а в общем случае оперировать произвольным набором символов), то мой код легко модифицируется (я показал только принцип перечисления). |
||
|
Номер ответа: 7 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #7 | Добавлено: 10.03.06 12:11 |
|
Спасибо друг! За поддержку!
|
||
|
Номер ответа: 8 Автор ответа: MaAst Вопросов: 15 Ответов: 63 |
Профиль | | #8 | Добавлено: 10.03.06 16:08 |
| а тебе зачем? пассворды взламывать?))) | ||
|
Номер ответа: 9 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #9 | Добавлено: 10.03.06 19:51 |
|
Конечно!
|
||
|
Номер ответа: 10 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #10 | Добавлено: 11.03.06 13:33 |
| Умник! | ||
|
Номер ответа: 11 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #11 | Добавлено: 11.03.06 22:52 |
| {+} Оффтопик! Обсуждение глубины знаний форумянина! | ||
Страница: 1 |