Задания / VBA / Задание_3 / Деление без остатка

Постановка задачи:

В VB создать форму, в которую поместить кнопку «Вычислить», при нажатии на которую вычисляется сумма чисел из диапазона [1; 15], остаток от деления которых на 7 равен 0.

Остаток от деления вычисляется при помощи функции mod. i mod 7=0 –. проверяется, делится ли i на 7 нацело, т.е. остаток от деления д. б. нулём.

В результате выполнения алгоритма выясняется, что это происходит только при двух прохождениях цикла, когда i=7 и i=14. В первом случае сумма S:=0+7=7, а во втором S:=7+14=21. Во всех остальных прохождениях цикла к сумме S ничего не добавляется, так как остатки от деления i на 7 не будут равны 0.