ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
25 сообщений из 55, страница 2 из 3
  2  все
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248015
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
FAndrew Дмитрий1979Объясните пож-ста, что за книжка?
Книга Excel, где вы наваяли свой код.

Дмитрий1979Я ведь не программист и практически ничего не понимаю в этом
Может уже пора обратиться к тому кто понимает в этом?
Просто на ваши вопросы даже не понятно как отвечать, вы не знаете базовых вещей.

этот код я взял на www.google.ru и просто тупо его скопировал.
Вот я и обратился к вам, уважаемые программисты, с одним единственным вопросом вопросом:

Господа программеры!
Помогите пожста с решением проблемы (для меня-глобальной)

Есть 10 -ти значное число, состоящее только из цифр от 1 до 5.

Вопрос: каким образом определить кол-во и вывести на экран (желательно сохранить в текстовом файле) все возможные варианты 10-ти значных чисел из данного набора цифр??????

Как я понял, тут все знают, как это сделать без особого труда, дают советы (спасибо, кстати), но мне, как ничего непонимающему в программировании и не имеющем знакомых программеров, порой сложновато разобраться в некоторых специфических тонкостях (не вините меня пож-ста, каждый силен в своей области). Все, до чего я смог дойти - это найти в поиске на GOGLE Переборные алгоритмы и в одной из ссылок обнаружить и скопировать даный код. Попытался запустить его в VBA, после ввода M и N выдается ошибка 424 run-time error (вроде какой-то объект не определен что ли). Дальше пока не сдвинулось, почему я опять к вам и обращаюсь. Кстати, всем, кто хоть как-то пытается мне помочь - большое спасибо. В конце концов - мне нужен всего лишь конечный результат - все возможные комбинации в текстовом файле. Вот и все.
...
Рейтинг: 0 / 0
10.04.2008, 13:10
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248090
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
У вас есть контейнер ( форма или лист) для объекта txtOut ?
...
Рейтинг: 0 / 0
10.04.2008, 13:24
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248260
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Э-эх, если б я еще знал, что это за контейнер...
Как выяснить, есть он или нет?
...
Рейтинг: 0 / 0
10.04.2008, 13:59
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248313
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Я же написал — форма или лист.
...
Рейтинг: 0 / 0
10.04.2008, 14:07
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248357
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
В смысле - форма или лист. Какая форма то? Или лист какой? Где он должен быть?
...
Рейтинг: 0 / 0
10.04.2008, 14:17
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248374
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
txtOut это элемент управления. Он может находиться на форме или на листе. В вашем проекте присутствует форма ?
...
Рейтинг: 0 / 0
10.04.2008, 14:21
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248467
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Е-мое...
вообщем я сделал следующим образом:
открыл документ Word где записан этот вод код, во вкладках зашел в сервис - макрос - редактор VB, далее Debug - Complite Project.
Появилось окно с кодом .
Запускаю по вкладке Run - Run Sub\User Form - просит ввести М, N -ввожу и выскакивает ошибка 424 -что делать дальше и про какие формы и листы идет речь?
...
Рейтинг: 0 / 0
10.04.2008, 14:43
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248498
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
на UserForm своем TextBox брось и назови (Name) его txtOut
...
Рейтинг: 0 / 0
10.04.2008, 14:49
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248558
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & 
CStr(d) & CStr(e) & _
                                            CStr(f) & CStr(g) & CStr(h) & 
CStr(i) & CStr(j)
                                        Debug.Print sRez
                                        Print # 1 , sRez
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
Close # 1 
End Sub

Сколько будет работать не знаю, по итогу в корне диска С будет файл 1.txt в
нем нужные комбинации.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 14:58
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248576
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
попробую. Спасибо большое! Если все получится облагодарю.
...
Рейтинг: 0 / 0
10.04.2008, 15:00
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248603
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Игорь Горбонос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & 
CStr(d) & CStr(e) & _
                                            CStr(f) & CStr(g) & CStr(h) & 
CStr(i) & CStr(j)
                                        Debug.Print sRez
                                        Print # 1 , sRez
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
Close # 1 
End Sub

Сколько будет работать не знаю, по итогу в корне диска С будет файл 1.txt в
нем нужные комбинации.

Posted via ActualForum NNTP Server 1.4

Попробовал - пишет синтаксическую ошибку в самом начале. А правильно ли я запускаю выполнение. Я выше описал, как я делаю.
...
Рейтинг: 0 / 0
10.04.2008, 15:07
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248623
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вот
Идете в Module1 , переходите в процедуру Gen и жмете Ф5.
...
Рейтинг: 0 / 0
10.04.2008, 15:11
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248714
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Попробовал - пишет синтаксическую ошибку в самом начале. А правильно
> ли я запускаю выполнение. Я выше описал, как я делаю

Открываешь документ ворд, меню "Серис" -> "Макрос" -> "Редактор VBA"
Открывается редактор, жмешь Ctrl + R - показывается окно проекта. В окне
проекта (практически в любом месте) правой кнопкой мыши -> пункт "Insert" ->
"Module"
Справа откроется окно для ввода кода. Первой строкой напиши Option Explicit
и после вставь мой код. Должно получится где-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit

Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
....
        Next c
    Next b
Next a
Close # 1 
End Sub
После чего сохраняешь тот документ в который добавил модуль. Сохранять в
Ворде. Потом ставишь курсор в любую строчку между Sub Gen() и End Sub и
нажимаешь F5, начнется выполнение кода. Если надоесть ждать окончания
комбинация клавиш Ctrl + Pause/Break приостановит выполнение кода, дальше
можно продолжить или остановить совсем, но начинать будет снова с начала.
Если выдает ошибки приводи текст ошибки потому, что у меня работает без
проблем

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:28
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248724
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
big-duke Вот
Идете в Module1 , переходите в процедуру Gen и жмете Ф5.


Запускаю Exscel - и абсолютно пусто. Хотя файл весит 27,5 кб. Опять я что то не так сделал?
...
Рейтинг: 0 / 0
10.04.2008, 15:29
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248741
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Попробовал - пишет синтаксическую ошибку в самом начале. А правильно
> ли я запускаю выполнение. Я выше описал, как я делаю.

Кажется я понял :) форматер кода на сайте сделал так:
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As
Long
а это должна выть одна строка. И здесь так-же одна строка:
sRez = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & _
и это одна строка:
CStr(f) & CStr(g) & CStr(h) & CStr(i) & CStr(j)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:33
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248744
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Где пусто ?
Надо открыть excel, нажать alt-f11

...
Рейтинг: 0 / 0
10.04.2008, 15:33
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248764
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
все, я устал от этого :)

создай файлик 1.vbs , открой его notepad-ом и скопируй туда это, потом запускай (на диске C должна быть директория TEMP ):


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Sub Gen()
Dim sRez
Dim a, b, c, d, e, f, g
Dim h, i, j
Dim FSO, AFile, AFileStream

Set FSO = CreateObject("Scripting.FileSystemObject")
Set AFileStream = FSO.CreateTextFile("c:\temp\gen_out.txt", True)
AFileStream.Close
Set AFileStream = FSO.OpenTextFile("c:\temp\gen_out.txt", 8 )

For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & CStr(f) & CStr(g) & CStr(h) & CStr(i) & CStr(j)
                                        AFileStream.WriteLine sRez
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next

End Sub

Gen
...
Рейтинг: 0 / 0
10.04.2008, 15:38
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248789
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Да ребят, я в этом просто лох конкретный, но походу чего-то заработало... Результат опишу после получения.
...
Рейтинг: 0 / 0
10.04.2008, 15:43
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248802
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Что заработало ?
Excel ? VBScript ?

...
Рейтинг: 0 / 0
10.04.2008, 15:47
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248822
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Да ребят, я в этом просто лох конкретный, но походу чего-то
> заработало... Результат опишу после получения.

Место на винте не забудь освободить и процессорное время оплатить :D

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:52
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248828
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у него сейчас компьютер занят этим зацикленным заданием :)
...
Рейтинг: 0 / 0
10.04.2008, 15:53
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248829
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
Konst_Oneвсе, я устал от этого :)
А все потому, ИМХО, что кому-то жалко пива.
...
Рейтинг: 0 / 0
10.04.2008, 15:53
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248844
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
точно, если б он сразу с пива начал, то не разводили бы флейм на две страницы ;)
...
Рейтинг: 0 / 0
10.04.2008, 15:55
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248847
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Игорь Горбонос

Место на винте не забудь освободить и процессорное время оплатить :D

Posted via ActualForum NNTP Server 1.4
Там делов то на минуту и 110 метров
...
Рейтинг: 0 / 0
10.04.2008, 15:56
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248849
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Konst_One
> у него сейчас компьютер занят этим зацикленным заданием :)

Т.е. время "пойти за Клинским" (с) Реклама
для оплаты процессорного времени на ВЦ :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:57
| Ответить | Цитировать | Написать  
25 сообщений из 55, страница 2 из 3
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35248576&tid=2162420]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 77ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 84ms
get tp. blocked users:
 2ms
others: 241ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]