Контрольная работа: Основы работы с редакторами MS Word, MS Excel и Visual Basic

If m < n Then

Label6.Caption = Fact(n) / (Fact(m) * Fact(n - m))

Label7.Caption = Fact(n) / Fact(n - m)

Label8.Caption = Fact(n)

Else

response = MsgBox("Введите n > m", vbOKOnly, "Ошибкавводаданных")

Label6.Caption = ""

Label7.Caption = ""

Label8.Caption = ""

End If

End Sub

В тексте процедуры используется вспомогательная функция, подсчитывающая значение n! Приведёмтекстданнойфункции:

Function Fact(n) As Long

If n = 0 Then

Fact = 1

Else

Fact = Fact(n - 1) * n

End If

End Function