Case Else
strNumber= "Out of Range"End Select
( Примечание ^)
Альтернативой использованию оператора Select Case является многократное применение ключевого слова Elself в условном операторе. Пример:
If IntNumber <10 Then
MsgBox "Yoy picked a number less then 10"Elself IntNumber <20 Then
MsgBox "Yoy picked a number between 10 and 19"Elself IntNumber <30 Then
MsgBox "Yoy picked a number between 20 and 29"Else
MsgBox "Yoy picked a number greater than or equal t» 30"End If
For...Next.Оператор цикла For... Next позволяет выполнить группу операторов фиксированное число раз. Форма записи:
Fo Счетчик= Началоt Конец
Операци Next
Приведем пример использования цикла, выполняющегося десять раз:
For intCounter= 1 to 10
MsgBox "The current number is "&intCounter Next
Можно использовать ключевое слово Step для задания шага изменения счетчика цикла, например:
For intCounte =10 to 100 Step 5
MsgBox intCounter Next
( Совет~^
Можно прервать выполнение цикла до его естественного завершения, использовав оператор Exit For.