|
|
| Другие темы раздела | |
| 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-шника, или (в крайнем случае) с созданием собственной программы с тем же функционалом (т.... |
|
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
|
||||||
| 18.06.2017, 20:23 | 0 | |||||
Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры - VB - Ответ 1055635318.06.2017, 20:23. Показов 1886. Ответов 11
Метки (Все метки)
 Сообщение было отмечено yourblackwalls как решение
Решение
Сообщение от yourblackwalls
Вернуться к обсуждению: Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры VB
2
|
||||||
| 18.06.2017, 20:23 | |
|
Готовые ответы и решения:
11
Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр |
| 18.06.2017, 20:23 | |
| 18.06.2017, 20:23 | |
|
Помогаю со студенческими работами здесь
0
Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр Найти все трехзначные числа,средняя цифра которых равна сумме первой и второй цифры |