Лекция: Блок операторов 1
……………
Case Условие выбора n
Блок операторов n
Case Else
Блок операторов
End Select
Тестируемое выражение – это любое численное или строковое выражение (например, имя одной переменной, математическое или численное выражение, но не логическое). Условие выбора – это список логических выражений, отделяемых запятыми. Условие выбора может также определять диапазон значений при использовании оператора To. Ветвь Case может содержать один оператор, несколько или ни одного оператора, и все они будут выполняться, если условие оператора Case истинно.
Пример 2. Наблюдения за 20 машинами показали, что до первого отказа одного из элементов наработка машин представляется исходными данными, приведенными в табл. 4.1. Определить частоту отказа по интервалам пробега.
Таблица 4.1
Статистический ряд
Интервал пробега, км | Частота отказа |
От 1001 до 2000 | |
От 2001 до 3000 | |
4001 и более |
Программный код:
Option Explicit
Sub PR2 ()
Dim km As Double, P As Double
km = Val(InputBox(«Введите интервал пробега»))
Select Case km
Case 1001 To 2000
P = 3/20
Case 2001 To 3000
P = 7/20
Case Is >= 4001
P = 10/20
End Select
MsgBox («Частость по интервалу пробега равна» & P)
End Sub
СловоIs, используемое в программе, является ключевым словом VBA, обозначающим тестируемое выражение в операторе Case.
В операторе Case допустимо использовать составные условия подобно тому, как это делается в условном операторе.
Пример 3.
Case 5, 6, 9to 10, 13, 14, Is >=16
В этом операторе проверяется, принадлежит ли значение тестируемого выражения отрезку от 9 до 10 или равняется одному из значений 5, 6, 13, 14, или оно не меньше 16.