Функция выводит диалоговое окно, содержащее сообщение и поле для ввода значения одной переменной или нажатия кнопки; результат выполнения функции — текстовое значение.
InputBox(prompt[, title] [, default] [, xpos] _
[, ypos] [, helpfile, context])
default– текст в поле ввода по умолчанию;
Xпоз – расстояние по горизонтали между левой границей диалогового окна и левым краем экрана;
Yпоз –расстояние по вертикали между верхней границей диалогового окна и краем экрана;
Если нажимается кнопка ОК или клавиша Enter, функция возвращает пустую строку(“”).
Пример 5
Вывести в диалоговом окне (рис. 13.3) запрос на ввод значения переменной. Если значение не введено, переменной присваивается значение, заданное по умолчанию.
Рис. 13.3
Фрагмент программного кода:
Dim Msg, Title, Response, Default
Msg = "Введите число от 1 до 5"
Title = "Пример функции InputBox"
Defaut =”1”
Response = InputBox (Msg, Title, Default)
