Вычислить произведение чисел от 1 до N (Excel) - VBA
Формулировка задачи:
Разработайте программу, вычисляющую произведение чисел от 1 и
по порядку до указанного пользователем числа.
Решение задачи: «Вычислить произведение чисел от 1 до N (Excel)»
textual
Листинг программы
- Sub Александр9797()
- n = InputBox("N")
- [A1] = f(n)
- MsgBox A1
- Debug.Print A1
- End Sub
- Function f(ByVal x As Long) As Long
- If f = 0 Then f = 1
- If x > 1 Then
- f = f(x - 1) * x
- End If
- End Function
- 'N = 5
- 'N! = 1*2*3*4*5 = 120
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
