Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.19
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.19

4. Простейшие функции и процедуры. Типы переменных

Первая строка объявляет одномерный массив (вектор), состоящий из 20 целых чисел, причем по умолчанию первый элемент массива будет А(0), а последний - А(19).

Вторая строка объявляет двумерный массив 6x6 (матрицу), состоящий из действительных чисел. При этом говорят, что 0 - базовый индекс. Можно изменить базовый индекс, написав в начале листа модуля оператор Option Base 1. После этого индексы массивов А и В будут начинаться с единицы. Другим способом изменения базового индекса является использование ключевого слова То при объявлении массива, например

Dim ВЦ То 6, 1 То 6) As Single Dim A(l То 20) As Integer

Массив в программе определяется поэлементно, например

Dim My_Array(l То 2, 1 То 2) As Single My_Array(l, 1)=2 My_Array(l, 2)=4 My_Array(2, 1)=1 My_Array(l, 2)=6

Удобным способом определения одномерных массивов является функция Array, преобразующая список элементов, разделенных запятыми, в вектор из этих значений и присваивающая ему тип Variant, например

Dim Al As Variant

Al = Array(15, 25, 35)

Bl = Al(2)

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

Dim R__dinam( ) As Single

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

ReDim R_dimam(n/ n)

Программирование в среде Visual Basic for Applications

При описании типов переменных, являющихся параметрами функций или процедуры, Dim опускается. В примере, приведенном в разд. 4.1, параметр х функции функция и вычисляемое в функции значение по умолчанию имеют тип Variant. Так как по смыслу задачи х и функция являются действительными числами, то данную функцию пользователя можно также записать следующим образом (с явным указанием типов):

Public Function функция (х As Double) As Double

функция = Sin (Application. Pi () *x) *Exp (--2 *x) End Function


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta