End Select. Label1.Caption=”Значение х отрицательно”

End If

Else

End If

Else

End If

End If

Else

Label1.Caption=”Значение х отрицательно”

Пример1.

Фрагмент программы	Что на экране
A=10 If A>2 Then Print “!!!” Else Print “!”	!!!
A=4 If A>5 Then A=A+10 Else A=A-1 Print A	3
S=6 If S-8<>0 Then S=S+10 Print S	16
S=6 If S<0 Then S=S+10 S=S+1 Print S

Пример2.

If а<>4 Then

а=а+10

b=3

Print b

Пример3.

If а<>4 Then

а=а+10

b=3

Print b

b=0

a=b+5

c=6

Пример4.

Задача. В компьютер вводится целое число а. Если а<0, то компьютер должен сказать «Число отрицательно», если а=0, то компьютер должен сказать «Вы ввели нуль», если а>100, то компьютер должен сказать «Число большое», в остальных случаях компьютер ничего недолжен говорить, а только вычислить и напечатать квадрат числа.

Программа:

Private Sub Command1_Click()

a=InputBox(“Введите число”)

If а<0 Then

MsgBox(“Число отрицательно ”) ‘ MsgBox - Выводит окно сообщения

ElseIf а=0 Then

MsgBox(“Вы ввели нуль ”)

ElseIf а>100 Then

MsgBox(“Число большое ”)

Print a*a

MsgBox(“До свидания! ”)

End Sub

Оператор выбора Select … Case

Оператор выбора позволяет обрабатывать в программе несколько условий и аналогичен блоку конструкций if...Then...Else. Используется он для частичного облегчения программирования задач, в которых содержится большое число различных проверок. Его также удобно применять тогда, когда выполнение одного из многочисленных действий зависит от значения какой-либо переменной.

Синтаксис оператора выбора Select … Case:

Select Case Выражение

Case Диапазон значений _1

Операторы, выполняемые при попадании Выражения в Диапазон значений _1

Case Диапазон значений _2

Операторы, выполняемые при попадании Выражения в Диапазон значений _2

...

Case Диапазон значений _N

Операторы, выполняемые при попадании Выражения в Диапазон значений _2

[ Case Else

Операторы, выполняемые при непопадании ни в один из указанных

диапазонов]

Замечание Квадратные скобки служат для обозначения необязательной части в структурах операторов..

После ключевого слова Case, которое повторяется столько раз, сколько различных действий может быть выполнено, записывается Диапазон значений этой переменной. При попадании значения выражения в этот диапазон выполняется действие, которое записано вслед за ним. Диапазон значений можно задать простым перечислением их через запятую (Case 3,5,9), либо с помощью ключевого слова To(Case 1 To 9). Если в Диапазоне значений необходимо использовать операции отношения, то такой диапазон записывается с помощью ключевого слова Is.

Выполнение оператора начинается с вычисления выражения, затем полученное значение сравнивается с заданными диапазонами значений, выполняется соответствующий оператор и происходит выход из оператора выбора.

Дата добавления: 2014-12-24