Выдать в TextBox список всех возможных комбинаций из заданных символов - VB
Формулировка задачи:
Здравствуйте, к сожалению я новичок в программировании, могу написать "Hello World!" или простенький калькулятор, но не более. Мне необходимо написать программу, для себя, которая делают такую вещь:
В программу забивается до 100 символов, символы разделяются точкой с запятой, символ может быть любым, пример:
000;ыврапваыр;g;
Это три символа.
Затем я вбиваю в программу диапазон, минимум которого = 2, максимум = 40. Пример, в одном текстбоксе написана 1, в другом 4.
Программа выдает в текстбокс список всех возможных комбинаций из данных символов, диапазон - контролирует количество символов (не в смысле знаков, а в смысле символов) в комбинации.
С чего такое начать писать? Что изучить? Как такое сотворить? Понимаю, что это должно быть с параллельными операциями и циклами, но даже не знаю, как подступиться. Помогите пожалуйста.
+Программа должна уметь сохранять то, что мы вывели в тхт документ, пользователь должен иметь возможность выбора названия для документа и места его сохранения.
+Должно быть ограничение, что в одном символе не должно быть более 10 знаков
Решение задачи: «Выдать в TextBox список всех возможных комбинаций из заданных символов»
textual
Листинг программы
Dim d1 As Integer, d2 As Integer, txt As String, txt1 As String, ac As Byte Dim bk As Boolean, zn As Boolean, cf As Boolean Private Sub Command1_Click() txt1 = R1.Text & " ": d1 = 1 txt1 = Replace(txt1, ";", " ") For i = 1 To Len(txt1) Step 1 DoEvents ac = Asc(Mid(txt1, i, 1)) If ac = 32 Or ac = 160 Then d2 = i: txt = Mid(txt1, d1, d2 - d1): cf = False: bk = False: zn = False: GoTo pr If ac >= 48 And ac < 57 Then If cf = False Then If bk = True Or zn = True Then d2 = i: txt = Mid(txt1, d1, d2 - d1): bk = False: zn = False cf = True: d1 = i End If GoTo pr End If If (ac >= 65 And ac <= 90) Or (ac >= 97 And ac <= 122) Or (ac >= 192 And ac <= 255) Then If bk = False Then If cf = True Or zn = True Then d2 = i: txt = Mid(txt1, d1, d2 - d1): cf = False: zn = False bk = True: d1 = i End If GoTo pr End If If zn = False Then zn = True: If cf = True Or bk = True Then d2 = i: txt = Mid(txt1, d1, d2 - d1) d1 = i End If pr: txt = Replace(txt, "", " ") If txt <> "" Then List1.AddItem txt: txt = "" Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д