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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы