2.5.2 Оператор выбора варианта SelectCase

Оператор выбора варианта позволяет выполнять одну из нескольких групп операторов в зависимости от значения условия.

Select Case <проверочное_выражение>

[ Case <значение 1>

[ операторы 1 ] ]

[ Case <значение 2>

[ операторы 2 ] ]

………………….

[Case Else

[ операторы 3 ] ]]

End Select

В качестве значения для блока Caseможно указывать не только одно значение, но и несколько, разделенных запятой. Можно также определять области сравнения: <значение 1> То <значение 2> или воспользоваться относительным сравнениемIs>=<значение>.

Блок Case Else выполняется, если ни одно из предыдущих условий не является истинным.

Если условию в Select Caseсоответствует несколько блоков, то выполняется первый из них.

Пример:

Для вычисления значения функции из предыдущего примера можно записать:

Function f(x As Single) As Single

Select Case x

Case Is<0

f=sin(x)

Case Is<1

f=1-cos(x)

Case Else

f=exp(sin(x))

End Select

End Function

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

Цикл со счетчиком позволяет организовать многократное выполнение одного или нескольких операторов, предоставляя возможность заранее устанавливать число проходов цикла.

For <счетчик>=<нач_знач> To <кон_знач> [Step <шаг>]

<операторы>

Exit For

<операторы>

Next [<счетчик>]

В начале счетчик устанавливается в начальное значение. При каждом проходе счетчик увеличиваетсяна величину шага, или на 1, если шаг не задан. Если эта переменная или превышает (становится меньше при отрицательном шаге) конечного значения, цикл завершается и выполняются операторы, следующие послеNext.

Разность между конечным и начальным значением, деленная на величину шага, составляет число проходов, уменьшенное на 1.

Пример:

Следующая функция вычисляет значение факториала n!.

Function Factorial (n As Integer) As Long

Dim I As Integer

Factorial=1

For I=1 To n

Factorial=Factorial*I

Next I

End Function

2.5.4 Цикл с условием

Цикл с условием используется, если количество проходов зависит от некоторых условий.

Цикл управляемый в начале (цикл с предусловием)

Do [ {While | Until} <условие> ]

[ операторы ]

Exit Do

[ операторы ]

Loop

Цикл управляемый в конце (цикл с постусловием)

Do

[ операторы ]

[ Exit Do ]

[ операторы ]

Loop [ {While | Until} <условие> ]

В обоих случаях тело цикла выполняется неопределенное число раз, пока условие не вызовет выход из цикла. В первой конструкции проверка условия осуществляется до выполнения блока операторов между DoиLoop(тела цикла), а во второй – после.

<условие>может быть любым выражением, котороеVBможет оценить какTrueилиFalse. При использовании предложенияWhile(пока) выполнение тела цикла продолжается до тех пор, пока условие имеет значениеTrue. Если задано предложениеUntil, выполнение тела цикла прекращается, как только условие примет значениеTrue.

Для альтернативного выхода из цикла можно использовать оператор Exit DO. Обычно он используется в оператореIf … Then.

Пример:

Для вычисления суммы ряда с заданной точностью(т.е. пока очередное слагаемое не станет меньше) можно использовать функцию):

Function Sum(x As Single, e As Single) As Single

Dim a As Single

Sum=0

a=1/x

Do While a>=e

Sum=Sum+a

A=a/x

Loop

End Function

2.5.5 Цикл While … Wend

Устаревшая конструкция оставлена только для совместимости с другими диалектами Basicи с более ранними версиямиVisualBasic.

Синтаксис:

While <условие>

[ операторы ]

Wend