Окно ввода

Окно ввода, как и окно сообщения, может отображаться оператором или функцией.

Функция InputBox применяется для ввода чисел или текста. Эта функция отображает диалоговое окно ввода, содержащее поле ввода и поясняющий текст.

Синтаксис оператора следующий:

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

где

Сообщение - единственный обязательный аргумента, служит подсказкой пользователю, какую информацию он должен ввести в поле ввода.

Заголовок – это надпись в строке заголовка Окна ввода.

Умолчание – это значение, которое будет отображаться (по умолчанию) в поле ввода, пока пользователь не введет свое значение. Если этот аргумент опустить, то поле ввода отображается пустым.

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

В отличие от MsgBox параметр Атрибуты отсутствует, но появляется параметр Умолчание. В этом параметре задается строка, которая по умолчанию будет находиться в текстовом поле. При нажатии кнопки ОК, содержимое поля присваивается переменной, а при нажатии на кнопку Cancel, возвращается строка нулевой длины.

ВНИМАНИЕ!!! Функция InputBox возвращает строку, а функция MsgBox возвращает значение целого типа.

Пример окна ввода InputBox:

	InputBox "Сколько денег на Вашем счете?", "Ваш баланс",
или
	InputBox "Сколько денег на Вашем счете?", "Ваш баланс", "Введи информацию"

Объединение текстовых строк

При объединение нескольких текстовых строк в одну используется символ конкатенации & (амперсенд) или + (плюс). Можно объединять числовые и символьные значения.

Практическая работа № 6-1 «Создание окон сообщений»

Спроектируйте окна сообщений с помощью MsgBox.

1. Откройте Excel, переименуйте Лист1 в «Сообщения».

2. На листе Excel создайте кнопку:

3. Присоедините к кнопке программу, в результате которой появятся окна с различными сообщениями. Например:

	MsgBox "Очистить папку?",32+4, "Очистка папки" или MsgBox "Очистить папку?", 36, "Очистка папки"
	MsgBox "У Вас заканчиваются деньги!", 48, "Предупреждение"
	MsgBox "До конца работы осталось 30 минут", 64, "Информационное сообщение"
	MsgBox "Спасите наши души!!!", 18, "SOS" Или MsgBox "Спасите наши души!!!", 16 +2, "SOS"

4. Спроектируйте несколько окон сообщений и оформите их посредством MsgBox .

5. Сохраните свою работу.

Практическая работа № 6-2 «Окружность» Используя MsgBox и InputBox для ввода и вывода значений, подсчитайте площадь окружности, если известен ее радиус.

1.Откройте Excel, переименуйте Лист1 в «Окружность».

2.Используя MsgBox и InputBox, подсчитайте площадь окружности, если известен ее радиус. Для этого:

• На листе Excel создайте кнопку.

• Присоедините к кнопке программу:

Private Sub CommandButton1_Click()

Dim S As Single, R As Single

R = InputBox("Введите радиус окружности","Площадь окружности")

S = 3.14 * R ^ 2

MsgBox "Площадь окружности = "&S&"квадратных сантиметров"

End Sub

После нажатия на кнопку ОК, получим результат:

3. Сохраните свою работу.