Контрольная по программированию на VBA для Excel Задание 2

Задание на тему «Условный оператор»

Ввести целые числа в переменные A, B, C. Нечетные значения уменьшит на единицу (Нечетные значения делятся на 2 с остатком, то есть число mod <>2 ).

А вот такое решение у данной задачи:

Sub задание_2()
Dim a As Single, b As Single, c As Single // объявляем переменные
a = InputBox(«Видите целое число в переменную A») // вводим данные в переменную
b = InputBox(«Видите целое число в переменную B»)// вводим данные в переменную
c = InputBox(«Видите целое число в переменную C»)// вводим данные в переменную
If a Mod 2 <> 0 Then 'проверка условия четности'
MsgBox «A = » + str(a) + " не четное" // если не четное

a = a — 1 // уменьшаем
MsgBox «A уменьшино на 1 A = » + str(a) // выводим
Else
MsgBox «A = » + str(a) + " четное" // выводим
End If

If b Mod 2 <> 0 Then 'проверка условия четности'
MsgBox «B = » + str(b) + " не четное"
b = b — 1
MsgBox «B уменьшино на 1 B = » + str(b)
Else
MsgBox «B = » + str(b) + " четное"
End If

If c Mod 2 <> 0 Then 'проверка условия четности'
MsgBox «C = » + str© + " не четное"
c = c — 1
MsgBox «C уменьшино на 1 C = » + str©
Else
MsgBox str© + «C четное»
End If

End Sub

271
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.