Visual Basic 6
Основной синтаксис

if / else

If condition Then 
    code to execute if true
ElseIf condition Then
    code
Else
    code to execute if conditions are both false
End If

для цикла

For I as Integer = 1 To 10 Step 1
    code to execute
Next

Шаг является необязательным, и шаг 1 по умолчанию. Шаг подсказывает, как считать, поэтому -1 будет вычитать каждый раз каждый раз, а шаг 5 будет добавлять 5 каждый раз через цикл.

В случае, если цикл необходимо остановить, тогда можно использовать оператор Exit For , как в приведенном ниже примере;

Dim iIndex as integer

For I as Integer = 1 To 10 Step 1

Debug.Print  I     
iIndex = I * 10

If iIndex > 90 Then
    Exit For
End If

Loop

Здесь вместо того, чтобы печатать от 1 до 10, он остановится на уровне 9, так как условие говорит о прекращении процесса, когда iIndex достигает 90.

Do Loop

Другим распространенным типом цикла в Visual Basic является DO loop , который будет запускать часть кода непрерывно, пока не будет сказано остановить. Напротив некоторых других циклов, в которых индексы используются для остановки процесса, в этом конкретном цикле следует остановиться.

Простой пример, иллюстрирующий цикл, выглядит следующим образом

Dim iIndex1 As Integer
iIndex1 = 1
   
Do
   Debug.Print iIndex1 
   iIndex1 = iIndex1 + 1

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Вышеприведенный фрагмент кода примет индекс, инициализированный до 1 и увеличит его. Debug.Print поможет распечатать индекс для установки цикла. В каждом цикле код проверяет, достиг ли индекс 10, и если и только если условие истинно, будет выполнен Exit Do , который остановит цикл.

Выбор случая

    Dim number As Integer = 8
    Select Case number
        Case 1 To 5
            Debug.WriteLine("Between 1 and 5, inclusive")
            ' The following is the only Case clause that evaluates to True.
        Case 6, 7, 8
            Debug.WriteLine("Between 6 and 8, inclusive")
        Case 9 To 10
            Debug.WriteLine("Equal to 9 or 10")
        Case Else
            Debug.WriteLine("Not between 1 and 10, inclusive")
    End Select