|
|
| Другие темы раздела | |
| VB Указать индексы элемента с найденным значением Дана действительная матрица размером nxm, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением. Программа (задача на двумерные массивы) https://www.cyberforum.ru/ visual-basic/ thread2006038.html |
Семеричная система счисления VB Какие числа могут быть правильно описаны в семеричной системе счисления и почему: 16, 792, 5B, 38, 43, 4261, E2, 91, 56, 25, 932, 416, 5А, 64 |
|
VB Задача с шоколадом
https://www.cyberforum.ru/ visual-basic/ thread2005919.html Задачу звучит так шоколадку делят (по прямой) задается кол-во долек и выдается можно ли так разломить шоколадку. Сначала я создаю 2-хмерный массив и через inputbox ввожу n и m (размер шоколадки), потом ввожу кол долек, дальше нужно через if действовать, но как я не знаю. Помогите, пожалуйста! |
VB Задачка на вычисление суммы
https://www.cyberforum.ru/ visual-basic/ thread2005915.html Нужно записать вот такое вычисление 1×2+2×3+...+(n-1)×n и записать его в ответе, но как я не знаю. Помогите, пожалуйста! Option Explicit Private Sub Command1_Click() Dim n As Integer, m As Integer n = InputBox("Введите натуральное число, которое будет больше или равно 2") m = 1 * 2 + Print m End Sub |
|
Записать числа от а до b в порядке возрастания. В чем ошибка? VB Нужно записать числа от а до b в порядке возрастания. Помогите исправить ошибку! Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i() As Integer a = InputBox("Введите число") b = InputBox("Введите число") If a > b Then For i = a To b Debug.Print i Else |
VB Изменить переменную в ходе работы
https://www.cyberforum.ru/ visual-basic/ thread2005909.html Вводятся 3 числа, если они вводятся в порядке возрастания, то всё ок, а если нет,то изменить значения переменных(не переставить их местами, а изменить) Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox("Введите число") b = InputBox("Введите число") c = InputBox("Введите число") If a < b < c Then Print a; b; c Else |
| VB Записать задачу проще Я решила задачу, но запись слишком длинная, можно её как-то упростить? Option Explicit Private Sub Command1_Click() Dim n As Integer n = InputBox("Введите нвтуральное число меньше 100") If n = 1 Or n = 21 Or n = 31 Or n = 41 Or n = 51 Or n = 61 Or n = 71 Or n = 81 Or n = 91 Then Print n; "корова" Else If n = 2 Or n = 3 Or n = 4 Or n = 22 Or n = 23 Or n = 24 Or n = 32 Or n = 33 Or n = 34... https://www.cyberforum.ru/ visual-basic/ thread2005902.html |
VB Количество операторов Помогите пожалуйста посчитать количество операторов Form_Главная _форма BEGIN MultiUse = -1 'True END Attribute VB_Name = "Form_Главная_форма" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True |
|
VB Какое из этих чисел больше и почему 23(нижний индекс)5, 23(нижний индекс)11
https://www.cyberforum.ru/ visual-basic/ thread2005055.html Подскажите какое из этих чисел больше и почему 23(нижний индекс)5, 23(нижний индекс)11 |
VB Как в блок-схеме написать ввод 30-ти чисел
https://www.cyberforum.ru/ visual-basic/ thread2005051.html Не по Vb, а просто на бумаге блок-схема. Помогите! Мне нужно ввести 30 разных чисел в блок схеме, как это записать?( а=0,30 это ввести числа от 1 до 30 или ввести 30 чисел?) |
|
Можно ли конвертировать с VB на IOS или Android приложения? VB Я создал программу хочу что бы он работал в смартфонах Можно ли конвертировать с VB на IOS или Android приложения? |
VB Пакет с DLL
https://www.cyberforum.ru/ visual-basic/ thread2004701.html Всем привет! Столкнулся с проблемой. Когда писал программу для заказчика, у него не оказалось необходимых основных DLL (типа commondialog и flexgrid). Как я помню, существовал некогда такой установочный пакет, который устанавливал на компьютер большое кол-во основных DLL. Прошу помочь с поиском этого exe-шника, или (в крайнем случае) с созданием собственной программы с тем же функционалом (т.... |
|
0 / 0 / 0
Регистрация: 18.06.2017
Сообщений: 15
|
|
| 18.06.2017, 20:21 [ТС] | 0 |
Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры - VB - Ответ 1055634018.06.2017, 20:21. Показов 1886. Ответов 11
Метки (Все метки)
Ответ 
Сообщение от SoftIce
Добавлено через 1 минуту
Сообщение от fever brain
спасибо большое, очень помог. Только не совсем понимаю, что означает Mid$ и прочее, не проходили видимо еще, в примере не было такого. Вернуться к обсуждению: Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры VB
0
|
|
| 18.06.2017, 20:21 | |
|
Готовые ответы и решения:
11
Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр |
| 18.06.2017, 20:21 | |
| 18.06.2017, 20:21 | |
|
Помогаю со студенческими работами здесь
0
Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр Найти все трехзначные числа,средняя цифра которых равна сумме первой и второй цифры |