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