де:
• ім'я — це ім'я процедури, що створюється;
• аргументи — імена змінних, значення яких використовуються функцією і повертаються у процедуру виклику;
• тип — це тип значень, які повертає функція.
Зауваження. Квадратні дужки у синтаксичній формулі вказують на необов’язковість наявності параметра.
Приклад .
Процедура, що виконує друкування значень, має вигляд
Sub PR (X,Y)
Printer.FontName = "Arial" ' установлення шрифту
Printer.FontSize = 16 ' установлення розміру шрифту
Print X; Y
End Sub
Оператор вводу InputBox.Цей оператор використовується для введення і збереження вхідних даних. Результатом роботи цього оператора буде виведення на екрані діалогового вікна із запитом для введення значень. Синтаксис:
InputBox (< повідомлення > [, < заголовок > ] [,< значення > ] [, < x, y > ])
Де < повідомлення > та < заголовок > - довільні, які беруться у лапки (“), < значення > - значення змінної, а < x, y > - координати лівого верхнього кута вікна на екрані. Якщо будь-який елемент оператора замовчується , ставляться коми. Приклад:х = InputBox (“х =” , “ Проект ” , , 400, 400)
У виведеному діалоговому вікні в поле вводу внести значення змінної і натиснути ОК. Введене значення присвоюється змінній і управління передається наступному оператору в програмі. При натисканні Cancel, дія відміняється.
Оператор присвоювання.Використовується в арифметичних виразах. Синтаксис: < змінна > = < арифметичний вираз >
Оператор виведення MsgBox. Цей оператор використовується для одержання від користувача відповідей (“Так” або “Ні”) на короткі повідомлення. Синтаксис:
MsgBox<повідомлення > [, число ] [, < заголовок > ]
Де <повідомлення > і < заголовок > - довільні символи, число – цифра в залежності від якої змінюється вигляд вікна (наприклад, 16 – повідомлення про помилку, 64 – інформаційне повідомлення, 3 – кнопки Да, Нет, Отмена). Повідомлення може включати арифметичний вираз, якій задається через функцію Str ().
Приклади:
1. MsgBox“Процес обчислення завершено”, 1, “Проект”
2. MsgBox(“х=” + Str (x) + “ “ + ” x+sin(x)=”+Str (x+Sin(x))), , "проект"
Результатом виконання буде виведене вікно з результатом розрахунку, передбачається що значення “х” було вказано раніше :
Приклад. Розв’язок квадратного рівняння:
Private Sub Command1_Click()
Dim a, b, c, D, x1, x2 As Double
a = Val(InputBox("Введіть значення а", a))
b = Val(InputBox("Введіть значення b", b))
c = Val(InputBox("Введіть значення c", c))
D = b * b - 4 * a * c
If D < 0 Then Print ("Розв'язків не існує")
If D >= 0 Then
MsgBox "Існує два розв."
x1 = (-b - Sqr(D)) / (2 * a)
x2 = (-b + Sqr(D)) / (2 * a)
MsgBox ("х1=" + Str(x1) + “ “ + ” "х2=" + Str(x2))
End If
End Sub
Оператор виведення даних Print.Дія цього оператора полягає у виведенні результатів роботи програми у вікно Immediate. Синтаксис:
Debug. Print [ список елементів виведення ]
Де до списку елементів виведення можуть входити: константи, змінні, арифметичні вирази, послідовність символів у лапках, функції Tab, Spc, String. Елементи списку відокремлюються комою (,) або крапка з комою (;). У випадку розділення комою наступна інформація друкується з нової зони (одна зона 14 позицій),. У випадку розділення крапкою з комою наступна інформація друкується безпосередньо після попередньої. Якщо елементом списку є вираз, то спочатку система обчислює значення виразу а друкує результат. Функція Tab (n) – визначає номер позиції з якої відбувається друк. Функція Spc (n) –визначаєкількість позицій, які треба пропустити. Функція String (n, “символ”) – визначає кількість символів, які друкуються.
Приклад. Розв’язок квадратного рівняння:
Private Sub Prog2 ’Квадратне рівняння
Dim a, b, c, D, x1, x2 As Double
a = Val(InputBox("Введіть значення а", a))
b = Val(InputBox("Введіть значення b", b))
c = Val(InputBox("Введіть значення c", c))
D = b * b - 4 * a * c
If D < 0 Then print ("Розв'язків не існує")
If D >= 0 Then
MsgBox "Існує два розв."
x1 = (-b - Sqr(D)) / (2 * a)
x2 = (-b + Sqr(D)) / (2 * a)
Print "x1=", x1,, "x2=", x2
End If
End Sub
