Ускорить работу программы

@РусланМухмадови · Регистрация: 30.05.2016

Студворк — интернет-сервис помощи студентам

суть такова, на форме имеется два текст бокса и кнопка, в первый текст бокс вводится набор букв, во второй цифра, которая будет означать количество букв в слове, далее набор букв из первого текст бокса разбивается на отдельные символы и заполняется в массив, после чего из них генерируются слова, так вот этот код работает быстро к примеру на 3-4 символа (как в моем коде, скинутом для примера), вчера поставил генерацию из 12 символов, по 5 букв в слове так он залип на минут 15, мой вопрос таков: можно ли ускорить работу моего кода, или оптимизировать как то, или даже заменить что то, так как я может вообще использую "деревянный метод" так как программированием давно не занимался, и второй под вопрос, можно ли отсеивать не существующие слова сразу, Application.CheckSpelling - пропускает много не нужных слов.

пример моего кода на генерацию 3 слова из трех букв:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim razmer, schet As Integer
schet = 1
kolbukv = CInt(Text1.Text)
str = Text2.Text
razmer2 = Len(str)
ReDim sim(razmer2)
For i = 1 To Len(Text2)
   sim(i) = Mid$(Text2, i, 1)
  Next i
If kolbukv = 3 Then
 razmer = UBound(sim())
  For i1 = 1 To razmer
   For i2 = 1 To razmer
    For i3 = 1 To razmer
    slovo = sim(i1) & sim(i2) & sim(i3)
      If Application.CheckSpelling(slovo) Then
        Cells(schet, 1) = slovo
        schet = schet + 1
      End If
  Next i3
 Next i2
Next i1

Добавлено через 5 часов 53 минуты
может я плохо объяснил суть вопроса, в общем это генератор слов из заданных букв, буквы вводятся в первый текст бокс, а во второй вводится цифра, означающая количество букв в слове, после чего буквы из первого текст бокса заполняются в массив отдельными символами, а дальше с помощью вложенных циклов эти отдельные элементы массива присоединяются друг к другу во всех возможных комбинациях, и выводятся в ячейку таблицы Excel, я скинул фрагмент кода в котором генерация слова идет из трех букв, можно ли реализовать эту задачу другим способом, так как мой способ затрачивает много времени.

@KoGG · 02.06.2016, 16:46

Для алфавитной сортировки результата в конце первой процедуры нужно добавить:

Visual Basic
1
Columns("B:B").Sort Columns("B:B")

@РусланМухмадови · 03.06.2016, 07:12 **[ТС]**

KoGG, хм, быстро работает, без комментариев в коде, немного сложно разобраться( но я разберусь, ..
последний вариант вообще решение всех моих задач, теперь мне нужно разобраться в вашем коде досконально. тут может и для Вас все просто, но мне нужно время) и еще раз большое спасибо за помощь.. литературой какой-ни будь пользовались? именно вот работа со строками и символами, и сверкой.

@KoGG · 03.06.2016, 09:55

Еще немножко ускорил и прокомментировал.
Для слова "анизотропия" и 5 букв старый код работал у меня 74 секунды, новый 67 секунд.
Ускорение за счет того, что при каждом рекурсивном вызове теперь передается более короткий массив с оставшимися неиспользованными буквами.
При длине слова близкой к количеству букв нового ускорение будет больше.

Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
Dim razmer&, Dic As Object
Sub Anagramma()
    Dim i%, kolbukv&, strok$, sim, slovo$, schet&, vX
    strok = [A5]
    razmer = [A7]
    kolbukv = Len(strok)
    ReDim sim(kolbukv)
    For i = 1 To kolbukv
        sim(i) = Mid$(strok, i, 1)
    Next i
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(1).Columns("B:B").ClearContents
    Set Dic = CreateObject("Scripting.Dictionary"): Dic.CompareMode = 1
    SlovoRecurs slovo, sim  ' Первый вызов SlovoRecurs, Slovo="", массив  Sim содержит все буквы
    For Each vX In Dic.Keys
        schet = schet + 1
        Cells(schet, 2) = vX
    Next
    Columns("B:B").Sort Columns("B:B")
End Sub
 
Sub SlovoRecurs(slovo$, sim)
    Dim i&, j&, k&, UBoundSim&, LenSlovo&, sTemp, Slovo2$
    LenSlovo = Len(slovo)
    UBoundSim = UBound(sim)
    For i = 1 To UBoundSim
        If LenSlovo = razmer - 1 Then
           If Application.CheckSpelling(slovo & sim(i), , False) Then
               Dic(slovo & sim(i)) = 0&
           End If
        ElseIf LenSlovo > razmer - 1 Then
        Else
            sTemp = sim
            k = 0
            For j = 1 To i - 1
                k = k + 1
                ReDim Preserve sTemp(k)
                sTemp(k) = sim(j)
            Next j
            For j = i + 1 To UBoundSim
                k = k + 1
                ReDim Preserve sTemp(k)
                sTemp(k) = sim(j)
            Next j
            Slovo2 = slovo & sim(i)
            '2,3, ...n вызов SlovoRecurs по каждой ветви с разной(-ными) начальной(-ными) буквами
            'массив  sTemp содержит оставшиеся буквы на каждой ветви (разные буквы в начале)
            ' на каждом этапе (разная длина слова сформирована)
            SlovoRecurs Slovo2, sTemp
        End If
    Next i
End Sub

@РусланМухмадови · 03.06.2016, 10:17 **[ТС]**

KoGG, здоровенное спасибо) помог правда. Нужно подтянуть мне знания по работе со строками, символами, и типом String, что то Вы быстро мою задачу расщелкали, чего не смог сделать я)

я с VB давно не работал уже, сейчас Jawa изучаю.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@РусланМухмадови 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 10
	03.06.2016, 07:12 [ТС]
	KoGG, хм, быстро работает, без комментариев в коде, немного сложно разобраться( но я разберусь, .. последний вариант вообще решение всех моих задач, теперь мне нужно разобраться в вашем коде досконально. тут может и для Вас все просто, но мне нужно время) и еще раз большое спасибо за помощь.. литературой какой-ни будь пользовались? именно вот работа со строками и символами, и сверкой. 0

@РусланМухмадови 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 10
	03.06.2016, 10:17 [ТС]
	KoGG, здоровенное спасибо) помог правда. Нужно подтянуть мне знания по работе со строками, символами, и типом String, что то Вы быстро мою задачу расщелкали, чего не смог сделать я) я с VB давно не работал уже, сейчас Jawa изучаю. 0

Ускорить работу программы

Решение