Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Linoge
Эксперт Hardware
2240 / 1563 / 259
Регистрация: 25.10.2011
Сообщений: 4,737
26.03.2012, 11:44

Произвольные комбинации (максимально возможных) из данных, введённых в TextBox

26.03.2012, 11:44. Просмотров 1567. Ответов 11
Метки (Все метки)

Ответ

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
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
Нужно что-то вроде этого?
text1 - массив

Вернуться к обсуждению:
Произвольные комбинации (максимально возможных) из данных, введённых в TextBox
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 11:44
Готовые ответы и решения:

Выдать в TextBox список всех возможных комбинаций из заданных символов
Здравствуйте, к сожалению я новичок в программировании, могу написать &quot;Hello...

Вывести системное сообщение на основе введённых пользователем данных
Здравствуйте! Вот поступила в универ, в школе с программированием на...

Комбинации всех возможных элементов массива
Добрый день форумчане. Есть такая задачка, как реализовать комбинацию всех...

почему пк не тянет crysis 1 на максимально возможных настройках?
Здравствуйте! Недавно собрал системник, как я думал для общих задач: там видео,...

нахождение все возможных комбинации чисел которые можно получить из одного числа.
Помогите плиз написать программу которая находит все возможные комбинации чисел...

11
Другие темы раздела
VB Подсчет количества строк и символов в TextBox http://www.cyberforum.ru/visual-basic/thread526181.html
Помогите решить такую задачу: Есть текстовое поле, т.е TextBox со свойствами: Multiline = True ScrollBars = 2-Вертикаль Нужно сделать подсчет строк и символов в строке. Мой исходник с...
VB Является ли введенное число простым Вводиться натуральное число.Вывести на экран так,чтобы все цифры расположились в обратном порядке. Вводиться натуральное число.Вывести-простое это число или нет. http://www.cyberforum.ru/visual-basic/thread526053.html
Составить число из количества появлений каждой цифры в числе VB
Пользователь вводит целое положительное число. Составить число из количества появлений каждой цифры в числе.
Как получить в Label знак амперсанд VB
Мужики (& lady) !! Подскажите, плз, как получить а Лейбле "&", а не "_" ???? Dim m$ m="&" Lbl1=m
VB Составить число из сумм соседних цифр по модулю 10 http://www.cyberforum.ru/visual-basic/thread525897.html
Пользователь вводит целое положительное число. И программа составляет число из сумм соседних цифр по модулю 10.
VB Составить программу вычисления суммы первых k нечетных чисел 1. Составить программу вычисления суммы первых k нечетных чисел. 2. Составить программу вычисления суммы s=1+1*2+1*2*3+1*2*...*k. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru