Произвольные комбинации (максимально возможных) из данных, введённых в 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

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


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

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

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