Составить функцию для вычисления факториала - 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