Функция InputBox

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

Синтаксис функции InputBox:

InputBox(<Пояснение>[, <Заголовок>] [, <Текст>] [, <Горизонталь>] [, <Вертикаль>] [, Файл помощи, Раздел помощи])

содержит именованные аргументы (табл. 8).

Таблица 8

Аргументы функции InputBox

Аргумент	Описание
Пояснение	Строка, отображаемая как сообщение в диалоговом окне
Заголовок	Строка, отображаемая в строке заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения
Текст	Строка, отображаемая в поле ввода как используемое по умолчанию, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода изображается пустым
Горизонталь	Число, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана (в твипах; 1 дюйм = 1440 твипов). Если этот аргумент опущен, диалоговое окно выравнивается по центру экрана по горизонтали
Вертикаль	Число, задающее расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана (в твипах). Если этот аргумент опущен, диалоговое окно помещается по вертикали примерно на одну треть высоты экрана

 

Если пользователь нажимает кнопку OK или клавишу ENTER, функция InputBox возвращает содержимое поля ввода. Если пользователь нажимает кнопку Отмена, функция возвратит пустую строку ("").

Пример использования функции InputBox:

Sub primer()

Dim perem As String

' Объявление переменной perem для хранения строк

perem=InputBox("Как Вас зовут?", "Мой диалог")

' Отображение диалогового окна с полем ввода, текстом

' приглашения "Как Вас зовут?" и заголовком "Мой диалог".

' Запись в переменную perem текста введенного пользователем

' в поле после нажатия кнопки OK

MsgBox "Вас зовут " & perem,,"Мой диалог"

' Отображение окна-сообщения с введенным текстом

' из переменной perem и заголовком "Мой диалог"

End sub

Пример

Написать программу для выполнения следующей последовательности действий.

1) ввод …

… c использованием функции Inputbox текстовой строки (переменная S),

… с использованием функции Inputbox двух чисел (переменные A и B),

… непосредственно в тексте программы двух чисел (переменные C и D);

2) определение значения выражения (F) и вывод его на экран;

3) построение и вывод на экран строки, состоящей из указанных частей:

а) строка S без второго и последнего символа; б) строка 1, первый символ, которой заменяется символом с ASCII-кодом, равным 125; в) строка – текущее значение секунд.