Упражнение 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. Запустите проект на выполнение. После щелчка на командной кнопке “Ввод массива” введите пять целых чисел. После щелчка на командной кнопке “Результат” будет распечатано количество нулевых элементов массива.