10

Занятие 6. “Основные понятия программной среды Visual Basic for Applications. Организация разветвления алгоритма” При проведении занятия рекомендуется рассмотреть следующие вопросы:

1. Условный оператор и его применение для организации ветвлений

2. Условные выражения

3. Простые условия

4. Сложные условия.

5. Запись условного оператора в одну строчку программы;

6. Запись условного оператора в виде нескольких строк, с заданием конца оператора.

7. Использование конструкции Dim.

Конструкцию Dim при определении числовых переменных задавать не обязательно. Однако, в том случае, если при наборе программного кода, ошибочно, имена переменных набирались с использованием русского шрифта, то конструкция Dim может оказаться очень полезной при обнаружении ошибки. При замене в конструкции Dim заглавных букв в имени переменных на прописные буквы изменится написание имен переменных во всем программном коде. Если написание имени переменной, в какой–либо конструкции, не изменилось, то это значит, что данная конструкция написана с использованием русского шрифта.

8. Особенности использования функции InputBox и функции MsgBox.

В том случае, если для пояснения операции ввода или вывода достаточно одного сообщения, то при задании функций InputBox и MsgBox, целесообразно указывать один параметр. При использовании функции MsgBox имеется возможность задания нескольких выдаваемых элементов в одной функции. Например,

MsgBox (A & " " & B & " " & C)

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

В прикладном программном продукте Word разработать макрос с именем “PR10”, обеспечивающий выполнение следующих действий:

Ввести три целых числа и определить максимальное значение из трех введенных чисел.

Решение.

Программный код, обеспечивающий выполнение данной задачи, имеет следующий вид:

Sub PR10()

Dim A As Integer

Dim B As Integer

Dim C As Integer

Dim Max As Integer

A = InputBox("Введите первое число")

B = InputBox("Введите второе число")

C = InputBox("Введите третье число")

If A > B Then Max = A Else Max = B

If C > Max Then Max = C

MsgBox Max

End Sub

Примечание.

1. Тестовый пример.

Набираемые числа:

8. 27 6

Результат

27

Задача 2.

В прикладном программном продукте Word разработать макрос с именем “PR101”, обеспечивающий выполнение следующих действий:

Ввести целое положительное число и определить делится ли данное число на три.

Решение.

Программный код, обеспечивающий выполнение данной задачи, имеет следующий вид:

Sub Pr101()

Dim A As Integer

A = InputBox("Введите целое число")

If A Mod 3 = 0 Then

MsgBox "Делится"

Else

MsgBox "Не делится"

End If

End Sub

Примечание.

1. Тестовые примеры.

Набираемое число:

41

Результат

Не делится

Набираемое число:

27

Результат

Делится

Задача 3.

В прикладном программном продукте Word разработать макрос с именем “PR11”, обеспечивающий выполнение следующих действий.

Ввести три числа, определяющих дату. Первое число определяет день месяца, второе число день недели, третье число определяет месяц. Выдать предупреждение о возможности активизации вирусов для «черной пятницы» и «26 апреля».

Решение.

Sub pr11()

Dim D As Integer

Dim DN As Integer

Dim M As Integer

D = InputBox("Введите число")

DN = InputBox("Введите день недели")

M = InputBox("Введите месяц")

If (D = 13) And (DN = 5) Or (D = 26) And (M = 4) Then

MsgBox "Возможна активизация вируса"

Else

MsgBox "Вирус не активизируется"

End If

End Sub

Примечание.

1. Тестовые примеры.

Набираемые числа:

13 5 9

Результат

Возможна активизация вируса

Набираемые числа:

26 7 4

Результат

Возможна активизация вируса

Набираемые числа:

8 7 6

Результат

Вирус не активизируется