- •Занятие 6. “Основные понятия программной среды Visual Basic for Applications. Организация разветвления алгоритма” При проведении занятия рекомендуется рассмотреть следующие вопросы:
- •При проведении данного занятия рекомендуется разработать программные коды для решения следующих задач: Задача 1.
- •Задача 2.
- •Задача 3.
- •Задача 4.
- •Задача 5
- •Тестовый пример:
- •Задача 6.
- •Задача 7.
- •Тестовый пример:
- •Задача 8.
- •Тестовый пример:
- •Задача 9.
- •Тестовый пример:
- •Задача 10.
- •Задача 11.
- •Задача 12.
- •Задача 13.
- •Задача 14.
Задача 7.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Ввести три числа.
Если они все равны между собой, то выдать сообщение: “Все числа равны между собой”.
Если среди них только два числа равны между собой, то выдать сообщение: “Два числа равны между собой”.
Если среди них нет чисел равных между собой, то выдать сообщение: “Все числа различны”.
Предусмотреть выдачу только одного сообщения.
Примечание.
Тестовый пример:
Набираемые числа:
7 7 7
Результат
Все числа равны
Набираемые числа:
7 9 7
Результат
Два числа равны между собой
Набираемые числа:
7 9 6
Результат
Все числа различны
Задача 8.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Ввести три различных числа.
Самое большое число из трех чисел уменьшить на пять. Выдать все числа на экран.
Примечание:
Использовать двойное условие и конструкцию ELSE.
Тестовый пример:
Набираемые числа:
10 8 7
Результат
5 8 7
Задача 9.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Ввести три числа: A,B,C.
Расположить введенные числа в порядке возрастания. Самое большое число должно находиться в переменной C, а самое маленькое в переменной A.
Решение.
Программный код, обеспечивающий выполнение данной задачи, имеет следующий вид:
Sub pr15()
Dim A As Integer
Dim B As Integer
Dim С As Integer
Dim W As Integer
A = InputBox("Введите первое число")
B = InputBox("Введите второе число")
C = InputBox("Введите третье число")
If A > B Then
W = A: A = B: B = W
End If
If A > C Then
W = A: A = C: C = W
End If
If B > C Then
W = B: B = C: C = W
End If
MsgBox A, , "Первое число"
MsgBox B, , "Второе число"
MsgBox C, , "Третье число"
End Sub
Примечание.
Тестовый пример:
Набираемые числа:
10 8 3
Результат
3 8 10
Задача 10.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Ввести три числа: A, B, C.
Определить, можно ли из них составить возрастающую арифметическую прогрессию
Примечание:
1в. отсортировать;
2в. If ((A-B) = (B-C)) Or ((B-A)=(C-B))Or (A-C)=(C-B))And(A<>B) Then
Задача 11.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Ввести пять чисел: A,B,C,D,E.
Переставить наибольшее число на первое место. Местоположение остальных чисел значения не имеет.
1. Примечание.
Тестовый пример:
Набираемые числа:
4 8 15 6 7
Результат
15 4 8 6 7
Задача 12.
В прикладном программном продукте Word разработать макрос, обеспечивающий выполнение следующих действий.
Вести два числа. Первое число обозначает номер дня. Второе число обозначает номер месяца. Определить, является ли номер дня допустимым для заданного месяца.
Примечания:
Увеличение количества дней в феврале в високосный год не учитывается.
Решение
Sub Pr101()
Dim D As Integer
Dim M As Integer
D = InputBox("Введите номер дня")
M = InputBox("Введите месяц")
If (M = 1 Or M = 3 Or M = 5 Or M = 7 Or M = 8 Or M = 10 Or M = 12) And _
(D >= 1 And D <= 31) Then
MsgBox "Допустимое значение"
Else
If (M = 4 Or M = 6 Or M = 9 Or M = 11) And (D >= 1 And D <= 30) Then
MsgBox "Допустимое значение"
Else
If (M = 2) And (D >= 1 And D <= 28) Then
MsgBox "Допустимое значение"
Else
MsgBox "Не допустимое значение"
End If
End If
End If
End Sub