Dim sum As Integer, i As Byte

sum = 0

For i = 1 To 10

sum = sum + b(i)

Next

MsgBox("сумма чисел равна" + Str(sum), MsgBoxStyle.OKOnly)

End Sub

12. Запустить программу на выполнение (кнопка (Start)). В окне Отладка нажать кнопку Ввод чисел и ввести числа 1, 2, 3, 4, 5, 6, 7, 8, 9, 10. Затем нажать кнопку Сумма чисел. В результате работы процедуры btnSum_Click сумма чисел почему-то равна 0.

13. Выполнить отладку процедуры btnSum_Click.

Для этого установить точку останова в начало оператора цикла. Нажать кнопку (StartDebugging). В окне Отладка нажать кнопку Ввод чисел и ввести числа: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10. Затем нажать кнопку Сумма чисел, и после прерывания работы программы добавить в окно Watch переменные Sum, i, b(i). Выполнить пошаговое выполнение процедуры до конца. Наблюдать за значениями переменных Sum, i, b(i) в окне Watch.

Переменная i меняет свое значение на каждом шаге выполнения оператора цикла. Переменные Sum и b(i) остаются равными 0, несмотря на то, что при выполнении процедуры btnSum_Click были введены числа, отличные от 0. Ошибка в неправильном объявлении массива b.

Массив объявлен в каждой процедуре и является локальной переменной. Значение локальной переменной доступно только в той процедуре, где она объявлена. Поэтому те значения, которые вводятся в массив в процедуре btnInput_Click, не доступны в процедуре btnSum_Click. Элементы массива b процедуры btnSum_Click получили значения 0 при объявлении массива, поэтому и сумма равна 0.

Необходимо значения массива b сделать доступными для всех процедур модуля формы. Для этого его нужно объявить в секции FormOtl Declarations.

14. Внести исправления в модуль формы:

· выделить строку с объявлением массива в процедуре btnSum_Click и переместить ее в буфер обмена (команда Cut);

· вставить (команда Paste) строку из буфера обмена в секцию FormOtl Declarations;

· выделить строку с объявлением массива в процедуре btnSum_Click и удалить (клавиша Delete).

15. Проверить правильность работы процедуры btnSum_Click. Для этого запустить программу на выполнение, в окне Отладка нажать кнопку Ввод чисел и ввести числа: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10. Затем нажать кнопку Сумма чисел, и после прерывания работы программы выполнить пошаговое выполнение процедуры до конца. Наблюдать за значениями переменных Sum, i, b(i) в окне Watch. Если сумма чисел равна 55, процедура работает правильно. Завершить работу программы.

16. Самостоятельно разработать процедуру нахождения произведения чисел (элементов массива b), добавить кнопку с именем btnPr в форму. Связать разработанную процедуру c событием Click кнопки btnPr. Выполнить отладку процедуры.

17. Добавить в модуль формы процедуру нахождения среднего арифметического элементов массива, значение которых являются четными числами.

Для этого:

· добавить в форму кнопку с именем btnSa и надписью «Ср. арифм. четных чисел»;

· связать с событием Click кнопки btnSa следующую процедуру:

 

Private Sub btnSa_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSa.Click

Dim i As Byte, k As Byte