Задача: дана последовательность А1,А2,А3,…А10. Вывести сообщение на экран, если больше или меньше 5 положительных чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
Sub random1() num1 = InputBox("Введите число 1:") num2 = InputBox("Введите число 2:") num3 = InputBox("Введите число 3:") num4 = InputBox("Введите число 4:") num5 = InputBox("Введите число 5:") num6 = InputBox("Введите число 6:") num7 = InputBox("Введите число 7:") num8 = InputBox("Введите число 8:") num9 = InputBox("Введите число 9:") num10 = InputBox("Введите число 10:") col = 0 If num1 > 0 Then col = col + 1 End If If num2 > 0 Then col = col + 1 End If If num3 > 0 Then col = col + 1 End If If num4 > 0 Then col = col + 1 End If If num5 > 0 Then col = col + 1 End If If num6 > 0 Then col = col + 1 End If If num7 > 0 Then col = col + 1 End If If num8 > 0 Then col = col + 1 End If If num9 > 0 Then col = col + 1 End If If num10 > 0 Then col = col + 1 End If If col <= 5 Then MsgBox ("Количество положительных чисел не превышает 5") Else MsgBox ("Количество положительных чисел больше 5") End If End Sub |