ЗАДАНИЕ 5 на тему «Оператор цикла с предусловием и постусловием»

Вводить целые числа до тех пор, пока сумма положительных нечётных чисел не превысит 20. Вывести на экран все введённые числа (нечётные числа делятся на 2 с остатком, то есть Число mod2<>0).

Решение:

Sub задание5()Dim a As Single, b As Single, s As String 'вводим переменные'b = 0 'чистим переменную'Do While b <= 20 'Проверяем условие'a = Val(InputBox(«Введите любое целое число», «Ввод данных»)) 'вводим данные в переменную's = s + Str(a) + " " 'собираем введеные числа'If (a >= 0) And (a Mod 2 <> 0) Then 'Проверяем условие'b = b + a 'вычисляем'End IfLoop
MsgBox «Введенные числа:» + vbCrLf + s 'Выводим результат'End Sub