14. Алгоритмические стр-ры выбора. Инструкция Select…Case.

В отличии от управляющей структуры If Then управляющая структура Select Case оценивает только одно логическое выражение. Затем выполняет тот блок операторов который ассоциируется с конкретным значением вычисленного логического выражения.

Синтаксис (формат) оператора-

Select Case логическое выражение

Case Значение1

Блок операторов 1

Сase Значение2

Блок операторов2

Блок операторов N

End Select

14.1

Пример:

Private Sub – Prim 2 ()

Dim Password As String

Dim Elem As Obgect

Password = Lcase (InputBox (“Введите цвет шрифта”))

Select Case Password

Case “Red”

Elem. Font. Color = Red

Case “Black”

Elem. Font. Color = Black

Elem. Font. Color = Green

End Select

End Sub

В данном примере реализована технология изменения цвета шрифта элемента Elemв зависимости от введенного в окне ввода названия цвета.

15. Циклические алгоритмические стр-ры. Инструкция For.

Циклы со счетчиком

For Счетчик Цикла = Нач. Знач. ТО Кон. Знач. [Stop Шаг]

Блок операторов

[Exit For]

Next [Счетчик цикла]

15.1

Данная конструкция работает следующим образом:

Счетчику цикла присваивается некое начальное значение.

Оно представляет собой целое число.

Затем выполняется проверка текущего значения

счетчика если оно больше или равно конечному значению происходит переход к оператору следующему за оператором For записанному после ключевого слова Next. Таким образом если начальное значение больше конечного значения операторы цикла не будут выполнятся ни разу. Если текущее значение счетчика меньше конечного значения - выполняется блок операторов, затем в соответствии с инструкцией Next, текущее значение счетчика увеличивается на величину шага. Либо если величина шага не задана на еденицу. Управление передается инструкцией For которая опять проверяет равенство текущего значения счетчика конечному и т.д.

Пример: расчет факториала

Sub Prim 3()

Dim NumberString As String

Dim Num As Integer

Dim Factorial As Double

Dim Count As Integer

Number String = Input Box (“Введите число”)

If Is Meric (NumberString)

Num= Val (Number String)

If Num>= 0 Then

Factorial =1

For Count1 = 1 TO Num

Factorial= Factorial* Count

Next

MsgBox “Факториал ичсла ”& ”Равен ”& Factorial

Else

MsgBox “Факториал отрицательного числа не существует ”

End

Else

MsgBox “Введено нчисловое значение ”

End LF

End Sub

16. Циклические алгоритмические стр-ры. Инструкция While…Wend.

16/1

16.2

Для реализации первого алгоритма используется управляющая структура While Wend.

While_ условие

Блок оператора

Wend

Пример:

FACT=1

N= InPutBox (‘Ввведите число’)

While_ i= n+1

FACT=FACT *I

I=I+1

Wend

MsgBox “Значение факториала”=& FACT

17. Циклические алгоритмические стр-ры. Инструкция Do…Loop.

Управляющая конструкция DO-Loop

В отличии от структуры While Wend… DO-Loop может задавать условие проверки в конце или постусловиях. Синтаксис оператора следующий:

Do While условие

Блок оператора

Loop ------------------------------------ либо

Do

Блок операторов

Loop While условие

Или

Do Until условие

Блок оператора

Loop------------------------------------ либо

Do

Блок операторов

Loop Until условие