End Function. Виклик функції користувача здійснюється за допомогою вказування в правій частині оператора присвоєння її імені і параметрів

Виклик функції користувача здійснюється за допомогою вказування в правій частині оператора присвоєння її імені і параметрів.

Формальні параметри – імена змінних, які використовуються в записі функції. Вони не мають значень, а служать для опису функції.

Фактичні параметри – конкретні значення, для яких функція буде обчислюватись.

Обчислення функції. Якщо в тексті процедури зустрічається ім’я функції користувача, то середовищем будуть виконані такі дії:

1.Обчислюється значення фактичного параметра.

2.Передача керування до коду функції.

3.Формальним параметрам, які оголошені в заголовку функції, присвоюються значення фактичних та обчислюються вирази, записані в рядках коду функції.

4.Отримане значення присвоюється імені функції.

5.Керування передається в точку виклику функції.

Приклад1. Скласти програму для побудови таблиці мір, використовуючи нестандартну функцію, якщо 1 дюйм=2,54 см.

На форму помістимо елемент управління ListBox для виведення таблиці мір та командну кнопку CommandButton для виконання програмного коду. Формулу переведення дюймів у сантиметри запрограмуємо, як нестандартну функцію Mira.

Private Sub Command1_Click()

For а=1 to 10 step 1

Fun=Mira(a)

List1.AddItem а & “дюйм=” & Fun & ”сантиметрів”

Next

End Sub

Public Function Mira(x as integer) as single

Dim y as single

Y=x*2.54

Mira=y

End Function

Приклад2. Обчислити значення виразу, використовуючи нестандартну функцію.

1. Виділимо з виразу функцію, що повторюється f(k,p)= , к, p – формальні параметри.
2. Запишемо вираз з використанням імені нестандартної функції: y=b*Fun(a,x)+a*Fun(x,b), а,х,b – фактичні параметри.

Private Sub Command1_Click()

a=3: x=-2: b=6

y=b*Fun(a,x)+a*Fun(x,b)

Text1.Text=str(y)

End Sub

Public Function Fun(k,p as integer) as single

Dim f as single

f=sqr(k^2+sin(p))

Fun=f

End Function

Приклад3 Обчислити значення змінної g у програмі.

Private Sub Command2_Click()

x=5: n=3: k=4

g= Suma (n,x)+2* Suma (n,k)

Text1.Text=str(g)

End Sub

Public Function Suma(a,b as integer) as integer

Dim f as integer

f=2*a+b

Suma =f

End Function

Виконання програми:

1) a=n, b=x, тобто a=3, b=5, Suma (n,x)=2*3+5=11

2) a=n, b=k, тобто a=3, b=4, Suma (n,k)=2*3+4=10

3) g=11+2*10=31

Запитання та завдання.

1. Які різновиди процедур і функцій використовуються у Visual Basic?

2. Синтаксис та правила виконання процедури користувача.

3. Що таке функція користувача?

4. Синтаксис функції користувача.

5. Яка відмінність між формальними та фактичними параметрами?

6. Як відбувається обчислення функції користувача?

7. Скласти програму для побудови таблиці мір, використовуючи нестандартну функцію, якщо 1 фунт=0,453592кг.

8. Скласти програму для обчислення значення виразу з використанням нестандартної функції. , якщо x=5, a=3, n=2.

15. Табличні величини. Масиви.