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