В заданном массиве подсчитать количество чисел, делящихся без остатка на 7 - VB
Формулировка задачи:
1) создать экранную форму, разместив на ней элементы управления: кнопку и два тек-стовых поля – одно для ввода чисел, другое – для вывода результата вычислений;
2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта;
4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления.
В заданном массиве подсчитать количество чисел, делящихся без остатка на 7:
28 21 26 14 63 28 33 19 21 22
Решение задачи: «В заданном массиве подсчитать количество чисел, делящихся без остатка на 7»
textual
Листинг программы
For Each c In Array(28, 21, 26, 14, 63, 28, 33, 19, 21, 22) If c Mod 7 = 0 Then k = k + 1 Next MsgBox k
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д