Обратите внимание на различие результатов:

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

Сохраните изменения и откройте страницу в Internet Explorer.

Когда Web-страница появится в Internet Explorer, введите в текстовое поле число 2 и нажмите кнопку Square.

Введите в поле число 10 и снова нажмите кнопку Square.

Обратите внимание на различие результатов: при вводе чисел от 1 до 3 появляется сообщение об интервале, а любое другое числа вызывает выполнение блока Case Else.

Закройте Internet Explorer и Frontpage 98.

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

---

---