End Select
В операторе Case можно использовать строковое или числовое выражение. В списке значений допускается указать: явное значение; диапазон значений, задаваемый с помощью ключевого слова To; условный диапазон, задаваемый с помощью ключевого слова Is.
Пример 1: Private Sub Command_Click()
Speed = S/t 'число от 0 до 50
Case 0,1,2 означает, что если Speed (скорость) равна 0,1 или 2, следует отобразить сообщение "Медленно". Case 3 To 30 применимо, если скорость находится в диапазоне от3 до 30. Case Is >= 50 применимо, если скорость превышает или равна 50.
Пример 2: Animal 'животное'
Food 'пища'
то есть если животное – кролик, то его пищей является капуста, если лев – мясо.
