End Sub. E = Val(Txt_m.Text) * 9.8 * Val(Txt_h.Text)

Dim E As Long

E = Val(Txt_m.Text) * 9.8 * Val(Txt_h.Text)

Txt_E.Text = str(E)

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

Результат роботи програми зображений на рис. 4.11.

Рисунок 4.11 – Робота програми обчислення потенційної енергії піднятого над Землею тіла

Функція InputBox.

Вбудована функція введення InputBox дозволяєвводити дані за допомогою діалогового вікна введення.

Аргументами функції є три строки, результуючим значенням - також строка.

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

Синтаксис:

InputBox (" Запрошення", " Заголовок" [ За умовчанням ])

Запрошення – значення першого текстового аргументу буде виведено у формі діалогового вікна введення;

Заголовок - значення другого текстового аргументу буде виведено в заголовку діалогового вікна введення;

За умовчанням - значення третього текстового аргументу є змістом текстового поля діалогового вікна введення. Якщо третій аргумент не вказаний, то текстове поле порожнє.

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

Приклад. Створимо стандартний проект, в який додасться автоматично форма. Виведемо на екран вікно коду натисненням пунктів меню View – Code. В процедуріподії Form_Load (завантаження форми) напишемо функції для забезпечення можливості введення імені і прізвища тестованого, а також для виведення повідомлення тестованому. Врахуємо, що строковий результат функції InputBox привласнюється змінній, котра потім поступає як один з аргументів у функцію MsgBox.

Процедура введення даних користувача і виведення повідомлення:

Private Sub Form_Load()

Дата добавления: 2015-05-24