Самостоятельно

1. Создать функцию, выводящую в поле метки произведение 2 чисел.

2. Вывести в элемент СПИСОК 10 ответов (значений y ) для выражения y = 2 x + cos x. Использовать цикл для вывода и функцию для вычисления.

3. Написать программу, вычисляющую площадь заштрихованной поверхности, если известны радиусы. Использовать подпрограмму, а потом функцию. (2 решения одной задачи)

Площадь круга находится по формуле: S = пR²

Определение точки входа в программу (запуск проекта с нужной формы)

Если в проекте всего одна форма, не возникает вопроса – с чего начать выполнение программы. Но если в проекте много форм и требуется определить, с какой формы начинать – для этого используется диалоговое окно изменения свойств проекта:

1. Из меню Project выберите пункт Project1 Properties.

2. Из раскрывающегося списка Startup Object вкладки General выберите нужную форму.

3. ОК

Выбор подпрограммы Main() точкой входа проекта

В раскрывающемся списке Startup Object вкладки General, кроме форм, есть еще одна точка входа – Sub Main.

Подпрограмма Main() – специальная процедура, зарезервированная Visual Basic для использования в качестве стартовой процедуры для любого проекта. Подпрограмма Main должна быть объявлена в модуле, причем в проекте может быть только одна подпрограмма Main().

После того как подпрограмма Main () выбрана в качестве загрузочного объекта, не­обходимо создать подпрограмму Main () (как вы помните, это нужно сделать в моду­ле). Можно воспользоваться диалоговым окном Add Procedure, с которым вы уже ра­ботали при создании пользовательских подпрограмм и функций, или же ввести объ­явление вручную в разделе General выбранного модуля.

Помните, что проект может содержать только одну подпрограмму Main ()! После создания подпрограммы Main () необходимо ввести в нее код, который должен выполняться при загрузке программы.

Ниже приведена подпрограмма Main(), которая сначала отображает две формы с помощью метода Show, а затем оповещает об этом пользователя с помощью окна сообщения.

Sub Main()

' Используем метод Show для отображения двух форм при запуске программы

frmMain.Show

frmOther.Show

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

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 которой будет происходить остановка программы.

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

6. Procedure Step Пошаговое выполнение программы, при котором (Step over)

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

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

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

8. Locals Window Отобразить окно Locals

9. Immediate Отобразить окно Immediate

Window

10. Watch Window Отобразить окно Watch

11. Quick Watch Вычислить значение заданного выражения.

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

12. 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 пункта: