Введение в информатику. Хамухин А.А. - 86 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

85
Нумерация массивов VBA может начинаться с 0 или 1. Конкретный способ
указан в инструкции Option Base в начале модуля. Так, Option Base 0 задает
нумерацию всех массивов по умолчанию с 0, a Option Base 1 с 1. В отсутствие
инструкции Option Base нумерация массивов по умолчанию начинается с 0. Но в
следующих примерах мы для простоты считаем, что она начинается с 1.
3.7.2. Использование массива
Что можно делать с массивом после его объявления? Вот пример использования
трехэлементного целочисленного массива в программе Рro14.
Option Base 1
Sub Pro14()
Dim Vals(3) As Integer
Vals(1) = Int(100 * Rnd())
Vals(2) = Int(100 * Rnd())
Vals(3) = Int(100 * Rnd())
MsgBox "Lottery Numbers: " & Vals(1) &","&_
Vals(2) & ", " & Vals(3)
End Sub
В строке 3 объявлен одномерный массив Vals, содержащий 3 числа типа Integer.
В строках 46 элементам этого массива присваиваются значения. Операторы
присваивания для элементов массива выглядят точно так же, как операторы
присваивания для переменных, за исключением того, что надо каждый раз
указывать номер элемента, которому присваивается значение. Номер указывается
всегда в круглых скобках после имени массива.
Обратите также внимание на формулу в правой части операторов
присваивания строки 46. В ней для генерации случайного целого числа от 0 до 100
используются встроенные функции VBA Rnd и Int. Первая из них (Rnd) генерирует
вещественное псевдослучайное число в интервале от 0 до 1 и может содержать один
аргумент «начальное» число для генерации различных псевдослучайных
последовательностей.
Функция Int преобразует действительное число в целое, удаляя все цифры после
десятичного разделителя (то есть, всегда округляя до меньшего). Умножая
случайное число, полученное функцией Rnd, на 100 и отбрасывая дробную часть,
получаем случайное целое, принадлежащее диапазону от 0 до 100. Применив эту
формулу трижды, мы зададим в массиве Vals три произвольных целых числа. В
строке 7 Рro14 элементы массива, каждый со своим индексом, передаются в
функцию MsgBox. Подчерк в конце строки 7 служит для продолжения длинной
инструкции на другой строке.
В следующем примере показано, как использовать массив типа Variant.
Sub Pro15()
Dim Data(3) As Variant
Data(1) = "IVAN"
Data(2) =85

Страницы