Создание динамических массивов
Динамические массивы используют вместо массивов постоянной длины, когда размер массива заранее неизвестен. Динамические массивы создаются двумя операторами: первый из них объявляет массив, а второй определяет его размер. Объявление массива имеет такой же синтаксис, что и для массивов постоянной длины, кроме указания числа элементов ( в скобках ничего не указывается); оператор ReDim в процедуре указывает размер массива и выделяет для него память.
Синтаксис
Dim имя_массива() [as тип]
Пример
Dim a() as integer
ReDim a(1 to 5)
ReDim указывает, что число элементов в описанном массиве равно 5, с нумерацией от 1 до 5.
Оператор ReDim определяет размер массива и инициализирует его элементы в соответствии с типом данных массива. Это означает, что ReDim инициализирует нулём каждое числовое значение, строкой нулевой длины для строковых массивов, значением Empty для массивов типа Variant и значением Nothing для объектных переменных. Т.е. размеры массива можно изменять сколько угодно, но вызов оператора ReDim уничтожает все предыдущие значения элементов. Позволяет сохранить предыдущие значения элементов массива ключевое слово Preserve.
Пример
Dim a() as Integer
ReDim Preserve A(1 to 5)
6.Организация ввода-вывода данных с помощью функций InputBox и MsgBox
Функция InputBox вводит текст в диалоговое окно.
Синтаксис функции InputBox
InputBox(приглашение,заголовок,по_умол.,горизонталь,вертикаль, файл-справки, контекст)
где
приглашение - обязательный аргумент, строковое выражение, содержащее текст сообщения;
заголовок - необязательный аргумент, строковое выражение, выводимое в строке заголовка диалога.
по_умолчанию-необязательный аргумент, строковое выражение, выводимое в поле в качестве ответа по умолчанию;
горизонталь и вертикаль - необязательные аргументы, числовые выражения, определяющие расстояния по вертикали и горизонтали от левого верхнего угла диалогового окна до левого верхнего угла экрана;
файл_справки - необязательный аргумент, строковое выражение, идентифицирующее связанный файл справки;
контекст - необязательный аргумент, числовое выражение, задающее номер контекста справки (два последних аргумента должны присутствовать одновременно).
Функция InputBox возвращает строку символов, введённых пользователем. Для того чтобы вводить числовые значения необходимо использовать функцию Val, которая преобразует строку символов в число двойной точности.
Пример
Ввести в переменную S строку.
Dim s As String
s = InputBox("ВВести", "СТРОКА", "Москва")
Результатом работы будет диалоговое окно, размещённое в середине экрана вида:
Dim s As String
s = InputBox("ВВести", "СТРОКА",. 20, 10)
Результатом работы будет диалоговое окно, размещённое в левом верхнем углу вида:
В этом окне в позицию курсора нужно ввести текст, который будет записан в переменную S.
Dim x As Single
x = Val(InputBox("ВВести", "ЧИСЛО"))
Результатом работы будет диалоговое окно, размещённое в середине экрана вида:
В позицию курсора необходимо ввести число, которое будет занесено в переменную х.
Функция MsgBox отображает сообщения в диалоговое окно.
Синтаксис функции MsgBox:
MsgBox(Сообщение [, Кнопки] [,Заголовок] [,Файл справки. Номер темы])
сообщение - обязательный аргумент, строковое выражение, содержащее текст сообщения;
кнопки - необязательный аргумент, равный одному из значений предопределённого перечисляемого списка, таких как
VbOKOnly -создаёт кнопку OK.
VbOKCancel - создаёт кнопки ОТМЕНА и OK.
VbAbortRetryIgnore - создаёт кнопки СТОП, ПОВТОР, ПРОПУСТИТЬ
VbYesNoCancel - создаёт кнопки ДА, НЕТ, ОТМЕНА
VbYesNo- создаёт кнопки ДА, НЕТ
RetryCancel - создаёт кнопки ПОВТОР, ОТМЕНА
заголовок - необязательный аргумент, строковое выражение, выводимое в строке заголовка диалога;
файл_справки - необязательный аргумент, строковое выражение, идентифицирующее связанный файл справки;
номер темы - необязательный аргумент, числовое выражение, задающее номер темы (два последних аргумента должны присутствовать одновременно).
Пример
Вывести на экран сообщение “Наш институт” и создать две кнопки: ДА и НЕТ.
MsgBox("Наш институт", vbYesNo, "Вывод")
