Page 115 - 4450

no = Текст1.Text
n = Текст2.Text
m = Текст3.Text
k = Текст4.Text
Call R(n, k, R1)
Call R(no - n, m - k, R2)
Call R(no, m, R3)
D = R1 * R2 / R3
Текст5.Text = D
End Sub
5. Потім введемо код підпрограми R(u,v,R):
Private Sub R(u, v, R)
Dim C1!, C2!, C3!
Call Fakt(u, C1)
Call Fakt(v, C2)
Call Fakt(u - v, C3)
R = C1 / C2 / C3
End Sub
6. Після цього або перед цим (порядок розміщення
процедур не має значення) вводимо код підпрограми
Fakt(z,p).
Private Sub Fakt(z, p)
p = 1
For i = 1 To z
p = p * i
Next i
End Sub
7. Клацнемо кнопку Начать на панелі інструментів.
8. Введемо в текстові поля початкові дані. Четверте
вікно заповнюємо останнім і клацаємо на п’ятому. При цьому
четверте вікно втрачає фокус і починає виконуватись головна
процедура, яка відповідає такій події. У п’ятому вікні
з’явиться результат (рис.18.3)
У Basic N і n не відрізняються, тому замість імені змінної
N використовуємо ім’я n o.
Коли головна процедура звертається до підпрограми
R(u,v,R), наприклад, за командою Call R(k,n,R1), то
формальні параметри заміщуються фактичними, так ніби u=k,
v=n, а результат R1=R. За наступною командою Call(no-n, m-
k, R2) u=no-n, v=m-k, а результатом стане R2 і т.д. В свою

113