End Sub. В данном примере для выбора чисел, кратных М используется оператор Mod, который вычисляет остаток от деления

В данном примере для выбора чисел, кратных М используется оператор Mod, который вычисляет остаток от деления. Если число кратно М, то остаток от деления на М равен нулю. Обратите также внимание на использование блочной формы оператора If.

Вычисление произведения. Вычисление конечного произведения представляет собой процесс нахождения произведения заданного количества сомножителей по формуле

.

Как и суммирование, вычисление произведения организуется с помощью циклического процесса по рекуррентному соотношению

.

В отличие от суммирования начальное значение произведения должно быть равно единице.

Алгоритм нахождения произведения представлен на рис. 9.7.

Пример 19. Вычислить факториал числа N.

Формула для вычисления факториала имеет вид:

.

Как видно из формулы, вычисление факториала числа N сводится к нахождению произведения n сомножителей.

Sub Demo_Proizvedenie()

Dim n, i, u As Integer

Dim p As Double

n = InputBox("Введите число n= ", "Запрос программы")

p = 1

For i = 1 To n

u = i

p = p * u

Next i

MsgBox "Факториал чисел от 1 до " & n & " равен " & p, , "Решение задачи"