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

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

26.03.2012, 11:44. Просмотров 1558. Ответов 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 - массив
http://www.cyberforum.ru/visual-basic/thread741408.html
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 11:44
Готовые ответы и решения для VB Произвольные комбинации (максимально возможных) из данных, введённых в TextBox:

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

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

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

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

Сформировать из элементов линейного массива квадратную таблицу А максимально возможных размеров
Дан линейный массив С из N элементов. Сформировать из элементов этого массива...

11
Произвольные комбинации (максимально возможных) из данных, введённых в TextBox VB   Следующее сообщение темы 
Другие темы раздела
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