Программный код для реализации в виде процедуры
Private Sub CommandButton1_Click()
n = Val(Text1.Text)
m
= Val(Text2.Text)
Call factpro(n, p1)
Call factpro(m, p2)
Call factpro((n - m), p3)
c = p1 / (p2 * p3)
Label3.Caption = c
End Sub
Public Sub factpro(n1 As Single, p As Double)
Dim i As Single
p = 1
For i = 1 To n1
p = p * i
Next i
End Sub
При обращении к процедуре формальные значения заменяются фактическими. При этом можно разделить переменные на входные и выходные. Функции возвращают только одно значение,а процедуры могут иметь несколько выходных переменных.