Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Taskbar Привет... Option Explicit Private Const ssfSYSTEM = 37 Private Const ssfPROGRAMS = 2 Private Const ssfDESKTOP = 0 Private Const ssfDESKTOPDIRECTORY = 16 Private Const ssfDRIVES = 17 Private Const ssfPERSONAL = 5 Private Const ssfCOMMONDESKTOPDIR = 25 https://www.cyberforum.ru/ visual-basic/ thread1859984.html	Регулярные выражения VB В поле TextBox вводится адрес сайта, программа должна выводить название сайта (Например: адрес сайта -https://www.cyberforum.ru/newthread.php?do=newthread&f=29, название сайта - cyberforum или http://100formul.ru/matem., название сайта 100formul). Помогите реализовать данную программу с использованием регулярных выражений в VB.
VB Прямоугольник состоящий из букв https://www.cyberforum.ru/ visual-basic/ thread1859861.html Вывести на экран прямоугольник состоящий из букв "A" и заполненный буквой "B". Количество строк вводит пользователь, количество столбцов равно 5	VB Снятие фокуса с кнопки при её нажатии https://www.cyberforum.ru/ visual-basic/ thread1859713.html привет, друзья! после нажатия на кнопку на ней появляется фокус, как сделать что бы он не появлялся?
VB Вывести на экран фигуру из звездочек Вывести на экран фигуру из звездочек: ****** **** **** ****** Квадрат из n строк, в каждой строке n звездочек	VB Вывести на экран прямоугольник из нулей https://www.cyberforum.ru/ visual-basic/ thread1859589.html Вывести на экран прямоугольник из нулей. Количество строк вводит пользователь, количество столбцов равно 5
VB Отрицательные числа и буквы Здравствуйте! Я новичок пока что в VB, поэтому туплю пока что. Задача такая: дан текстбокс, в котором расположен одномерный массив чисел. Строковых данных там не должно быть, иначе будет выдавать ошибку. При нажатии на кнопку числа из этого текстбокса перемножаются с числами из другого и получается двумерный массив. Нужно сделать так, чтобы кнопка работала и с отрицательными числами. А у меня оно... https://www.cyberforum.ru/ visual-basic/ thread1859398.html	VB Нужно переписать код программы с паскаля на VB 6.00 Помогите переписать код программы с паскаля на VB 6.00 Var s:string; i,k:integer; a,b:char; Begin Readln(s); s:=s+' '; k:=0; for i:=1 to Length(s)-1 do begin
VB Даны массивы из нескольких чисел. в Visual Basic 6 Даны массивы из нескольких чисел, при нажатии на конкретное числа, ряд чисел смещаеться относительно от выделенной рамки вверх или вниз, визуальный пример на картинке... https://www.cyberforum.ru/ visual-basic/ thread1859284.html	VB Как стереть с вводим строки некоторые символы, их много Как стереть с вводим строки некоторые символы, их много нужно оставить если встречается две заглавные буквы https://www.cyberforum.ru/ visual-basic/ thread1859188.html
VB Отсортировать из строки только заглавные буквы буквы Помогите написать программу для сортирования из строки только заглавные буквы буквы без изменения их порядка, например дана такая строка: аар4654прАААплоПРоенгшбТИ141+/-/";%!))?))\.	VB Сортировка в visual basic Помогите создать программу. В текстовое поле вводится текст( цифры, буквы, знаки препинания). Нужно отдельно отсортировать цифры, буквы, знаки. У каждого свой массив. Далее все это нужно вывести на PictureBox. Сначало цифры, буквы, потом знаки препинания https://www.cyberforum.ru/ visual-basic/ thread1859072.html

gaw

6644 / 1511 / 169

Регистрация: 09.01.2010

Сообщений: 4,298

26.11.2016, 15:11

получить все комбинации по парам x y, чтобы получились следующие массивы - VB - Ответ 9817568

26.11.2016, 15:11. Показов 962. Ответов 15

Метки (Все метки)

Ответ

Visual Basic

Dim n%
Dim a()
 
Private Sub Command1_Click()
 
a = Array("", "Fx", "Dy", "Nz", "Gj")
n = UBound(a)
List1.Clear
per 0, 0
 
End Sub
Sub per(t, k)
If t = n Then
st = "": k = k + 1
    For i = 1 To n
        st = st + a(i) & vbTab
    Next i
    
     List1.AddItem k & vbTab & st
 End If
 
   For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1, k)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
 
End Sub

Вернуться к обсуждению:
получить все комбинации по парам x y, чтобы получились следующие массивы VB

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.11.2016, 15:11

Готовые ответы и решения:

Получить все возможные комбинации
Дана строка, например: АРТО Необходимо получить все возможные комбинации из совпадений букв...

Получить все возможные комбинации чисел
Доброго дня! Подскажите, как реализовать макрос? есть такие числа: "1" - 46 раз "2" - 64 раза...

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

Массивы. Вычислить по формуле и вывести на экран все возможные комбинации сумм чисел
Доброго всем времени суток.Я делаю только первые шаги в программировании.Начал разбираться с...

	26.11.2016, 15:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.11.2016, 15:11

Помогаю со студенческими работами здесь

Получить все возможные комбинации массива чисел
Привет всем! Подскажите, пожалуйста, кто сталкивался, второй день бьюсь и не соображу ) Есть...

Массивы: Все элементы, следующие за наибольшим элементом массива, увеличить на 10
Все элементы, следующие за наибольшим элементом массива, увеличить на 10

Для пары чисел получить все комбинации сложения и вычитания
Нужно решить задачу на ассемблере. Преподаватель задает два базовых числа ± X и ± Ү. Студент...

Высчитать все различные комбинации сумм элементов, чтобы в результате получилось число 1.5
суть такая, Есть массив напр: $ar=0.5; $ar=0.375; $ar=0.1; В массиве может быть как больше...

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

Как перегрузить методы, чтобы получились аналоги get set из C#
Как можно перегрузить методы, что бы получился аналог get set из C#. Т.е. что то такое: class...

Наверх