Контрольная по программированию на 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

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