VBS_For_next
2147 ワード
ループ数を指定し、カウンタを使用して文を繰り返し実行します.構文は次のとおりです.
1
2
3
4
5
主なパラメータ:
counter:ループカウンタとして使用される数値変数.この変数は、配列要素またはユーザー定義タイプの要素ではありません.
start:counterの初期値.
end:counterの最終値.
Step:counterのステップ長.指定されていない場合、stepのデフォルト値は1です.
具体例のコードは次のとおりです.
For…Next
1
2
3
4
5
Stepカウンタサイクルステップの設定
1
2
3
4
5
ループを終了
Exit For文は、カウンタが終了値に達する前にForを終了するために使用されます.Next文.通常、ループを終了するのは、特定の場合(エラーが発生した場合など)だけですので、If...Then...Else文のTrue文ブロックでExit For文を使用できます.Falseの場合、ループは通常通り実行されます.
1
2
3
4
5
6
7
8
1
2
3
4
5
For counter = start To end [ Step step] [statements] [ Exit For ] [statements] Next 主なパラメータ:
counter:ループカウンタとして使用される数値変数.この変数は、配列要素またはユーザー定義タイプの要素ではありません.
start:counterの初期値.
end:counterの最終値.
Step:counterのステップ長.指定されていない場合、stepのデフォルト値は1です.
具体例のコードは次のとおりです.
For…Next
1
2
3
4
5
Dim Count:Count = 0 ' ， 0 For i = 1 To 10 ' 10 Count = Count + 1 Next MsgBox Count ' 10 Stepカウンタサイクルステップの設定
1
2
3
4
5
Dim Count:Count = 0 ' ， 0 For i = 1 To 10 Step 2 ' 2， 5 Count = Count + 1 Next MsgBox Count ' 5 ループを終了
Exit For文は、カウンタが終了値に達する前にForを終了するために使用されます.Next文.通常、ループを終了するのは、特定の場合(エラーが発生した場合など)だけですので、If...Then...Else文のTrue文ブロックでExit For文を使用できます.Falseの場合、ループは通常通り実行されます.
1
2
3
4
5
6
7
8
Dim Count:Count = 0 ' ， 0 For i = 1 To 10 ' 10 Count = Count + 1 If Count = 5 Then ' Count 5 ， Exit For End If Next MsgBox Count ' 5