VBA-4_Одномерные_массивы

3

VBA-4. Одномерные массивы

Пример 1. Программа вычисления суммы элементов массива

b = {5, 2; 4,5; 1; 2,9; 3}.

Sub CommandButton1_Click()

Dim b(1 To 5) As Single, s As Single, i As Integer

s = 0

For i = 1 To 5

b(i) = Val(InputBox(«Введите элемент массива b»))

s = s + b(i)

Next

MsgBox (“Сумма элементов массива равна ” & s)

End Sub

Пример 2. Программа определения максимального элемента массива d = {12; 0,4; 30; –2; 5; 9,3} и номера этого элемента.

Sub CommandButton1_Click()

Dim d(1 To 6) As Single, max As Single, 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

Задание для выполнения

1. Разработать программу по условиям, приведенным в таблице.

2. Создать кнопку «Сумма» и написать программу, вычисляющую сумму элементов массива из таблицы.

3. Для командной кнопки «Произведение» создать и выполнить программу, вычисляющую произведение элементов массива.

4. Для командной кнопки «Максимум» создать и выполнить программу, вычисляющую максимальный элемент массива.

№	Формула для вычислений	Исходные данные
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Одномерные массивы