4.2. Основные операторы vb.
4.2.1. Безусловный переход.
Метка
Этот оператор осуществляет безусловный переход на определенную строку в пределах процедуры. Метка служит для идентификации строки оператора. Меткой может быть идентификатор или номер-целое число без знака. Метка должна начинаться с 1-ой позиции строки, а заканчиваться двоеточием. Метка-–идентификатор начинается с буквы:
Пример: Goto LastLine
………………
………………
LastLine: Print X
4.2.2. Условный переход.
Когда
нет if
по
веточке «нет»
о
значает
переход на новую строку.
Если в схеме алгоритма присутствует разветвление по веточке «нет», то такая структура в VB записывается одним оператором if (в программе будет один end if)
да нет
да нет
да нет
Соответствующая программная реализация будет иметь вид:
If x<2 Then y=2
Elseif x<3 Then y=3
Elseif x<4 Then y=4
Else y=5
End if
Далее приведен пример, когда разветвление присутствует как на веточке "нет", так и на веточке "да".
If x<2 Then
да нет If x<4 Then
y=0
да нет да нет Else
y=1
End if
Elseif x<3 Then y=2
Else y=3
End if
4.2.3. Оператор выбора Select Case.
Этот оператор используется в том случае, когда от значения выражения зависит много решений. Это выражение (оно называется тестируемым) может быть числовым или текстовым. Оператор Select Case применяется, когда необходимо сделать более двух разветвлений.
Синтаксическая диаграмма оператора Select Case приведена ниже:
Синтаксическая диаграмма элемента списка имеет вид:
Выражение.
Пример записи строки Case с элементами списка:
Case 1 то 4, 7 то 9, 11, 13, Is > Max Number <операторы>
список элементы списка
Некоторые замечания к приведенному выше примеру и к выполнению оператора Select Case.
Если тестируемое выражение попадет в интервал от 1 до 4 или от 7 до 9 или будет =11, или =13, или полученное выражение будет больше Max Number, то будут выполняться операторы, относящиеся к этому случаю. После их выполнения будет выполняться оператор, следующий за End Select.
Если тестируемое выражение удовлетворяет сразу нескольким Case, то выполняются операторы, соответствующие первому встретившемуся Case.
Если тестируемое выражение не удовлетворяет ни одному Case, то выполняются операторы соответствующие Case else.
Если тестируемое выражение не удовлетворяет ни одному Case, а Case else отсутствует, то выполняется оператор, следующий за End Select. Для хорошего стиля программирования очень желательно присутствие Case else (для непредвиденных случаев значений тестируемого выражение).
Пример использования оператора Select Case:
Select Case Val(txtInput.Text)
Case Is<1, Is>100 'Is – это ключевое слово, оно заменяет значение тести
'руемого выражения (в данном случае Val(txt Input.Text)).
Beep
lblOutput.Caption = "Input Error!"
Case Is>X
Beep
lblOutput.Caption= "Ваше число больше…"
txtInput.Text= " "
Case Is>X
Beep
lblOutput.Caption = "Ваше число меньше…"
Case X
lblOutput.Caption = "Вы угадали!!!"
End
End Select
Примечание. Оператор SelectCase может быть вложенным, и каждый из них должен иметь End Select.