Составить функцию для вычисления факториала - VB
Формулировка задачи:
Пожалуйста помогите составить функцию для вычисления факториала:
(5+K-1)!
Решение задачи: «Составить функцию для вычисления факториала»
textual
Листинг программы
- Private Sub Form_Load()
- Dim n&, k&, i&, fak#
- While k = 0: k = Val(InputBox("введите K >0", , 1)): Wend
- fak = 1
- For i = 1 To 5 + k - 1
- fak = fak * i
- Next
- MsgBox "5+k-1! = " & fak
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
