Пример кода, использующего массив:
Dim М(0 То 30) As Single 'описание массива
Dim Nmb As Integer, Nmb1 As Integer
Dim NmbStr As String
Dim Flag As Byte
Private Sub Form_Load() 'срабатывает при выводе формы
Nmb1 = 1 'начальное значение счетчика
Text2.Text = Str(Nmb1)
End Sub
Private Sub Text1_Click() 'ввод значений массива
M(Nmb1) = Val(Text1.Text)
Nmb1 = Nmb1 + 1 'счетчик номера записи
Text2.Text = Str(Nmb1)
Textl.Text =""
M(0) = Nmb1-1 'число введенных значений
End Sub
Private Sub Command1_Click() 'вывод массива на просмотр
Label2.Caption = "Всего дней"
Label2.ForeColor = vbBlue
Text2.ForeColor = vbBlue
Text2.Text = Str (M(0))
For Nmb = 1 To Nmb1 - 1
Text3.Text = Text3.Text & Str(M(Nmb)) &";"
Next
End Sub
Private Sub Command2_Click() 'вычисление среднего значения
Dim A As Single
For Nmb =1 To Nmb1 - 1
A = A + M(Nmb)
Next
Text4.Text = Str (A/ (Nmbl - 1))
End Sub
Private Sub Command3_Click()'минимальное значение
Dim Min As Single, I As Integer
Min = 999999
For Nmb=1 To Clnt(M(0))
If M(Nmb) < Min Then
Min = M(Nmb)
End If
Next
Text5.Text = Str(Min)
End Sub
Private Sub Command4 Click() 'максимальное значение
Dim Max As Single
Max = -999999
For Nmb = 1 To Clnt (M(0))
If (M(Nmb) > Max) Then Max = M(Nmb)
Next
Text6.Text = Str(Max)
End Sub
Private Sub Command5_Click() 'Очистка
Text1.Text =
Text2.Text =
Text3.Text =
Text4.Text =
Text5.Text =
Text6.Text =
Nmb1 = 0
For Nmb = 1 To M(0)
M(Nmb) = 0
Next
M(0) = 0
Label2.Caption = "Индекс(день)"
Label2.ForeColor = vbBlack
Text2.ForeColor = vbBlack
End Sub
Private Sub Command6_Click() 'выход
End
End Sub
В этом примере (рис. 43) рассчитывается среднее значение температуры нескольких дней и выбираются наименьшее и наибольшее значения.
Рис. 43
Массив объектов
Массивы могут состоять не только из чисел, но и из строк, объектов. Следующая программа (рис. 44) демонстрирует работу с массивом объектов, картинок. Форма приложения является библиотекой объектов OLE-рисунков PaintBrush.
Рис. 44
На форме устанавливаются объекты управления, в которых помещаются изображения. Объектами выбираются контейнеры OLE из стандартного набора Tollbox.
Пиктограмма этого инструмента показана на рис. 45. После размещения контейнера OLE на экранной форме появляется системное окно Windows. Для того чтобы картинка целиком умещалась в границах объекта OLE на экранной форме, следует установить значение свойства SizeMode этого объекта равным Stretch или Autosize.
Рис. 45
Код приложения:
Private Sub Command 1_Click() 'выбор из массива по
'значению TabIndex=0
OLE1(Command1.Tablndex).Visible = True
End Sub
Private Sub Command2_Click() 'выбор из массива по
'значению TabIndex=1
OLE1(Command2.Tablndex).Visible = True
End Sub
Private Sub Command3_Click() 'выбор из массива по
'значению TabIndex=1
OLE1(Command3.Tablndex).Visible = True
End Sub
Многомерный массив
Массивы могут быть и многомерными. В таких массивах присутствует несколько диапазонов значений индексов, которые записываются через запятую в скобках после имени массива. Пример объявления двумерного и трехмерного массивов:
| DimМассивА(1 То 100, -5 То 4) As Double DimМассивВ(19,49,100) As String* 10 |
Упражнение 8
• Сделать приложение по рис. 43.
• Запустить приложение, проверить работу.
• Сделать приложение по рис. 44. Массив объектов OLE делается копированием вынесенного на форму объекта. Выбор объекта сделать по рис. 46.
Рис. 46
• Заполнение контейнеров OLE выполняется через редактор Paint-Brush
(рис. 47).
Рис. 47
• Запустить приложение, в процессе работы отредактировать рисунки.