Примеры задач с использованием одномерных массивов

Упражнение 2. Вычислите сумму элементов массива.

1.Откройте проект Mas1, созданный в упражнении 1. Для кнопки Command2 свойству Caption задайтезначение “Результат”.

2. Откройте окно кода формы. В разделе General объявлен массив целых чисел из 5 элементов и переменная i. Добавьте ещё одну переменную: pr As Integer, которая используется для значения суммы элементов массива.

3. Процедуру Command1_Click(), для командной кнопки “Ввод массива”, оставьте без

изменения.

4. В процедуре Command2_Click() определим сумму элементов массива и результат выведем на форму. Удалите в этой процедуре, между двумя ключевыми словами Sub и End Sub,программный код и введите другой. Изменённый программный код процедуры:

Private Sub Command2_Click()

pr = 0 ' начальное значение суммы

For i = 1 To 5

pr = pr + Mas(i) ' увеличиваем значение суммы

Next i

Print Tab(5), "Сумма элементов массива = "; pr

End Sub

5. Сохраните форму в файле с именем Form2 и проект с именем Mas2 в своей папке.

6. Запустите проект на выполнение. После щелчка на командной кнопке “Ввод массива” введите пять целых чисел. После щелчка на командной кнопке “Результат” будет распечатана сумма элементов массива.

Упражнение 3. Определите количество нулевых элементов массива.

1. Откройте проект Mas2, созданный в упражнении 2.

2. Откройте окно кода формы. В разделе General объявлен массив целых чисел из 5 элементов и переменные: i, pr. Оставьте всё без изменения. Изменится только назначение переменной pr, которая в данном упражнении используется для количества нулевых элементов массива.

3. Процедуру Command1_Click(), для командной кнопки “Ввод массива”, оставьте без изменения.

4. В процедуре Command2_Click(), для командной кнопки “Результат”, удалите программный код и введите следующий:

Private Sub Command2_Click()

pr = 0 ' начальное количество нулевых элементов

For i = 1 To 5

If Mas(i) = 0 Then pr = pr + 1 ' увеличиваем количество нулевых элементов

Next i

Print Tab(5), "Количество нулевых элементов массива = "; pr

End Sub

5. Сохраните форму в файле с именем Form3 и проект с именем Mas3 в своей папке.

6. Запустите проект на выполнение. После щелчка на командной кнопке “Ввод массива” введите пять целых чисел. После щелчка на командной кнопке “Результат” будет распечатано количество нулевых элементов массива.