InputBox (повідомлення (,заголовок)(,текст)),
де повідомлення — текст у діалоговому вікні (максимальна довжина 1024 символи); для розділення рядків використовують символи Chr(10) та Chr(13); заголовок — назва діалогового вікна; текст — текст, який відображатиметься в полі введення за замовчуванням; якщо аргументу немає, то поле введення порожнє.
Функція MsgBox використовується для відображення на екрані повідомлень, проміжних чи кінцевих значень обчислень та іншої інформації. Вона виводить на екран діалогове вікно, яке містить заголовок і відповідну інформацію, та встановлює режим очікування для вибору користувачем кнопки. Кількість та тип кнопок, які відображаються в діалоговому вікні, користувач може задати. Після вибору кнопки функція набуває ціле значення, яке вказує на те, яка кнопка була натиснута.
Функція MsgBox записується так:
MsgBox (повідомлення (,кнопки)(,заголовок)),
де повідомлення — текст у діалоговому вікні; кнопки — вираз, який вказує на кількість кнопок; тип інформаційного діалогового вікна, визначає основну (активну) кнопку та модальність вікна; заголовок — назва діалогового вікна.
Значення аргументу кнопки та значення, яке приймає функція після натискання відповідної кнопки, можна подавати у вигляді числа або за допомогою відповідної константи.
Математичні функції
У мові VB містить стандартний набір математичних функцій, обов’язковим аргументом є числовий вираз.
Abs(х) — відображає абсолютне значення числа х;
Аtn(х) — обчислює арктангенс кута х, де х — кут у радіанах;
Cos(х) — обчислює косинус кута х, де х — кут у радіанах;
Exp(x) — обчислює значення функції ех;
Sin(x) — обчислює синус кута х, де х — кут у радіанах;
Sqr(x) — обчислює корінь квадратний числа х, якщо х від’ємне, відображає помилку;
Tan(x) — обчислює тангенс кута х, де х — кут у радіанах.
Функції перетворення типів
Мова VB містить функції, які дозволяють перетворювати дані одного типу в інший. Їх використовують для забезпечення контролю за типами даних у виразах.
Функції дати та часу
Функції дати та часу зазвичай використовуються для одержання поточної дати та часу, розбиття значення дати на її складові частини або для перетворення тексту та числа в значенні типу Date.
Текстові функції
Текстові функції часто використовують для знаходження заданого тексту всередині іншого тексту, для порівняння одного рядка з іншим, копіювання вибраних фрагментів тексту.
Приклад (процедура лінійного процесу): Скласти процедуру, яка моделює роботу найпростішого касового апарата для визначення вартості товару, що обчислюється за формулою:
Вартість = Ціна * Кількість.
Позначимо величини: вартість — v, ціна — t, кількість — k.
Текст процедури:
Sub calculator()
Dim k As Integer
Dim t, v As Currency
Dim mes, style, title, rez As String
t = InputBox("Введіть ціну товару", "Ціна", "0,00")
k = InputBox("Введіть кількість", "Кількість", "0")
v = t * k
mes = "Ціна" & t & Chr(13) & "Кількість=" & k _
& Chr(13) & "Вартість=" & v
style = vbInformation + vbYesOnly
title = "Результат"
rez = MsgBox(mes, style, title)
End Sub
У процедурі змінні t, v, k описані явно, а змінні mes, style, title, rez — неявно.
У процесі виконання процедури на екрані з’являться діалогові вікна Ціна та Кількість для введення даних та вікно Результат з обчисленою вартістю.
Приклад (процедура повного розгалуження зі складеною умовою: створити процедуру для обчислення функції, заданою формулою:
.
Текст процедури:
Sub функція()
Dim x, y As Double
x = InputBox("Введіть значення х")
If x >= 100 Or x <= 10 Then
y = 2 * x + 7
Else
y = Exp(0.1 * x)
End If
MsgBox y
End Sub