Введение 8 Этапы создания Windowsприложения 8
 Скачать 6.98 Mb.
|
5.9. Оператор безусловного перехода GoToОператор безусловного перехода используется для передачи управления на некоторую заранее заданную строку программы. Рассмотрим синтаксис оператора. GoTo Метка GoTo – ключевое слово Visual Basic. Метка – это последовательность символов, заканчивающаяся двоеточием. Метка может начинаться как с буквы, так и с цифры. Она может содержать символы латинского и русского алфавитов, цифры и знак подчеркивания. В метке нельзя использовать скобки, пробелы, знаки пунктуации и арифметических операций. Традиционно рекомендуется составлять метки, пользуясь правилом имен. Метка всегда ставится на отдельной строке перед каким-либо оператором программного кода. Помеченный оператор будет выполняться сразу после оператора GoTo. Такой способ передачи управления называется безусловным переходом, так как он выполняется без проверки каких-либо условий. Передавать управление таким способом можно как вперед, так и назад по тексту программы. Строго доказано, что программу любой сложности можно написать, не применяя оператора безусловного перехода. Поэтому широкое использование оператора GoTo считается «дурным тоном», так как они запутывают программу и затрудняют ее чтение. Рассмотрим пример использования оператора безусловного перехода. Требуется составить программу для ввода значения переменной n, которое должно находится в диапазоне от 3 до 20. При неправильном значении переменной программа должна выводить сообщение и требовать повторного ввода значения. Полный текст программы приведен в приложении 8. В начале программы ставим метку vvod. Она позволит нам повторить ввод значения переменной в случае ошибки. vvod: Затем вводим значение переменной n. n = Val(InputBox("Введите число n от 3 до 20")) Проверяем введенное значение. If n < 3 Or n > 20 Then Если оно меньше 3 или больше 20, то выводим сообщение об ошибке. MsgBox("Неправильное значение") И передаем управление на оператор с меткой Vvod, чтобы обеспечить повторный ввод значения переменой и его проверку. GoTo Vvod End If 5.10. Пример. Решение линейного уравненияРассмотрим программу решения уравнения вида . Значения параметров a, b и c задаются пользователем с клавиатуры и могут быть любыми. Для начала проанализируем, какие возможны сочетания значений параметров, и каким при этом будет решение уравнения.
Теперь можно перейти к разработке интерфейса программы. Так как значения коэффициентов мы будем вводить с помощью функции InputBox, а вывода результатов будем использовать функцию MsgBox, то на форме располагается только кнопка «Старт», запускающая нашу программу. Следующий шаг – реализация алгоритма. Первым шагом является описание переменных. Так как значения коэффициентов могут быт любыми, то переменные a, b, c должны иметь тип Single. Значение переменной x определяется в результате деления, поэтому она тоже должна иметь тип Single. Dim a, b, c, x As Single С помощью функции InputBox вводим значения коэффициентов уравнения. Так как коэффициенты являются числами, то при их вводе необходимо использовать преобразование Val. a = Val(InputBox("Введите коэффициент а")) b = Val(InputBox("Введите коэффициент b")) c = Val(InputBox("Введите коэффициент c")) Анализируем значение коэффициента a. If a = 0 Then Если оно равно нулю, то проверяем равенство двух других коэффициентов и выводим соответствующее сообщение. If b = c Then MsgBox("Решение - любое число") Else MsgBox("Нет корней") End If Else Если коэффициент a неравен нулю, то вычисляем корень уравнения и выводим его. Так как корень уравнения является числом, то для его вывода необходимо использовать преобразование Str. x = (c - b) / a MsgBox("x=" + Str(x)) End If Программа закончена. Теперь ее необходимо сохранить и запустить. Текст программы приведен в приложении 9. |
.
. Если значения параметров b и c совпадают, то это выражение будет верным при любом x. Если значения параметров b и c различны, то выражение не имеет смысла.