Page 111 - 4450
P. 111
змінною;
масивом;
константою;
арифметичним виразом.
Exit Sub – достроковий вихід з процедури.
Звернення до процедури – функції здійснюється за
допомогою оператора Call
Синтаксис:
Call ім'я(а1,а2, ...,аn),
де а1, а2,...,аn – фактичні аргументи.
Щоб передати в процедуру масив, достатньо після імені
його вказати пусті дужки Х().
Приклад. Задані матриці A nm та B mn (n>m)/
Нехай елементи матриць знаходяться на проміжку
[f1,f2], де f1=-20; f2=20. Обчислити матрицю С=A*B.
Формування матриці та знаходження суми елементів
матриці оформити у вигляді процедури (підпрограми).
1. Відкрити новий проект.
2. Створити командну кнопку в формі.
3. Дати нову назву цій кнопці Пуск.
4. Обов’язково встановити для властивості форми
Autoredraw значення Да(True).
5. Двічі клацнути по кнопці Пуск у формі. У вікні
Форма1(Код) (Code) з’явиться заголовок процедури та його
кінець:
Private Sub Комманда1_Click()
End Sub
Після заголовку процедури набрати текст (тіло
програми)
Option Base 1
Dim a!(), b!(), с!(), S!
Private Sub Комманда1_Click()
Dim n%, m%, i%, j%, k%, f1!, f2!, p!
m = InputBox("m=")
n = InputBox("n=")
l = InputBox("L=")
109