Здесь выполняются те же действия,



Пример 10

Здесь выполняются те же действия, что и в предыдущем случае, но средствами оператора Select...Case: Select Case Sales
Case 100000
Bonus =.1
Case 50000, 75000
Bonus =.05
Case Else
Bonus =.02
End Select
Примечание В операторе Select...Case не допускается использование диапазонов значений и символов сравнения «больше чем» (>) или «меньше чем» (<). > Использование конструкции Select Case в VBScript
  1. Откройте Web-узел Exercise9 в Frontpage 98.
  2. Откройте Home Page в Frontpage Editor.
  3. Правой кнопкой мыши щелкните кнопку Square и выберите Script Wizard.
  4. В событие OnClick кнопки btnSquareIt введите приведенный ниже код и на жмите ОК: Dim Result


    On Error Resume Next
    Result = SquareIt(T1.Value)
    Select Case Result
Case 1,2,3
MsgBox "Между 1 и 3"
Case 4,5,6
MsgBox "Между 4 и 6"
Case 7,8,9
MsgBox "Между 7 и 9"
Case Else
MsgBox "Результат вне диапазона."
End Select
MsgBox T1.Value & " в квадрате = " & Result
  1. Сохраните изменения и откройте страницу в Internet Explorer.
  2. Когда Web-страница появится в Internet Explorer, введите в текстовое поле число 2 и нажмите кнопку Square.
  3. Введите в поле число 10 и снова нажмите кнопку Square. Обратите внимание на различие результатов: при вводе чисел от 1 до 3 появляется сообщение об интервале, а любое другое числа вызывает выполнение блока Case Else.
  4. Закройте Internet Explorer и Frontpage 98.


Содержание раздела