VBA-4_Одномерные_массивы
.doc
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 |
||
5 |
||
6 |
|
|
7 |
||
8 |
|
|
9 |
|
|
10 |
|
|
11 |
||
12 |
|
|
13 |
|
|
14 |
|
|
15 |
||
16 |
||
17 |
Одномерные массивы