VBA для чайников

Sub FortuneTeller()

Dim strTodaysFortune(1 To 10)

Dim intUserChoice As Integer

strTodaysFortune(1) = _

"Вы станете богатым и знаменитым на 15 минут . "

strTodaysFortune(2) = _

"Вам предстоит обед с высоким незнакомцем ."

strTodaysFortune(3) = "Стоимость ваших акций удвоится!"

strTodaysFortune(4) = _

"Вы вспомните, где положили свои ключи."

strTodaysFortune(5) = _

"Вы получите огромный букет от анонимного почитателя."

strTodaysFortune(6) = "Вы опоздаете на обед."

strTodaysFortune(7) = "Все ваши мечты сбудутся."

strTodaysFortune(8) = _

"Вам вернут взятые у вас библиотечные книги."

strTodaysFortune(9) = _

"Никто не заметит ваших разных носков."

strTodaysFortune(l0) = _

"Вы встретите своего старого друга в супермаркете."

intUserChoice = InputBox("Чтобы узнать свое будущее," _

& " введите число от 1 до 10")

MsgBox (strTodaysFortune(intUserChoice))

Кстати, этот программный код можно существенно улучшить, если добавить в него обработку неправильного ввода, возможного при ответе пользователя на запрос функции Input Box. О проблемах проверки данных при вводе говорилось в главе 10.

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

UBound [имя_массива, измерение]

Аргумент имя_массива, очевидно, задает имя массива, к которому нужно обратиться, а аргумент измерение задает целое число, которое подскажет VBA, какое измерение массива вас интересует. Если измерение не указано, функция UBound возвратит размер первого измерения массива.

При первом создании массива его элементы не содержат никакой действительной информации. В некоторый момент в программе вам необходимо будет заполнить вакантные места массива подходящими данными. Если нужно разместить сразу много данных, лучше всего для этого подойдут вложенные циклы For . . . Next, по одному на каждое измерение массива. Для счетчика цикла обычно выбирается временная переменная, объявляемая в процедуре, содержащей все эти циклы.

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

Const Size As Integer = 3

Dim dblMatrix (1 To Size, l To Size, l To Size) As Double

Sub ArrayFiller ( )

Dim I As Integer, J As Integer, К As Integer, X As Integer

X = 1

For I = 1 To Size

For J = 1 To Size

For К = 1 To Size

dbl Matrixf l, J, K) = X

X = X + 1

Next К

Next J

Next I

End Sub

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

Объяснять это только на словах слишком сложно, поэтому я собираюсь использовать рисунки. Снова обратимся к предыдущему примеру программного кода. Представим трехмерный массив в виде куба, сложенного из маленьких кубиков, означающих элементы массива.

Иллюстрация этого мысленного эксперимента показана на рис. 13.2.

Рис. 13.2. Этот чертеж представляет массив для хранения данных; стрелки с буквами соответствуют измерениям массива

Обратите внимание на то, что в главной строке этого программного кода, dblMatrix ( I, J, К) = X, переменные I, J и К представляют соответственно первое, второе и третье измерения массива. На рис. 13.2 я произвольным образом назначил эти буквы сторонам куба, задающим его измерения.

Теперь посмотрите, как эти переменные используются в циклах For . . . Next. Счетчиком внешнего цикла является I, следующего- J и последнего, внутреннего, - К. Нужно понять, что VBA начнет выполнение с внутреннего цикла, пройдя к нему сквозь все содержащие его циклы. Кубы на рис. 13.3 показывают два последовательных момента в самом начале заполнения массива из этого примера.