Select Case Оцениваемое выражение

Case Список выражений 1

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

...

Case Список выражений n

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

End Select

В примере исполь­з .структура для определения прав пользователя согласно введенному им паролю.

Private Sub РгосЗ_ SelectCase ()

Dim Password As String

Dim Elem As Object

Password = Lease (InputBox ("Введите пароль: " , "Пароль"))

Select Case Password

Case "level 1"

For Each Elem In Form1

Elem.Font.Name = “Ms Sans Serif”

Elem.Font.Italic = True

Elem.Font.Size = 10

Next Elem

Case "level 2 "

For Each Elem In Form1

Elem.Font.Name = “Ms Extra”

Elem.Font.Italic = False

Elem.Font.Size = 14

Next Elem

Case "level 3''

For Each Elem In Form1

Elem.Font.Name = “Ms Sans Serif”

Elem.Font.Bold = True

Elem.Font.Size = 20

Next Elem

Case Else

MsgBox "Пароль не корректен. Повторите ввод пароля."

End Select

End Sub

 

Select Case	Ключевые слова, отмечающие начало структуры.
Password	Переменная или выражение, чье значение опред.выбор фрагмента кода для выполнения. Оно должно совпадать со значением, указ. после одного из ключ. слов Case. Если ни одного совпадения нет, выполн.фраг­мент, написан.после слов Case Else. Если и этих слов нет, управление передается оператору, заданному после End Select.
Case"level"	Варианты значения. Если значение определяющего выражения совпадает с ним, выполняется фрагмент про­граммы до следующего ключевого слова Case, а затем управление передается операторам, стоящим после End Select. Если совпадения нет, управление передается сле­дующему Case.
Case Else	Фрагмент программы, указанный за этими словами, выпол­няется, если значение определяющего выражения не совпа­ло ни с одним из предыдущих вариантов Case.
End Select	Ключевые слова, отмечающие конец структуры Select Case.

 

№22 Управляющая структура For-Next

Она позволяет выполнять несколько команд заданное число раз. Синтаксис:

For СчетчикЦикла = Начальное значение To

Конечное значение [Step Шаг]