Оповещаем пользователя

MsgBox " Формы загружены"

End Sub

ТЕСТИРОВАНИЕ И ОТЛАДКА ПРОГРАММ

Для тестирования и отладки программы используется панель инструментов Debug (отладка), которую можно подключить по пути:

Меню – View – Toolbars – Debug

1 2 3 4 5 6 7 8 9 10 11 12

Или работать через линейку меню, пункт Debug

1. Run/Restart Запуск программы с текущей точки или сначала.
2. Break Прервать выполнение программы.
3. End Закончить выполнение программы.
4. Toggle Установить точку остановки, перед выполнением

Breakpoint которой будет происходить остановка программы.

1. Single Step Пошаговое выполнение инструкции (Step into) программы.
2. Procedure Step Пошаговое выполнение программы, при котором (Step over)

выполнение подпрограмм и вызов функций происходят за один шаг.

1. Procedure Выполнить программу до точки выхода из

Step Out текущей процедуры.

1. Locals Window Отобразить окно Locals
2. Immediate Отобразить окно Immediate

Window

1. Watch Window Отобразить окно Watch
2. Quick Watch Вычислить значение заданного выражения.

Используется в режиме останова программы (обсуждается далее в главе).

1. Calls Отобразить вызовы процедуры, задействованной в настоящий момент.

Для выработки навыков отладки найдите следующее приложение (выбор большего – оно было написано ранее):

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

Dim e As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

d = CInt(Text4.Text)

e = CInt(Text5.Text)

Text6.Text = Greater(a, b, c, d, e)

End Sub

Public Static Function Greater(a, b, c, d, e)

Dim Max As Integer

Max = a

If Max < b Then Max = b

If Max < c Then Max = c

If Max < d Then Max = d

If Max < e Then Max = e

Greater = Max

End Function

Первые три пункта меню понятны, начинаем разбирать с 4 пункта: