ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 26.07.2024
Просмотров: 243
Скачиваний: 0
Содержание отчета
Отчет должен содержать:
номер, название и цель работы;
краткую теоретическую часть, включающую описание формата оператора цикла со счётчиком и описание назначения этого оператора в целом и его отдельных параметров;
результаты выполнения работы согласно заданию, выданному преподавателем, а именно текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;
заключение по работе.
Контрольные вопросы
Синтаксис оператора цикла со счётчиком.
Сколько раз будет выполнено тело цикла во вложенном цикле со счётчиком, если внешний цикл повторится 2 раза, а внутренний – 5 раз?
С помощью какого оператора реализуется преждевременный выход из цикла?
ЛАБОРАТОРНАЯ РАБОТА № 7
Редактор VBA. Отладка программ.
Пошаговое выполнение программы
Цель работы: получить навыки отладки программ.
Теоретическая часть
Любая программа, написанная даже квалифицированным программистом, содержит ошибки, которые выявляются и исправляются в процессе отладки программы. Кроме того, при работе с отлаженной программой пользователь может создать ситуацию, которая программой не обрабатывается корректно.
Как правило, отладка – это проверка работы и исправление ошибок программистом перед передачей проекта на тестирование.
Инструментарий отладки позволяет проконтролировать избранные участки кода приложения для локализации ошибки, выполняя приложение по шагам, останавливаясь в точках останова, даёт возможность проверить значения переменных, свойств объектов и другую интересующую информацию и выяснить, таким образом, источник ошибки.
В набор инструментария отладки Visual Basic входят такие основные инструменты, как:
панель инструментов Debug («отладка») с кнопками команд для выполнения отладки приложения;
окно Immediate («непосредственное выполнение»), предназначенное для непосредственного ввода команд, требующих немедленного выполнения;
окно Watches («наблюдение»), предназначенное для просмотра значений выражений, включенных в список просмотра;
окно Locals («локальные»), предназначенное для просмотра значений переменных;
редактор кода со встроенными возможностями просмотра переменных, констант, свойств, выражений при отладке приложения в точках останова и пошаговом выполнении приложения;
окно Call Stack («стек вызовов») для просмотра вызванных, но незавершённых процедур.
Панель инструментов Debug активизируется при выборе из меню View (Вид) команды Toolbars (Панели инструментов), а затем значения Debug (Отладка).
На панели инструментов Debug находятся кнопки, обеспечивающие работу по отладке приложения. Назначение этих кнопок описано в таблице 7.
Таблица 7
Кнопки панели инструментов Debug
|
Кнопка |
Название |
Назначение |
|
|
Start/Continue (Продолжить) |
Запускает программу или продолжает её выполнение после прерывания |
|
|
Break (Остановка) |
Вызывает прерывание программы в необходимом месте (без использования точек останова) |
|
|
End(Завершение) |
Завершает выполнение программы |
|
|
Toggle Breakpoint (Установить точку останова) |
Устанавливает точку останова на текущей строке кода |
|
|
Step Into (Шаг с заходом в процедуры) |
Осуществляет пошаговое выполнение процедуры, включая также вызываемые ею процедуры |
|
|
Step Over (Шаг без захода в процедуры) |
Осуществляет пошаговое выполнение процедуры без трассировки вызываемых ею процедур |
|
|
Step Out (Шаг с выходом из процедуры) |
Выполняет пошаговое выполнение текущей процедуры до выхода из неё |
Окончание табл. 7
|
Кнопка |
Название |
Назначение |
|
|
Locals Window (Окно Locals) |
Открывает диалоговое окно Locals для контроля значений переменных |
|
|
Immediate Window (Окно Immediate) |
Открывает окно Immediate для ввода и выполнения команд |
|
|
Watch Window (Окно Watch) |
Открывает диалоговое окно Watches для просмотра выражений, включенных в список наблюдения |
|
|
Quick Watch (Быстрый просмотр) |
Открывает окно Quick Watch для просмотра выражения и значения, которое оно возвращает в данный момент в точке останова программы или на определённом шаге при пошаговом запуске программы |
|
|
Call Stack (Стек вызовов) |
Открывает окно Call Stack, в котором представлен список выполняемых процедур |
Оборудование, инструменты и приборы: ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).
Задания
Найти ошибки и выполнить отладку программы, выданной преподавателем, согласно варианту заданий, приведенных в таблице 8.
Таблица 8
Варианты заданий
|
№ варианта |
Задание |
|
Синтаксические ошибки |
|
|
1 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsqBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение табл. 8
|
№ варианта |
Задание |
|
2 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Analiz a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение табл. 8
|
№ варианта |
Задание |
|
3 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Elze If x < y Then 'Вложенный оператор r = y Elze MsgBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение табл. 8
|
№ варианта |
Задание |
|
4 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Tnen r = x Else If x < y Tnen 'Вложенный оператор r = y Else MsgBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение табл. 8
|
№ варианта |
Задание |
|
5 |
Private Sub Анализ(BiVal x As Integer, BiVal y As Integer, _ BiRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение табл. 8
|
№ варианта |
Задание |
|
6 |
Privat Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox «Числа равные» 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
