Page 112 - 4450

f1 = Val(InputBox("f1="))
f2 = Val(InputBox("f2="))
ReDim a(m, n), b(n, l), C(m, l)
Print Tab(10); "Матриця А"
Call Form(m, n, f1, f2, a!())
Print Tab(10); "Матриця В"
Call Form(n, l, f1, f2, b!())
Print Tab(10); "Матриця С=A*B"
For i = 1 To m
For j = 1 To l
Call Sum(i, j, n, S)
C(i, j) = S
Next j
Next i
For i=1 To m
t = 2
For j = 1 To l
Форма1.Print Tab(t); C(i, j);: t = t + 7
Next j
Форма1.Print
Next i
End Sub

У меню Разработать вибрати команду Добавить
модуль.
У вікні Add Module обрати Новый і натиснути кнопку
Открыть.
З’явиться вікно Проект1 – Модуль1 (Код). Надрукуємо
ім’я процедури Sub Form(k,f1,f2,z!()) і натиснемо Enter.
З’явиться End Sub (кінець процедури).
Після заголовка процедури набрати текст (тіло
процедури).
Private Sub Form(k, l, f1, f2, z!())
For u = 1 To k
t = 2
For q = 1 To l
z(u, q) = Int((f2 - f1 + 1) * Rnd) + f1
Форма1.Print Tab(t); z(u, q);: t = t + 7
Next q

110