Visual Basic. Теория. Нагина Е.К - 56 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

56
LotteryEntry = Int (10*Rnd ( ))
Beep
Loop Until LotteryEntry = 7
MsgBox “Your number is “ & LotteryEntry & “. You win!!”
End Sub
9.6. Управляющая структура Select Case
Структура Select Case позволяет в зависимости от значения пере-
менной или выражения выполнить один из нескольких фрагментов про -
граммы . Ее действие подобно действию структуры If-Then-Else, в которой
условие переопределяется ключевым словом Elself. В примере 31 исполь-
зована структура If-Then-Else для определения прав пользователя согласно
введенному им паролю . В следующей программе те же действия выполня -
ются средствами структуры Select Case.
Sub Proc38_ SelectCase ( )
Dim Password As String
Dim Sheet As Object
Password = Lcase (InputBox (“Enter Password:” , “Password”))
Select Case Password
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”
ActiveWokbook. Worksheets (1).Visible = True
ActiveWokbook. Worksheets (1).Unprotect
MsgBox “You have read/write access to one worksheet.”
Case “level3”
ActiveWokbook.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
Рассмотрим компоненты оператора, используемые в примере 38.
Select Case Ключевые слова, отмечающие начало структуры .
Password Переменная или выражение, чье значение определяет выбор
фрагмента кода для выполнения. Оно должно совпадать со
значением , указанным после одного из ключевых слов
Case. Если ни одного совпадения нет, выполняется фраг-
мент, написанный после слов Case Else. Если и этих слов 
                                       56
            LotteryEntry = Int (10*Rnd ( ))
            Beep
      Loop Until LotteryEntry = 7
       MsgBox “Your number is “ & LotteryEntry & “. You win!!”
 End Sub

                     9.6. У правл яю щ ая стру кту ра Select Case
        Структура Select Case по зво ляетв зависимо сти о тзначения пере-
 менно й или вы раж ения вы по лнить о дин из неско льких фраг      менто в про -
 граммы . Е е дей ствие по до бно дей ствию структуры If-Then-Else, в ко т о ро й
 усло вие перео пределяется клю чевы м сло во м Elself. В примере 31 испо ль-
 зо вана структура If-Then-Else для о пределения прав по льзо вателя со г ласно
 введенно муим паро лю . В следую щ ей про грамме те ж е дей ствия вы по лня-
 ю тся средствам иструктуры Select Case.
 Sub Proc38_ SelectCase ( )
     Dim Password As String
     Dim Sheet As Object
     Password = Lcase (InputBox (“Enter Password:” , “Password”))
     Select Case Password
        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”
               ActiveWokbook. Worksheets (1).Visible = True
               ActiveWokbook. Worksheets (1).Unprotect
               MsgBox “You have read/write access to one worksheet.”
        Case “level3”
               ActiveWokbook.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
        Рассмо трим ко м по ненты о перато ра, испо льзуем ы е впримере38.
Select Case К лю чевы е сло ва, о тмечаю щ ие начало структуры .
 Password        П еременная или вы раж ение, чье значение о пределяетвы бо р
                   фрагмента ко да для вы по лнения. О но до лж но со впадать со
                   значением , указанны м по сле о дно го из клю чевы х сло в
                   Case. Е сли ни о дно го со впадения нет, вы по лняется фраг  -
                   мент, написанны й по сле сло в Case Else. Е сли и этих сло в

Страницы