Произвольные комбинации (максимально возможных) из данных, введённых в TextBox - VB
Формулировка задачи:
Помогите написать генератор данных. Надо что бы данный генератор, при нажатии на кнопку "Генерировать", составлял произвольные комбинации (максимально возможных), из данных введённых в TextBox'ах (5), так же хотелось, что бы к примеру к TextBox1 подставлялись число в определённом диапазоне, который можно было бы выбрать, и аналогично с символами латинского алфавита( кол-во которых так же можно было определить в диапазоне, 2 символа или 5) и место подстановки этих символов перед "ключевым" словам или после.
И желательно, что бы скинули исходник.
Решение задачи: «Произвольные комбинации (максимально возможных) из данных, введённых в TextBox»
textual
Листинг программы
Private Sub Command1_Click() a = Text1.LBound b = Text1.UBound ReDim mas%(a To b) n = ((b - a) + 1) For j = a To b mas(j) = 0 Next For i = 1 To n ^ n t = "" For j = a To b If mas(j) > b And j <> b Then mas(j) = 0: mas(j + 1) = mas(j + 1) + 1 If InStr(1, t, mas(j)) > 0 Then GoTo nxt 'запрещает повторную выборку элементов t = t & mas(j) Next st = "" For j = a To b st = st & Text1(mas(j)) Next List1.AddItem st nxt: mas(a) = mas(a) + 1 Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д