1.2 Условие задачи на разветвление алгоритма.

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

Во-первых, ввод дня и месяца рождения.

Во-вторых, анализ введенной информации и выдачу на экран названия знака зодиака, соответствующего дате рождения.

Примечание. С 22.12 по 20.01 козерог; с 21.01 по 19.02 водолей;

с 20.02 по 20.03 рыбы; с 21.03 по 20.04 овен; с 21.04 по 21.05 телец;

с 22.05 по 21.06 близнецы; с 22.06 по 22.07 рак; с 23.07 по 23.08 лев;

с 24.08 по 23.09 дева; с 24.09 по 23.10 весы;

с 24.10 по 22.11 скорпион; с 23.11 по 21.12 стрелец.

1.3 Распечатка программного кода

Sub PR11()

Dim A As Integer

Dim B As Integer

Dim C As Integer

A=InputBox(“Введите день”, “Ввод исходных чисел”)

B=InputBox(“Введите месяц”, “Ввод исходных чисел”)

If ((A>=22) and (B=12)) Or ((A<=20) and (B=1)) Then MsgBox “Козерог”,, “Результат”

If ((A>=21) and (B=1)) Or ((A<=19) and (B=2)) Then MsgBox “Водолей”,, “Результат”

If ((A>=20) and (B=2)) Or ((A<=20) and (B=3)) Then MsgBox “Рыбы”,,“Результат”

If ((A>=21) and (B=3)) Or ((A<=20) and (B=4)) Then MsgBox “Овен”,, “Результат”

If ((A>=21) and (B=4)) Or ((A<=21) and (B=5)) Then MsgBox “Телец”,, “Результат”

If ((A>=22) and (B=5)) Or ((A<=21) and (B=6)) Then MsgBox “Близнец”,, “Результат”

If ((A>=22) and (B=6)) Or ((A<=22) and (B=7)) Then MsgBox “Рак”,, “Результат”

If ((A>=23) and (B=7)) Or ((A<=23) and (B=8)) Then MsgBox “Лев”,, “Результат”

If ((A>=24) and (B=8)) Or ((A<=23) and (B=9)) Then MsgBox “Дева”,, “Результат”

If ((A>=22) and (B=6)) Or ((A<=22) and (B=7)) Then MsgBox “Весы”,, “Результат”

If ((A>=24) and (B=10)) Or ((A<=22) and (B=11)) Then MsgBox “Скорпион”,, “Результат”

If ((A>=23) and (B=11)) Or ((A<=21) and (B=12)) Then MsgBox “Стрелец”,, “Результат”

End Sub

1.4 Распечатка результатов выполнения.

Введите день:13

Введите месяц:4

Результат:Овен

2. Организация циклических процессов.

2.1Описание конструкций языка vba, обеспечивающих циклическую обработку информации.

Средства организации циклов можно разделить на две основные группы — циклы с условием Do... Loop и циклы с перечислением For...Next. 

Циклы типа Do ... Loop используются в тех случаях, когда заранее неизвестно, сколько раз должно быть повторено выполнение блока операторов, составляющего тело цикла. Такой цикл продолжает свою работу до тех пор, пока не будет выполнено определенное условие. Существуют четыре вида циклов Do...Loop, которые различаются типом проверяемого условия и временем выполнения этой проверки. В табл. 13.2 приводится синтаксис этих четырех конструкций. 

Таблица 13.2. Синтаксис операторов цикла Do 

	Конструкция	Описание
	Do While <условие> <блокОператоров> Loop	Условие проверяется до того, как выполняется группа операторов, образующих тело цикла. Цикл продолжает свою работу, пока это условие выполняется (то есть имеет значение True), иными словами, в этой конструкции указывается условие продолжения работы цикла
	Do Until <условие> <блокОператоров> Loop	Условие проверяется до того, как выполняется группа операторов, образующих тело цикла. Цикл продолжает свою работу, если это условие еще не выполнено, и прекращает работу, когда оно станет истинным, иными словами, в этой конструкции указывается условие прекращения работы цикла
	Do <блокОператоров> Loop Until <условие>	Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл продолжает свою работу, если это условие еще не выполнено, а когда оно станет истинным, цикл прекращает работу, иными словами, в этой конструкции указывается условие прекращения работы цикла
	Do  <блокОператоров> Loop While <условие>	Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл продолжает свою работу, пока это условие остается истинным, иными словами, в этой конструкции указывается условие продолжения работы цикла

 

Имеется также две разновидности оператора цикла с перечислением For. . .Next. Очень часто при обработке массивов, а также в тех случаях, когда требуется повторить выполнение некоторой группы операторов заданное число раз, используется цикл For. . .Next со счетчиком. В отличие от циклов Do. . .Loop, данный тип цикла использует специальную переменную, называемую счетчиком, значение которой увеличивается или уменьшается при каждом выполнении тела цикла на определенную величину. Когда значение этой переменной достигает заданного значения, выполнение цикла заканчивается. 

Синтаксис этого вида цикла выглядит, следующим образом (в квадратные скобки заключены необязательные элементы синтаксической конструкции): 

For <счетчик> = <начальноеЗначение>

То <конечноеЗначение> 

[Step <приращение>] 

<блокОператоров> Next [<счетчик>] 

Несколько пояснений к приведенному описанию: 

• <приращение> — может быть как положительным, так и отрицательным числом. Если использовать отрицательное приращение, то конечное значение должно быть меньше либо равно начальному значению для того, чтобы тело цикла выполнилось хотя бы один раз; 

• после завершения работы цикла For. . .Next переменная, которая использовалась в качестве счетчика, получает значение, обязательно превосходящее конечное значение в том случае, если приращение положительно, и строго меньшее конечного значения, если приращение отрицательно; 

• если начальное и конечное значения совпадают, тело цикла выполняется лишь один раз.