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.