Практикум. Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer

End Sub

Next

Next

Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer

End Sub

Next

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

Dim a(5 to 10) As Single

Dim a(5) As Single

ОДНОМЕРНЫЕ МАССИВЫ

Массивами называются совокупности данных одного типа, объединенных одним именем. Элементы массивов называются индексированными переменными.

Одномерные массивы имеют один индекс, например a(i), где a – имя массива, i – номер элемента массива.

Массивы, до их использования в программе, должны быть объявлены в операторе Dim, например:

Здесь определено, что будет использоваться одномерный массив с 6-ю элементами вещественного типа одинарной точности. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.

После объявления элементы массива могут использоваться в выражениях подобно простым переменным, но с указанием индекса в круглых скобках. Например, после приведенного выше объявления массива а(i) в программном коде можно обращаться к следующим элементам массива: а(0), а(1), а(2), а(3), а(4), а(5)

Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом:

После этого в программном коде будут доступны следующие элементы массива: а(5), а(6), а(7), а(8), а(9), а(10)

Ввод элементов массива может производиться с помощью оператора присваивания или в режиме диалога.

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

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

Sub CommandButton1_Click()

s = 0

For i = 1 To 5

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

s = s + b(i)

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

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

Sub CommandButton1_Click()

For i = 1 To 6

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

max = d(1): n = 1

For i = 1 To 6

If d(i) > max Then max = d(i): n = i

MsgBox (“Макс. Знач. =” & max & “ имеет элемент с номером ” & n)

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

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

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

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

Таблица 8.1

№	Формула для вычислений	Исходные данные

Продолжение таблицы 8.1

№	Формула для вычислений	Исходные данные

Продолжение таблицы 8.1

№	Формула для вычислений	Исходные данные

Дата добавления: 2014-01-20