Введение в информатику. Хамухин А.А. - 98 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

97
3.10.2. Управляющая инструкция Select Case
Инструкция Select Case позволяет в зависимости от значения переменной или
выражения выполнять один из нескольких фрагментов кода. Ее действие подобно
действию инструкции If-Then-Else, в которой условие переопределяется ключевым
словом ElseIf. В предыдущем примере мы использовали инструкцию If-Then-Else
для определения прав пользователя согласно введенному им паролю. В следующей
программе те же действия выполняются средствами структуры Select Case.
Sub Pro28()
Dim PassW As String
Dim Sheet As Object
PassW = LCase(InputBox("Enter Password:", "Password"))
Select Case PassW
Case "level1"
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Sheet.Unprotect
Next
MsgBox "You have read/write access to all sheets."
Case "level2"
ActiveWorkbook.Worksheets(1).Visible = True
ActiveWorkbook.Worksheets(1).Unprotect
MsgBox "You have read/write access to one worksheet."
Case "level3"
ActiveWorkbook.Worksheets(1).Visible = True
MsgBox "You have read-only access to one worksheet."
Case Else
MsgBox "Password incorrect. Please try again."
End Select
End Sub
В структуре инструкции Select Case можно указывать интервал, в который
должна попадать анализируемая переменная:
Sub Pro29()
Dim S As Integer
S = Int(100 * Rnd())
Select Case S
Case 0 To 33
MsgBox "Score: " & Score & Chr(13) & _
"You're in the first third."
Case 34 To 66
MsgBox "Score: " & Score & Chr(13) & _
"You're in the second third."
Case 67 To 100
MsgBox "Score: " & Score & Chr(13) & _

Страницы