Составители:
Рубрика:
59
If B < 1 Or B > 10 Then End
Вместо Then End можно использовать оператор Then Exit
Sub (выход из подпрограммы).
Как и принято в WORD, для раздвижки строк текста сле-
дует установить курсор в первую позицию (Home) строки, сле-
дующей за указанным оператором ввода значения В, и дважды
нажать на клавишу [Enter]. В освободившиеся две строки кода
вводим принятые ограничения.
При запуске проекта с такими ограничениями в случае оши-
бочного ввода данных, не укладывающихся в заданные преде-
лы, автоматически произойдет останов программы, аналогичный
нажатию на кнопку [СБРОС].
Можно усовершенствовать условия останова, заставив ком-
пьютер сообщать о том, что ему «не понравилось» в составе
исходных данных. Такое сообщение может быть выведено в
информационное окно (Message Box) следующим образом. Вме-
сто указанных двух дополнительных строк кода введём
If A < – 20 Or A > – 5 Then
MsgBox(«Недопустимое значение А»)
End
End If
If B < 1 Or B > 10 Then
MsgBox(«Недопустимое значение В»)
End
End If
После появления информационного окна и прочтения поль-
зователем содержащегося в нём сообщения необходимо сделать
[1Л] на кнопке [OK], после чего информационное окно исчезает, и
программа выходит на завершающий оператор End (или Exit
Sub), после чего проект следует перезапустить с уточнёнными
значениями исходных данных.
Можно расширить содержание информационного окна, вы-
зываемого ключевым словом MsgBox, заставив, таким образом,
компьютер выводить не только текст, но и численные значения
тех или иных промежуточных переменных, что удобно, в частно-
сти при отладке программ. Например, в рассмотренной задаче
Страницы
- « первая
- ‹ предыдущая
- …
- 57
- 58
- 59
- 60
- 61
- …
- следующая ›
- последняя »
