<<
>>

Оператор выбора

При выборе для выполнения одного из нескольких операторов (блоков операторов) целесообразно и удобно использовать инст- рукцию Select Case. С помощью этого оператора в языке реализована алгоритмическая конструкция множественного выбора.
Синтаксис:

Select Case

Case

Case

Case

End Select

Пример использования оператора выбора варианта в подпро- грамме-функции:

Function PR(ByVal S As Single,

ByVal P As Integer)As Single Select Case P Case 0

PR=S*0 Case 1

PR=S*0.10 Case 2

PR=S*0.15 Case 3

PR=S*0.20

End Select End Function

Пример программы, вызывающей подпрограмму-функцию:

Sub Krb()

Dim S As Single Dim Sum As Single Dim P As Integer Dim Prom As Variant S = 5000 Do

Prom=InputBox(''Введите номер варианта ")

IF Not IsNumeric(Prom) Then MsgBox("Повторите ввод!") Loop Until IsNumeric(Prom)

P=Prom

Sum=PR(S,P) 'Вызов процедуры-функции. Оператор

вызова PR(S,P)

MsgBox("Значение S=") & CSng(S)

End Sub

Допускается вложенность инструкций Select Case. При этом каждой вложенной инструкции Select Case должна соот- ветствовать инструкция End Select.

5.4.3.3.

<< | >>
Источник: Л. С. ТАГАНОВ, А. Г. ПИМОНОВ. ИНФОРМАТИКА. 2010

Еще по теме Оператор выбора:

  1. ОШИБКА ОПЕРАТОРА
  2. Выбор линейного мышления - это выбор прожить жизнь в танце частиц.
  3. ДЕЯТЕЛЬНОСТЬ ОПЕРАТОРА
  4. ОПЕРАТОР
  5. ОПЕРАТОР: ПРИЕМ ИНФОРМАЦИИ
  6. Выбор есть. Он существует всегда. Сознание - это выбор.
  7. ОПЕРАТОР: НАДЕЖНОСТЬ
  8. ОПЕРАТОР: ПОМЕХОУСТОЙЧИВОСТЬ
  9. Профессия оператора: между техникой и искусством
  10. ОБЪЕКТ СЕКСУАЛЬНЫЙ: ВЫБОР
  11. Финансирование выборов