|
ステートメント
|
| Continue |
ループ処理（Do, For, While）の制御を反復処理に移します
Continue { Do | For | While }
|
|
For i As Integer = 0 To 3
If i = 2 Then
Continue For 'ループ処理に制御を移す
End If
MsgBox("Loop:" & i)
Next
|
| Do...Loop |
指定された条件 (Boolean型のcondition) が真 (True) の間、
または条件が真 (True) になるまで繰り返します
Do { While | Until } condition
[ Exit Do ]
Loop
Do
[ Exit Do ]
Loop { While | Until } condition
1. While
［Untilを指定しない場合は必須］condition（条件）が真 (True) の間は繰り返します
2. Until
［Whileを指定しない場合は必須］condition（条件）が真 (True) になるまで繰り返します
3. condition
［省略可能］反復処理の条件（ブール式 ）を指定します
4. Exit Do
［省略可能］制御を反復処理（Do...Loop）の外に移します
5. Loop
［必須］制御の繰り返し範囲の終わりを指示します
|
|
Dim flag As Boolean = False
Dim cnt As Integer = 0
Do While cnt < 10
Do
If flag then
flag = False
Exit Do
Else
cnt += 1
flag = True
End If
Loop Until flag
Loop
|
| For Each...Next |
コレクションの要素を順番に取得する処理を繰り返します
For Each element [ As datatype ] In group
[ Exit For ]
Next [ element ]
1. element
［必須］コレクションの要素を取得する変数を指定します
2. datatype
［必須］element のデータ型を指定します
3. group
［必須］コレクションのオブジェクト変数を指定します
4. Exit For
［省略可能］制御を反復処理（For Each...Next）の外に移します
5. Next
［必須］制御の繰り返し範囲の終わりを指示します
|
|
Dim myCollection As New Collection
For Each curElement As String In myCollection
If curElement.Equals("EXIT") Then
Exit For
End If
Next
|
| For...Next |
指定された回数だけ一連の処理を繰り返します
For counter [ As datatype ] = start To end [ Step step ]
[ Exit For ]
Next [ counter ]
1. counter
［必須］繰り返し処理する回数の数値変数を指定します
2. datatype
［必須］counter のデータ型を指定します
3. start
［必須］counter の初期値を数式で指定します
4. end
［必須］counter の最終値を数式で指定します
5. step
［省略可能］counter の１回（反復処理）ごとの増減値を数式で指定します
6. Exit For
［省略可能］制御を反復処理（For Each...Next）の外に移します
7. Next
［必須］制御の繰り返し範囲の終わりを指示します
|
|
For i As Integer = 0 To 10 Step 2
For j As Integer = 3 To 0 Step -1
Next j
Next i
|
| GoTo |
指定した行に無条件に分岐します
GoTo line
1. line
［必須］任意の行または、ラベルを指定します
|
|
Dim Line As Integer = 1000
Label1:
If Line = 1000 then
GoTo Label2
End if
Label2:
|
| If...Then...Else |
条件式の値を評価した結果で処理を実行します
If condition [ Then ]
[ statements ]
[ ElseIf elseifcondition [ Then ]]
[ Else ]
[ statements ]
End If
1. condition
［必須］Boolean型に評価される条件式を指定します
2. Then
［複数行形式は省略可能］condition が真（True）の処理を指定します
3. elseifcondition
［ElseIfを記述で必須］ElseIfで評価される条件式を指定します
4. Else
［省略可能］condition が為（False）の処理を指定します
5. Next
［必須］If...Then...Elseの終わりを指示します
|
|
Dim str As String = "A"
If str.Equals("A") Then
MsgBox("A")
Else
MsgBox("other")
End If
If str.Equals("A") Then
MsgBox("A")
ElseIf str.Equals("a")
MsgBox("a")
Else
MsgBox("other")
End If
|
| Select...Case |
条件式の値に一致する処理ブロックの処理を実行します
Select [ Case ] testexpression
Case expressionlist
[ statements ]
[ Case Else ]
[ elsestatements ]
End Select
1. testexpression
［必須］条件式の値を指定します
2. expressionlist
［必須］testexpression と照合する値を指定します
3. Case Else elsestatements
［省略可能］Case testexpressionで一致する値がない場合の処理を指定します
4. End Select
［必須］Select...Caseの終わりを指示します
|
|
Dim int As Integer = 10
Select Case int
Case 0
MsgBox("0")
Case 1 To 5
Msgbox("1-5")
Case 6, 7
MsgBox("6,7")
Case Else
MsgBox("8-")
End Select
|
| Try...Catch...Finally |
実行中に発生する可能性のある例外の対処法を指定します
Try
[ tryStatements ]
[ Exit Try ]
[ Catch [ exception [ As type ] ] [ When expression ]
[ catchStatements ]
[ Exit Try ]
[ Finally ]
[ finallyStatements ]
End Try
1. tryStatements
［省略可能］例外が発生する可能性のあるステートメントを指定します
2. Catch
［省略可能］発生した例外を評価します
3. exceptionelsestatements
［省略可能］例外の値を評価する変数名を指定します
4. typeelsestatements
［省略可能］exception の型を指定します
5. Whenelsestatements
［省略可能］expression の評価が真（True）になるときに例外をキャッチします
6. typeexpression
［省略可能］Boolean型に評価される例外のキャッチされる状況を指定します
7. typecatchStatements
［省略可能］ブロックで発生した例外を処理するステートメントを指定します
8. typeExit Try
［省略可能］Finally ステートメントを実行し、Try...Catch...Finallyの外に抜け出します
9. typeFinally
［省略可能］Try ステートメントから抜けるときに実行します
10. typefinallyStatements
［省略可能］他の例外処理がすべて行われた後に実行するステートメントを指定します
11. End Try
［必須］Try...Catch...Finallyの終わりを指示します
|
|
Dim x As Integer = 2
Dim y As Integer = 0
Try
x = x \ y
Catch ex As Exception When y = 0
MsgBox("divide by 0")
Finally
MsgBox("Final")
End Try
|
| While...End While |
指定された条件が真 (True) の間、一連の処理を繰り返します
While condition
[ Exit While ]
End While
1. condition
［必須］Boolean型に評価される条件式を指定します
2. Exit While
［省略可能］制御を反復処理（While）の外に移します
7. End While
［必須］制御の繰り返し範囲の終わりを指示します
|
|
Dim cnt As Integer = 0
While cnt < 10
cnt += 1
End While
|
