У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 3Инструкции перехода Инструкции перехода относятся к управляющим конструкциям VB ко

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 6.3.2025

Лабораторная работа №3 Инструкции перехода

Инструкции перехода относятся к управляющим конструкциям VBA, которые включают операторы ветвления (условного перехода), цикла и безусловного перехода.

Ветвление организуется с использованием двух инструкций условного перехода: If… Then... Else и Select Case. В них проверяется соответствие каким-то условиям и в зависимости от этого выполнение программы направляется по одной или другой ветви. Для осуществления безусловного перехода в определённое место программы в VBA предусмотрена инструкция безусловного перехода GoTo.

  1.  Инструкции перехода по условию

Упражнение 1

  1.  Изучите п. 2.1.1.1 Инструкции  перехода и условного перехода If…Then…Else пособия Теория_к_лаб_3.doc.
  2.  Скопируйте из указанного пособия и вставьте в модуль и выполните процедуры IfThenElse, IfThenElse1, IfThenElse2, IfThenElse3 и проанализируйте результат выполнения процедур.

Примечание

На уровне стандартного модуля, в котором находится процедура
IfThenElse2, помещена инструкция Option Compare Text. Инструкция Option Compare применяется на уровне модуля перед первой процедурой модуля для задания используемого по умолчанию способа сравнения строковых данных.

Упражнение 2

Изучите инструкцию Option Compare Binary | Text | Database, которая указывает способ сравнения строк.

Упражнение 3

Скопируйте в модуль VBA и выполните процедуру IfThenElse4.

Упражнение 4

Составить процедуру определения количества проданных товаров в зависимости от цены товаров в соответствии с приведённой ниже таблицей.

Цена

Количество проданных
товаров

<=10

100

<=15

80

<=20

60

>20

50

В созданной процедуре

  •  использовать инструкцию  IfThen... Else, содержащую ключевое слово ElseIf;
  •  использовать функцию InputBox для ввода значений переменной Цена.

Упражнение 5

  1.  Изучите п.2.1.1.2. Инструкция Select…Case
  2.  Скопируйте из файла Теория_к_лаб_3.doc в модуль процедуру Sub CaseSelect и выполните её при различных значениях ячейки A6.
  3.  Составьте  и выполните процедуру в соответствии с заданием Упражнение 4,  используя инструкцию Case Else.
  4.  Инструкция  безусловного перехода GoTo

Инструкция  GoTo изменяет ход выполнения программы без проверки каких-либо условий, передавая управление на метку в коде. Формат инструкции GoTo:

GoTo метка

Обязательный аргумент метка может быть текстовым или числовым. Метка заканчивается символом двоеточие(:).

Упражнение 6

Скопируйте из п.2.1.1.3 из файла Теория_к_лаб_4.doc  проанализируйте и выполните процедуры БезУслПереход и БезУслПереход2 при различных значениях переменной r.

  1.  Инструкции перехода  к обработчику ошибок On

Инструкция On Error делает доступным обработчик ошибок и определяет его положение внутри процедуры и используется также для запрета обработки ошибок. Форматы и описание инструкции On Error приведены в п. 2.1.1.4 пособия Теория_к_лаб_3.doc.

Пользовательские обработчики ошибок позволяют реагировать на ошибки во время работы пользователя, например, когда вместо числа пользователь вводит текстовое данное или вообще не вводит данное.

В процедуре ПримерOnErrorGoto, приведённой в п.  2.1.1.4, возникает ошибка ввода до тех пор, пока не будет введено численное значение переменной Num; управление передаётся  на метку Ошибка, и инструкция Resume возвращает управление инструкции
Num = InputBox("Введите число").

В процедуре ПримерOnErrorResumeNext, приведённой там же, при возникновении ошибки ввода управление передаётся инструкции If, и на экран выводится сообщение "Число не введено".

Упражнение 7

Скопируйте из п.2.1.1.4 файла Теория_к_лаб_3.doc, проанализируйте и выполните процедуры ПримерOnErrorGoto,
ПримерOnErrorResumeNext
и ПримерOnErrorGoto_0 при различных значениях переменной Num (числовом и символьном).

В процедуре ПримерOnErrorGoto возникает ошибка ввода до тех пор, пока не будет введено численное значение переменной Num; управление передаётся  на метку Ошибка, и инструкция Resume возвращает управление инструкцииNum = InputBox("Введите число").

В процедуре ПримерOnErrorResumeNext при возникновении ошибки ввода управление передаётся инструкции If, т.е. инструкции, следующей за той, которая вызвала ошибку, на экран выводится сообщение "Число не введено".

В процедуре ПримерOnErrorGoto_0 инструкция On Error GoTo 0 отключает пользовательский обработчик ошибок в данной процедуре и может быть использована для восстановления нормальной обработки ошибок перед выходом из процедуры. При возникновении ошибки ввода выводится следующее диалоговое окно, сообщающее о несоответствии типа данного введённому значению (“Пусто” или “Не число”).

Контрольное задание к лабораторной работе №3

Выполнить свой вариант задания №2.2 из файла Pascal_практика.pdf  и оформить работу письменно, руководствуясь в оформлении работы правилами и придерживаясь следующей последовательности:

1). Условие задачи;

2). Формализация задачи (если требуется);

3). Таблица имен;

4). Блок-схема программы;

5). Текст программы;

6). Таблица трассировки;

7). Результаты и выводы.

Отчет оформлять на бумаге формата А4 или обычных тетрадных листах.




1. английская деревня suyu ЗАЕЗД- 22
2. РЕФЕРАТ дисертації на здобуття наукового ступеня доктора технічних наук Хмельницький ~ 1999
3. Лекция по философии 03
4. Астана медицина университеті А~ 07
5. витамин. В биологическом отношении их объединяет то то они участвуют в построении молекул коферментов коф
6. Основы горного дела
7. На тему- Иммунный статус у молодняка с-х животных Выполнила- Студентка 5 курса ФВМ 8 группы М
8. Принцип дополнительности
9. Реферат- Зображення природи у християнському образотворчому мистецтві.html
10. Лекция 3 НАУЧНАЯ ОРГАНИЗАЦИЯ ТРУДА НА УГОЛЬНОЙ ШАХТЕ 1