Пример использования оператора выбора

Рассмотренную при изучении условного оператора задачу об определении процента отклонения можно решить, используя оператор Select Case.

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

Select Case sngПроцент

Case Is > 100

sngОтклонение = sngПроцент - 100

strОтклонение = "План перевыполнен на " & _

Format(sngОтклонение, "0.00") & "%"

Case Is < 100

sngОтклонение = 100 - sngПроцент

strОтклонение = "План недовыполнен на " & _

Format(sngОтклонение, "0.00") & "%"

Case Else

strОтклонение = "План выполнен на 100%"

End Select

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

Проектирование приложений с циклами

Назначение операторов цикла

В языке Visual Basic имеется два вида операторов цикла:

1) условный;

2) со счетчиком.

Они предназначены для организации в программе циклических вычислительных процессов. С помощью различных модификаций условного цикла реализуются циклы с предусловием и постусловием, а с помощью цикла со счетчиком – цикл с параметром.

Операторы цикла предусматривают повторяющееся выполнение группы операторов (тела цикла).

Если число повторений известно заранее (до начала повторений), то лучше использовать оператор цикла со счетчиком, в противном случае оператор условного цикла.

Условные циклы

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

1) с верхним окончанием;

2) с нижним окончанием.

Условный цикл с верхним окончанием имеет вид

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

<операторы тела цикла>

Loop

Конструкция {While | Until} означает, что используется только одно из ключевых слов: либо While (Пока), либо Until (До)

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

Ключевое слово Until имеет противоположный смысл. Повторения в цикле продолжаются до удовлетворения условия. Если же оно удовлетворяется, то происходит выход из цикла.

Условный цикл с нижним окончанием имеет вид

Do

<операторы тела цикла>

Loop {While | Until} условие

т.е. в нем условие проверяется после выполнения операторов тела цикла.

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

Вычислительный процесс, описываемый алгоритмом на базе цикла с предусловием, в программе на VB представляется оператором

Do While <условие>

<операторы тела цикла>

Loop

а на базе цикла с постусловием – оператором

Do

<операторы тела цикла>

Loop Until <условие>

Среди операторов тела цикла может встретиться оператор Exit Do, который обеспечивает немедленный выход из цикла (до достижения ключевого слова Loop).