2.4.3. Массивы

Массив - это набор элементов определенного типа, каждый из которых имеет свой порядковый номер, называемый индексом. Количество индексов (размерность) массива может достигать 60. Объявление массива аналогично объявлению переменной и имеет синтаксис:

Dim ИмяПеременной ([НижнийПредел To] ВерхнийПредел) [As тип]

Примечание: Для объявления массива кроме оператора DIM могут использоваться операторы PRIVATE, PUBLIC, STATIC. Верхние и нижние границы каждой размерности определяются целочисленными значениями

Размер массива может задаваться тремя способами:

• объявление только верхней границы, при котором нижняя граница принимает значение, равное 0

Например:

‘объявляется массив из 15 элементов (0-14)

Dim CN(14) As Integer

Примечание. Оператор Option Base позволяет задать индексацию массива с единицы. Этот оператор должен находиться в секции (General) (Declarations):

' (General) (Declarations)

Option Base 1

• объявление нижней и верхней границы изменения индексов:

Например:

‘Объявляется массив из 15 элементов

Dim CM(1 To 15) As Integer

• Размер массива не объявляется, рамерность массива неизвестна:

Например:

Dim CM() As Integer

2.5.Использование стандартных диалоговых окон для организации ввода-вывода данных

2.5.1.Функция MsgBox

Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer, указывающее, какая кнопка была нажата.

MsgBox(сообщение[, кнопки][, заголовок][, файл справки, контекст]

Здесь:

сообщение – Строковое выражение, отображаемое как сообщение в диалоговом окне (максимальная длина 255 символов для Excel);

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

Значение по умолчанию=0.(Т.е. отображается только кнопка «ОК»).

заголовок - Строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, то в строку заголовка помещается имя приложения.

файл справки – Строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо также указать аргумент «контекст».

контекст – Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, то необходимо указывать аргумент «файл справки».

Примечание: Функцию MsgBox с двумя и более аргументами можно использовать только в выражении (присваивать переменной). Наличие «,», соответствующих отсутствующим аргументам, является обязательным.

Пример 2.1. Использование функции MsgBox.

Sub pr21()

sm = 100

MsgBox ("Результат равен " & sm)

End Sub

2.5.2.Функция InputBox

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

InputBox(сообщение[, заголовок][, умолчание][, Xпоз][Yпоз][,файл справки, контекст])

сообщение – Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина 255 символов в EXCEL.

заголовок – Строковое выражение, отображаемое в заголовке диалогового окна. Если опущен, в строку заголовка помещается имя приложения.

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

Xпоз – Числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана (в твипах). Если опущен, то диалоговое окно выравнивается по центру экрана по горизонтали.

Yпоз – Числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и краем экрана (в твипах). Если опущен, то диалоговое окно помещается по вертикали примерно на 1/3 высоты экрана.

Примечание: Если нажимается кнопка «ОК» или клавиша «Enter», функция возвращает пустую строку(“”). Функцию InputBox с двумя и большим числом аргументов можно использовать только в выражении. Наличие запятых, соответствующих отсутствующим аргументам, обязательны.

Пример 2.2. Использование функции InputBox.

Sub pr22()

Dim m, t, d, v

m = "Введите число"

t = "Пример 2"

d = "0"

v = InputBox(m, t, d)

y = MsgBox(v, vbYesNo, "Пример")

End Sub