Лаб. раб. VBA / Одномерные массивы
.docОдномерные массивы
Пример 10.
Формирование массива в программе с помощью последовательности операторов.
Постановка задачи. Реализовать на языке VBA алгоритм поиска наибольшего элемента последовательности с определением его местонахождения.
Технология выполнения задания:
1.Набрать в стандартном модуле проекта следующую пользовательскую процедуру:
Sub primer()
Const n = 10
Dim N_max As Integer
Dim i As Integer
Dim Max As Single
Dim B(1 To n) As Single
B(1) = 0.2: B(2) = 1.4: B(3) = 0.6
B(4) = 0.121: B(5) = 0.77: B(6) = 9.45
B(7) = 8.21: B(8) = 0.4: B(9) = 0.3
B(10) = 4.11
Max = B(1)
N_max = 1
For i = 2 To n
If B(i) > Max Then
Max = B(i)
N_max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub
2. Вычислить (F5)
Пример 11.
Использование функции Array (массив) для задания одномерного массива.
Постановка задачи. Прежняя.
Технология выполнения задания:
1.Набрать в стандартном модуле проекта следующую пользовательскую процедуру:
Option Base 1
Sub primer()
Dim i As Integer
Dim Max As Single
Dim N_Max As Integer
Dim B As Variant
B = Array(0.1, 1.12, 3.12, 0.45, 101.47, 12.4, 10.12, 10.11, 6.47, 13.4)
Max = B(1)
N_Max = 1
For i = 2 To 10
If B(i) > Max Then
Max = B(i)
N_Max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub