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

Пример 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.