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

Задание 5 на тему

«Оператор цикла с предусловием и постусловием ».

Вводить целые числа до тех пор, пока сумма четных чисел не превысит значения 25 по модулю. Вывести на экран все введенные числа (четные числа делятся на два без остатка, то есть ЧИСЛО mod 2 = 0).

Решение оказывается элементарно простым:

Option Explicit
Sub задание_5()
Dim a As Integer, b As Integer, s As String //объявляем переменные
b = 0 // обнуляем счетчик
Do Until b > 25 // начало цикла с проверкой условия
a = Val(InputBox(«Введите целое число»)) // ввод данных
If a Mod 2 = 0 Then // проверка четности
b = b + a // сумма четных
End If
s = s + vbCrLf + str(a) // подготовка к выводу всех введенных чисел
Loop // конец цикла
MsgBox «Сумма четных чисел больше 25 » + vbCrLf + «Вводились числа: » + s // вывод данных на экран
End Sub

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