В заданном массиве подсчитать количество чисел, делящихся без остатка на 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

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы