ВУЗ:
Составители:
55
Dim Vals(3) As Integer
Vals(1) = Int(100 * Rnd())
Vals(2) = Int(100 * Rnd())
Vals(3) = Int(100 * Rnd())
MsgBox "Случайные числа: " & Vals(1) &", "& _
Vals(2) & ", " & Vals(3)
End Sub
В строке 3 объявлен одномерный массив Vals, резервирующий память под три
числа типа Integer. В строках 4−6 элементам этого массива присваиваются значения.
Операторы присваивания для элементов массива выглядят точно так же, как опера-
торы присваивания для переменных, за исключением того, что надо каждый раз
указывать номер элемента, которому присваивается значение. Номер указывается
всегда в круглых скобках после имени массива.
Обратите также внимание на формулу в правой части операторов присваивания
строки 4−6. В ней для генерации случайного целого числа от 0 до 100 используются
встроенные функции VBA Rnd и Int. Первая из них (Rnd) генерирует вещественное
псевдослучайное число в интервале от 0 до 1 и может содержать один аргумент −
«начальное» число для генерации различных псевдослучайных последовательно-
стей. Такие случайные числа часто используются в статистических методах обра-
ботки данных и для моделирования помех при измерении и передаче данных.
Функция Int преобразует действительное число в целое, удаляя все цифры после
десятичного разделителя (то есть, всегда округляя до меньшего). Умножая случай-
ное число, полученное функцией Rnd, на 100 и отбрасывая дробную часть, получаем
случайное целое, принадлежащее диапазону от 0 до 100. Применив эту формулу
трижды, мы зададим в массиве Vals три произвольных целых числа. В строке 7 Pro9
элементы массива, каждый со своим индексом, передаются в функцию MsgBox.
Подчерк в конце строки 7 служит для продолжения длинной инструкции на другой
строке (рис. 2.4).
Рис. 2.4. Пример работы программы Pro9
В следующем примере показано, как использовать массив типа Variant.
Option Base 1
Sub Pro10()
Dim D(3) As Variant
D(1) = "АВ1"
D(2) =7.5
D(3) = #3/21/1989#
Страницы
- « первая
- ‹ предыдущая
- …
- 54
- 55
- 56
- 57
- 58
- …
- следующая ›
- последняя »
