Одномерные массивы
Массивами называются совокупности данных, объединенных одним именем. Элементы массивов называются индексированными переменными. Одномерные массивы имеют один индекс, например a(i), где a – имя массива; i – номер элемента массива. Массивы до их использования в программе должны быть объявлены в операторе Dim, например:
Dim a(5) As Single
Здесь определено, что будет использоваться одномерный массив с шестью элементами вещественного типа. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.
Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом: Dim a(5 to 10) As Single
Пример.
Написать программу вычисления суммы
элементов массива b =
{5,2; 4,5; 1; 2,9; 3}, которые записаны в первом
столбце на рабочем листе. Иначе это
условие можно записать:
Результат поместить в ячейку B1.
-
Программа без использования массива
Программа с использованием массива
SubCommandButton1_Click()
Dim b As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b = Cells(i,1)
s = s + b
Next
Range(“B1”)=s
End Sub
Sub CommandButton5_Click()
Dim b(5) As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b(i) = Cells(i,1)
s = s + b(i)
Next
Range(“B1”)=s
End Sub
Рассмотрим примеры вычисления произведения и экстремума.
-
Определить
где
t =
{0,4; –1,5; 2,8; 3; 0,9; 7,3}.
Исходные данные записаны в третьем
столбце на рабочем листе. Результат
поместить в ячейку D1:Определить максимальный элемент массива d = {12; 0,4; 30; –2; 5; 9,3} и номер этого элемента. Исходные данные записаны в пятом столбце на рабочем листе. Результаты поместить в ячейки F1и F2:
Sub CommandButton1_Click()
Dim t As Single, s As Single
Dim p As Single, k As Integer
p = 1
For k = 1 To 6
t = Cells(k,3)
p = p * sin(t)
Next
s = 2.4 + p
Range(“D1”) = s
End Sub
Sub CommandButton1_Click()
Dim d(1 To 6) As Single, max As Single
Dim n As Integer, i As Integer
For i = 1 To 6
d(i) = Val(InputBox(“Введите элемент массива d”))
Next
max = d(1) : n = 1
For i = 1 To 6
If d(i) > max Then max = d(i) : n = i
Next
MsgBox (“Максимум =” & max & “ номер = ” & n)
End Sub
Назад