Выдать в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.333 из 5
Похожие ответы