Порядок действий. 1. Расположите на экранной форме объекты в соответствии рис

1. Расположите на экранной форме объекты в соответствии рис. 13.18.

2. Установите значения свойства Name для текстовых полей txtn, txtm и txtc.

3.Установите значения свойства Name для кнопки — cmdSohet

4. Установите значения свойства Caption для формы, кнопки меток в соответствии с рис. 13.18.

5. Добавьте в проект универсальный модуль.

6. Установите значение свойства Name для модуля Факториал.

7. Создайте в модуле функцию для вычисления факториала числа:

Public Function fact(x As Integer) As Long

Dim p As Long

Dim i As Integer

p = 1

For i = 2 To x

p = p * i

Next i

fact = p

End Function

8. Напишите процедуру, которая будет выполняться при щелчке по кнопке < Вычислить >:

Private Sub CmdSochet_Click()

Dim n As Integer, m As Integer

Dim c As Integer

n = Val(TxtN.Text)

m = Val(TxtM.Text)

c = fact(n) / (fact(m) * fact(n - m))

TxtC = Str(c)

End Sub

9. Пpoвepьтe правильность работы проекта.

10. Сохраните проект под именем ЛР13_Зад5.