Контрольная по программированию на VBA для Excel Задание 5 Второй вариант.
ЗАДАНИЕ 5 на тему «Оператор цикла с предусловием и постусловием»
Вводить целые числа до тех пор, пока сумма положительных нечётных чисел не превысит 20. Вывести на экран все введённые числа (нечётные числа делятся на 2 с остатком, то есть Число mod2<>0).
<br> Решение:
Sub задание5()<br> Dim a As Single, b As Single, s As String 'вводим переменные'<br> b = 0 'чистим переменную'<br> Do While b <= 20 'Проверяем условие'<br> a = Val(InputBox("Введите любое целое число", "Ввод данных")) 'вводим данные в переменную'<br> s = s + Str(a) + " " 'собираем введеные числа'<br> If (a >= 0) And (a Mod 2 <> 0) Then 'Проверяем условие'<br> b = b + a 'вычисляем'<br> End If<br> Loop<br> MsgBox "Введенные числа:" + vbCrLf + s 'Выводим результат'<br> End Sub