Ввод данных с помощью функции InputBox

Для ввода значения переменной можно воспользоваться функцией с именем InputBox. Она выводит на экран диалоговое окно, содержащее сообщение и поле ввода, возвращает значение типа String, содержащее текст, введенный в поле ввода.

Упрощенный синтаксис обращения к функции:

InputBox(Сообщение,[Заголовок])

У этой функции первый слева аргумент обязательный, а все остальные – необязательные. Назначение аргументов:

Сообщение – выражение типа String, отображаемое в диалоговом окне;

Заголовок – выражение типа String, отображаемое в строке заголовка диалогового окна.

Пример.

Private Sub Command1_Click()

Label2.Caption = InputBox(

”Пожалуйста, введите Ваше имя”)

End Sub

В этой процедуре вызывается функция InputBox. При выполнении эта функция выводит диалоговое окно с запросом-подсказкой на ввод данных пользователем (рис. 5.4).

Значение аргумента функции InputBox выведено в виде запроса-подсказки в окне функции InputBox. Значением функции InputBox будет строка символов, которую пользователь наберет в поле окна функции InputBox. Это возвращаемое значение функцией InputBox присваивается свойству Caption надписи Label2.

Еще один пример:

Private Sub Command1_Click()

Dim Приглашение As String

Dim ПолноеИмя As String

Dim i As Integer, s As Single

Приглашение = "Пожалуйста, введите Ваше имя!"

ПолноеИмя = InputBox(Приглашение)

Label2.Caption = ПолноеИмя

i = InputBox("Задайте значение i")

‘String -> Integer

Label3.Caption = "i=" & i ‘Integer -> String

s = InputBox("Задайте значение s")

‘String ->Single

Label4.Caption = "s=" & s ‘Single -> String

End Sub

В процедуре Command1_Click объявлены четыре переменных, в том числе переменная i целого типа и переменная s с плавающей точкой обычной точности. Этим переменным также задаются значения с помощью обращений к функции InputBox. Полученные переменными i и s значения затем отображаются в полях надписей Label3 и Label4 соответственно.