.NET VB 制御構造

if 条件式 then 条件が満たされた場合の処理 

if 条件式 then
End if

if 条件式 then
 条件式が満たされた場合の処理を書く
else
 条件式が満たされなかった場合の処理を書く
end if

Dim classcode1 As String = "01"  '分類1コード 書籍
If classcode1 = "01" Then Console.WriteLine("分類は、書籍です。")

Dim classcode1 As String = "01"  '分類1コード 書籍
If classcode1 = "01" Then 
    Console.WriteLine("分類は、書籍です。")
End if

Dim classcode1 As String = "01"  '分類1コード 書籍
If classcode1 = "01" Then 
    Console.WriteLine("分類は、書籍です。")
Else
    Console.WriteLine("分類は、マッチしません。")
End if

if 条件式1 then
   条件式1が満たされた場合の処理を書く
else if 条件式2 then
　　条件式2が満たされた場合の処理を書く
else if 条件式3 then
　　条件式3が満たされた場合の処理を書く
else
　　どの条件式にも合致しなかった場合の処理を書く
end if

Dim classcode1 As String = "01"  '分類1コード 書籍
If classcode1 = "01" Then 
    Console.WriteLine("分類は、書籍です。")
Else If classcode1 = "02" Then 
    Console.WriteLine("分類は、文具です。")
Else If classcode1 = "03" Then 
    Console.WriteLine("分類は、健康器具です。")
Else
    Console.WriteLine("分類は、マッチしません。")
End if

if 条件式1 then
   条件式1が満たされた場合の処理を書く
   if 条件式2 then
     条件式2が満たされた場合の処理を書く
   else
     条件式2が満たされなかった場合の処理を書く
   end if
end if

Dim classcode1 As String = "01"  '分類1コード 書籍
Dim classcode2 As String = "02"  '分類2コード ビジネス書
If classcode1 = "01" Then
    If classcode2 = "02" Then
        Console.WriteLine("分類は、ビジネス書です。")
    ElseIf classcode2 = "03" Then
        Console.WriteLine("分類は、漫画です。")
    End If
End If

Select Case 条件式
   Case 式1
       条件合致した場合の処理を書く（ブロック1）
   Case 式2
       条件合致した場合の処理を書く（ブロック2）
   ・
　 ・
   Case Else '省略可能である。
End Select

Dim classcode As String = "01"  '分類コード
    Select Case classcode
        Case "01"
            Console.WriteLine("分類コード01は、書籍です。")
        Case "02"
            Console.WriteLine("分類コード02は、文具です。")
        Case Else
            Console.WriteLine("分類コードは、分類不能です。")
End Select

dim i As Integer                         'カウンター変数をForブロック外で定義
For カウンター変数 = 初期値 To 終了値 Step カウンターの増加値
    繰り返すして実行する処理
Next 変数 '変数は省略可能

For カウンター変数 As データ型 = 初期値 To 終了値 Step カウンターの増加値
    繰り返すして実行する処理
Next 変数

For カウンター変数 As データ型 = 初期値 To 終了値
    繰り返すして実行する処理
Next 変数

dim i As Integer
dim count As Integer = 0

For i = 0 to 5
    count = count + 1
    Console.WriteLine("現在のカウント：" & count.ToString())
Next i

Console.WriteLine("ブロック外 カウンター変数 i：" & i.ToString()) 'ブロック外でもカウンター変数にアクセスできる。

Dim count As Integer = 0

For i As Integer = 0 To 5 Step 2
    count = count + 1
    Console.WriteLine("現在のカウント：" & count.ToString())
Next i

Dim count As Integer = 0
For i As Integer = 0 To 5
    count = count + 1
    Console.WriteLine("現在のカウント：" & count.ToString())
Next i

For カウンター変数1 As データ型 = 初期値 To 終了値

     For カウンター変数2 As データ型 = 初期値 To 終了値
           繰り返すして実行する処理
     Next 変数2

Next 変数1

For i As Integer = 0 To 5
    For j As Integer = 0 To 5
        Console.WriteLine("i行：" & i.ToString() & ",j列：" & j.ToString())
    Next j
Next i

For Each オブジェクトを格納する変数 In コレクションまたは配列
    繰り返すして実行する処理
Next 

For Each row As DataRow In ds.Tables("DatTable").Rows
     Console.WriteLine("商品マスタ価格：" & row("PRICE").ToString())
 Next

For i As Integer = 0 To 5
    Console.WriteLine("現在のカウント：" & i.ToString())
    If i = 2 Then
        Exit For
    End If
Next i

For i As Integer = 0 To 5
    If i = 2 Then
        Continue For   'カウンターが2の時、Forの先頭に戻しコンソール出力処理をスキップする
    End If
    Console.WriteLine("現在のカウント：" & i.ToString())
Next i

While 条件式
　　繰り返す処理
End While

Dim cReader As New System.IO.StreamReader("C:\temp\サンプル.txt", System.Text.Encoding.Default)

Try
   ' 読み込みできる文字がなくなるまで繰り返す
   While (cReader.Peek() >= 0)

   ' ファイルを 1 行ずつ読み込む
   Dim stBuffer As String = cReader.ReadLine()
   Console.WriteLine(stBuffer)

   End While

Catch ex As Exception
Finally
   cReader.Close()
End Try

'whileにTrueを指定した場合
While True
   Console.WriteLine("無限ループ処理中")

End While

'条件式が常に真（True）になるようにしたケース

Dim count As Integer = 0

While count < 1
     Console.WriteLine("無限ループ処理中")
End While

Do While 条件式
　　処理
    if 条件 then
       Exit While    'ifの条件が満たされたらWhileループを抜ける。
    End if
Loop

Dim count As Integer = 1
'カウンターが10になったら、Whileを終了させる。
While True
    Console.WriteLine("カウンター:" & count.ToString())
    If count = 10 Then
        Exit While
    End If

    count += 1
End While

Do While 条件式
　　処理
Loop

Dim count As Integer = 1
Do While count < 10

    Console.WriteLine("カウンター:" & count.ToString())

    count += 1

Loop

Do
　　処理
Loop While 条件式

Do
    count += 1
    Console.WriteLine("カウンター:" & count.ToString())
Loop While count < 10

Do Until 条件式
　　処理
Loop

Dim count As Integer = 1
Do Until count > 10
    Console.WriteLine("カウンター:" & count.ToString())
    count += 1
Loop

Do While count < 10
     count += 1
     Console.WriteLine("カウンター:" & count.ToString())
     If count = 5 Then
         Exit Do
     End If
Loop

GoTo ラベル
    処理・・・
ラベル：

Dim count As Integer = 0
Do While count < 10
    count += 1
    Console.WriteLine("カウンター:" & count.ToString())
    If count = 5 Then
        GoTo procexit      'procexit:ラベルにジャンプする。
    End If
Loop

procexit:                   'ジャンプ先
        Console.WriteLine("プログラム終了")