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

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

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

 

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

 

Выполнение

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

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

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

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

 

Программа

 

VBA

Sub CommandButton 1_ 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 задании). Интерфейс с пользователем реализован в виде формы UserForm 2 (Рисунок 7. 5).

Рисунок 7.5. - Пример программы «Количество»

 

Программа

 

VBA

Sub CommandButton1_Click()

Dim X(7)

For I=1 To 7

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

Next I

M$=” “

For I=1 To 7

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

Next I

MsgBox M$

K=0

For I=1 To 7

IF X(I)<0 THEN

K=K+1

ENDIF

Next I

MsgBox “K=”+Cstr(K)

End Sub

Варианты заданий

Вариант
1	- 4.8	-6.4	3.6	-1.3	-2.1	2.3	-5.8	0.0
2	3.7	-5.4	3.6	-8.7	7.1	6.0	7.6	5.4
3	- 1.7	-1.7	3.1	9.2	5.7	-6.9	0.0	-0.4
4	- 0.7	-0.8	-4.2	-7.3	-6.8	5.6	-6.6
5	- 9.6	2.1	7.6	8.7	1.7	0.5	2.5	3.1
6	8.5	0.6	-2.2	9.8	0.1	5.9	-0.3	2.2
7	5.1	4.5	-0.8	-0.1	-6.6	7.5	-8.3
8	-8.7	2.8	2.8	4.9	-6.1	8.8	-6.6	-7.9
9	0.6	-3.9	5.3	1.0	5.2	-5.1	6.0
10	-1.4	7.7	-5.9	2.5	4.4	-4.2	5.1	-6.1
11	-8.6	5.8	-2.4	2.5	6.3	5.1	6.1	-7.9
12	-4.9	1.5	-2.6	5.3	-2.2	-6.4	-6.8	-2.8
13	20.1	1.9	0.5	9.9	7.6	-8.8	-2.0	4.1
14	9.6	5.2	-8.7	-2.6	-0.1	0.0	-1.8
15	7.1	3.9	-8.9	-6.1	2.6	3.9	8.6

Практическая работа №8

 

Тема Табулирование с неравномерным шагом

Справка

Массив – это величина, которая состоит из пронумерованного множества значений. Все значения должны быть одного типа. Их количество не должно превосходить заранее заданного числа. Для объявления массива используют оператор Dim. После имени массива указывается диапазон значений.

Пример:

Dim Summa As Single