Page 108 - 4450

1) формальні параметри визначаються фактичними
аргументами;
2) виконується процедура, в якій ім’я приймає значення;
3) значення передається в головний модуль.

Приклад. Обчислити P=arctg a+4.7b, де а – сума
компонентів вектора х; b – сума компонентів вектора y;
x(1.5; -6.7; 8.35; -1.9; 0.7)
Компоненти вектора y обчислюються за формулою
Yi=xi /cos i
Нехай ім’я процедури Function SV.

1. Відкрити новий проект.
2. За допомогою елемента CommandButton створити
командну кнопку в формі.
3. Змінити стандартний напис на командній кнопці
(властивість Caption) на Пуск.
4. Обов’язково встановити для властивості форми Autoredraw
значення Да (True).
5. Двічі клацнути по кнопці Пуск у формі. У вікні
Форма1(Код) з’явиться заголовок процедури та його кінець:
Private Sub Команда1_Click()

End Sub
6. Після заголовка процедури набрати текст (тіло
програми).
Option Base 1
Dim y!
Private Sub Команда1_Click()
Dim a!, b!, p!
N=InputBox(“n=”)
ReDim y(n)
X=Array(1.5, -6.7, 8.35, -1.9, 0.7)
Print “Вектор y”
For i=1 to n
Y(i)=x(i)/cos(i)
Print y(i);Spc(3);
Next і: Print
A=SV(5,x)
B=SV(n,y)

106