Ввод и вывод данных с помощью системных функций InputBox() и MsgBox()

Для ведения диалога с пользователем, ввода и вывода данных, могут быть использованы системные функции VisualBasicInputBox() иMsgBox(). Ввод данных вVisualBasicможет осуществляться с помощью системной функцииInputBox(). Данная функция возвращает строку символов и имеет следующий синтаксис:

Variable=InputBox(“Сообщение“,”Заголовок”,”Значение по умолчанию”)

В результате выполнения приведенного выше фрагмента программного кода, на экране должно появиться окно, содержащее заголовок, текст сообщения , кнопки и поле ввода (см. рис. 4):

Рис. 4. Окно системной функции Visual Basic InputBox().

Функция InputBox(), при нажатии пользователем на кнопкуOkвозвращает строку символов (тип переменнойString). Если же пользователь нажмет на кнопкуCancel, то функция возвратит пустую строку, в независимости от содержимого поля ввода.

Для вывода данных можно воспользоваться системной функцией MsgBox(). Данная функция выводит сообщения на экран монитора и возвращает целочисленное значение кода нажатой пользователем кнопки. Функция имеет следующий формат:

<Переменная>=MsgBox(“<Сообщение>”,<значок>+<набор кнопок >,”<Заголовок>”)

Например, при выполнении следующей строки программного кода:

z=MsgBox(“Сообщение”,vbCritical+vbAbortRetryIgnore, “Заголовок”)

на экран будет выведено окно сообщения, изображенное на рисунке 5.

Рис 5. Окно сообщения системной функции MsgBox во время выполнения программы.

В таблице 5 представлены основные константы VisualBasic, используемые в качестве параметров функцииMsgBox().

Наряду с функцией MsgBox(), для вывода информации вVisualBasicсуществует операторMsgBox. Оператор, в отличие от функции не возвращает значение. ОператорMsgBoxимеет тот же набор параметров, что и функция.

Напишем программу для приведенного выше примера, используя для ввода и вывода функцию InputBox() и операторMsgBox. Блок-схема алгоритма останется точно такой же, как и в предыдущем разделе. Форма приложения будет выглядеть, как показано на рисунке 6.

Рис. 6. Изображение формы приложения

Private Sub Command1_Click()

Dim x As Single, y As Single, a As Single

x = CSng(InputBox(“Введитеx=”,”Ввод данных”,”3” ))

a = CSng(InputBox(“Введитеa=”,”Ввод данных”,”35” ))

a = 3.1415926 * a / 360

y = Sqr(Abs(Sqr(Abs(x – 7 * Cos(a))) / Log(x – 3)))

MsgBox “y=”+CStr(y)

End Sub

Private Sub Command2_Click()

End

End Sub

Таблица 5. Основные параметры системной функции InputBox().

Изображения значков
Значок	Константа
	vbCritical
	vbExclamation
	vbInformation
	VbQuestion
Наборы кнопок
Константа	Набор кнопок и возвращаемые значения
vbOkOnly	1
vbOkCancel	1 2
vbAbortRetryIgnore	3 4 5
vbRetryCancel	4 2
vbYesNo	6 7
vbYesNoCancel	6 7 2

ПРИМЕР ВЫПОЛНЕНИЯ ЗАДАНИЯ:

Задание.Составить блок-схему алгоритма и написать программу вычисления арифметического выражения на языке программированияVisualBasic. Параметрыиввести, используя текстовые окна, а параметрыиввести при помощи системной функцииInputBox().

Private Sub Command1_Click()

Dim x As Single, y As Single

Dim a As Integer, b As Integer

Dim Z As Single, K As Single, F As Single

a = CInt(Text1.Text)

b = CInt(Text2.Text)

x = CSng(InputBox("x="))

y = CSng(InputBox("y="))

Z = x ^ 5 - x * x * y + x / y^2 + y ^ 3

K = 1 - x / a + y / b * Tan(x + a)

F = Cos(x - a) ^ 2 + Z / K

MsgBox "F=" + CStr(F)

End Sub

Private Sub Command2_Click()

End

End Sub

Блок-схема будет иметь вид:

ЗАДАНИЕ:

Составить блок-схему алгоритма и написать программу вычисления арифметического выражения на языке программирования VisualBasic. Параметрыиввести, используя текстовые окна, а параметрыиввести при помощи системной функцииInputBox().

.

Private Sub Command1_Click()

Dim x As ______, __As Single

Dim a As _______, __As Integer

Dim Z As ______, __As Single, F As ______

a = CInt(_____.Text)

b = ____(Text2.____)

x = ____(InputBox("x="))

y = CSng(________("y="))

Z = _____ + x * x * y + ________ + _ ^ _

K = _____ / _ + _ / _ * ____(__ + a)

F = Sin(_____) ^ 2 + _ / _

MsgBox "F=" + ____(F)

End Sub

Private Sub Command2_Click()

End

End Sub