Ввести целые числа в переменные А,Б,С.Нечетные значения уменьшить на единицу

Ввести целые числа в переменные А,Б,С.Нечетные значения уменьшить на единицу
Гость
Ответ(ы) на вопрос:
Гость
Sub Z()                      'начало программы с именем Z Dim a As Integer        'создаем ячейку с именем а для целых чисел Dim b As Integer        'создаем ячейку с именем b для целых чисел Dim c As Integer        'создаем ячейку с именем c для целых чисел a = InputBox("Введите A: ")   'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а If a Mod 2 = 1 Then a = a - 1 'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу b = InputBox("Введите B: ") 'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b If b Mod 2 = 1 Then b = b - 1 'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу c = InputBox("Введите C: ") 'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c If c Mod 2 = 1 Then c = c - 1 'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу MsgBox ("A=" & a & "; B=" & b & "; C=" & c) 'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с End Sub  'конец программы 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы