Оператор выбора
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.
Еще по теме Оператор выбора:
- ОШИБКА ОПЕРАТОРА
- Выбор линейного мышления - это выбор прожить жизнь в танце частиц.
- ДЕЯТЕЛЬНОСТЬ ОПЕРАТОРА
- ОПЕРАТОР
- ОПЕРАТОР: ПРИЕМ ИНФОРМАЦИИ
- Выбор есть. Он существует всегда. Сознание - это выбор.
- ОПЕРАТОР: НАДЕЖНОСТЬ
- ОПЕРАТОР: ПОМЕХОУСТОЙЧИВОСТЬ
- Профессия оператора: между техникой и искусством
- ОБЪЕКТ СЕКСУАЛЬНЫЙ: ВЫБОР
- Финансирование выборов