MsgBox «Готов выйти и сохранить все данные?»

Создание окна диалога

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

InputBox (Prompt, Title, Default, Left, Top)

где – Prompt – строка-сообщение, отображаемое в окне.

Title – заголовок окна.

Default – начальное значение, отображаемое в текстовом окне (области ввода).

Left – Расстояние от левой границы экрана до диалогового окна.

Top – расстояние от верхней границы экрана до диалогового окна.

При использовании функции InputBox в окне всегда появляются две кнопки – Ok и Cancel (Рисунок 7.2).

Пример:

Private Sub CommandButton1_Clickl()

FileName=InputBox(«Задайте имя файла»)

End Sub

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

Используя два дополнительных параметра функции InputBox, можно задать заголовок окна и текст, отображаемый в поле ввода по умолчанию (Рисунок 7.3.):

Private Sub CommandButton1_Clickl()

Header$=”Ввод имени файла”

FileName=InputBox («Задайте имя файла», Header$, «project.txt»)

End Sub

Рисунок 7.3. - Пример использования дополнительных параметров функции InputBox

Функция InputBox возвращает строку, тогда как функция InputBox - значение типа Variant.

Пример

Задание 1

Программа «Минимум» производит вычисление минимального элемента одномерного массива и его порядкового номера. Задан одномерный массив, состоящий из элементов .

Интерфейс с пользователем реализован в виде формы Form1 (Рисунок 7.4).

Рисунок 7.4 - Пример программа «Минимум»

Выполнение

Этап 1. Нажать на кнопку «Вычислить min».

Этап 2. Ввести последовательно значения одномерного массива с помощью окна ввода InputBox.

Этап 3. Сравнить напечатанные значения Х в MsgBox с введенными.

Этап 4. Списать результат

Программа

VBA

Sub CommandButton1_Click()

Dim x(10)

For I=1 To 7

X(I)=Val(InputBox(“Введите X(I)”))

Next I

M$=” “

For I=1 To 7

M$=M$+CStr(X(I))+Chr(10)

Next I

MsgBox M$

Xmin=x(1)

K=1

For I=2 To 7

IF X(I)<Xmin Then

Xmin=X(I)

K=I

ENDIF

Next I

MsgBox “Xmin=”+CStr(Xmin)+”K=”+CStr(K)

End Sub

Задание 2

Программа «Количество» производит определение количества отрицательных элементов в одномерном массиве Х (тот же что и в 1 задании). Интерфейс с пользователем реализован в виде формы UserForm2 (Рисунок 7. 5).