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

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

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

Решение:

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

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