End Select. Case оператор проверки условия n-1

Действие n-1

Case оператор проверки условия n-1

Действие 1

Case оператор проверки условия 1

Select Case переменная или выражение

Оператор Select Case

End If

Оператор

Else

Операторы

Else If выражение Then

Операторы

If выражение Then

End If

Несколько операторов

Else (необязательно)

Несколько операторов

If условное выражение Then (Enter)

If условие Then оператор1 Else оператор2

Условные операторы

Wend

Выражение

While условие

Loop

Выражение

Do While условие

Loop While условие

Выражение

Do

Loop

Выражение

Do Until условие

Сложные неопределенные циклы

End Sub

Do

Loop Until выполняется условие

Выражение

Do

Неопределенные циклы

End Sub

Next I

Dim I As Integer

Определенные циклы

Оператор For ___ Next

For I% = 1 to 10

Print I%

Next I%

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

Пример. Печать всеми доступными шрифтами экрана.

Private Sub Form_Click()

For I=0 to Screen.FontCount - 1

FontName = Screen.Fonts (I)

Print “Это шрифт”; Screen.Fonts (I)

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

§ Оператор

Пример. Проверка пароля

Private Sub Form_Load ()

X$ = InputBox$ (“Пароль?”)

Loop Until X$ = “VB”

Для остановки бесконечного процесса используют клавиши “Break” или Run|End или необходимо закрыть приложение. В программе можно использовать оператор Exit Do (или Exit For), которые переводят программу к оператору, следующему после цикла.

В неопределенных циклах проверка происходит в конце цикла, и счетчик увеличивается еще на 1. Иногда это вызывает лишнее обновление счетчика. Можно передвинуть проверку условия на начало цикла:

или

В таких циклах можно объединять несколько условий, например

Do While X<=0 and txtDisplay.Text=“ “

:

Loop

Например, While x>0

S = S+x

Wend

Может быть несколько вложенных циклов. Любой Wend относится к ближайшему While. Do __ Loop дает лучшую структуру и гибкость цикла.

Например, If N>=0 and N<=9 Then Print “Ok” Else End

Если в выражении If __ Then обрабатывается несколько операторов, тогда используется так называемый блок If __ Then.

.

.

.

Пример 1.

Private Sub Form_QueryUnload(Cansel As Integer, UnloadMode As Integer)

X % = MgBox(«Вы уверены?», VbYesNo)

If X % = VbNo Then

Cancel = True

Else

Cancel = False

End IF

End Sub

Пример 2.

If optColor1.Value Then

Color$ = «Красный»

ElseIf optColor2.Value Then

Color$ = «Зеленый»

ElseIf optColor3.Value Then

Color$ = «Синий»

Else

Color$ = «Белый»

End If

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

.

.

.

Пример:

Select Case Ball

Case Is < 13

Grade = 2

Case Is < 18

Grade = 3

Case Is < 22

Grade = 4

Case Else

Grade = 5

End Select

Пример:

Select Case Den

Case 1

Print «Пн»

Case 2

Print «Вт»

.

.

.

Case 7

Print «Вс»

End Select

В фразе Case можно задавать значения переменной в виде диапазона

Select Case Den

Case 1 to 5

Print «Рабочий день»

Case Else

Print «Выходной»

End Select

либо перечислением возможных значений

Select Case Den

Case 6, 7

Print «Выходной»

Case Else

Print «Рабочий день»

End Select

Дата добавления: 2014-12-10