配列の確保割り当てには複数のやり方があります。

方法１
Dim 変数名(要素数) As 型名

方法２
Dim 変数名() As 型名 = {値1 [, 値2...]}

方法３
Dim 変数名() As 型名
変数名 = New 型名(要素数){}

方法４
Dim 変数名() As 型名
変数名 = New 型名(要素数){値1 [, 値2...]}

'方法１

'配列を確保する
Dim arr1(5) As Integer

-------------------------------------------------------
'方法２

'配列を確保し値を割り当てる
Dim arr2() As Integer = {100, 200, 300, 400, 500}

-------------------------------------------------------
'方法３

'参照型の配列変数のみ確保する
Dim arr3() As Integer

'配列の実体を確保し割り当てる
arr3 = New Integer(4){}

-------------------------------------------------------
'方法４

'参照型の配列変数のみ確保する
Dim arr4() As Integer

'配列に値を割り当てる
arr4 = New Integer(){ 1, 2, 3, 4, 5 }

 

繰り返し(ループ)文についての説明

For…Next文はカウンタ変数の値が終了値になるまでループする。

For 変数 As データ型 = 初期値 To 終了値 [Step 増分値]
    ループ処理
Next

Dim cnt As Integer = 0
For i As Integer = 1 To 100
    cnt += 1
Next

---

 

While…End While文は条件式がtrueの間ループする。

While (条件式) 
    ループ処理
End While

Dim cnt As Integer = 0
Dim n As Integer = 0
While n <= 100
    cnt += 1
    n += 1
End While

---

 

Do…Loop文

Whileは条件式がtrueの間ループする、Untilは条件式がtrueになるまでループする。

構文１
Do [While | Until] (条件文)
    ループ処理
Loop

構文２
Do
    ループ処理
Loop [While | Until] (条件文)

Dim cnt As Integer
Dim n As Integer

'Until文
cnt = 0
n = 1
Do Until n > 100
    cnt += 1
    n += 1
Loop


'While文
cnt = 0
n = 0
Do While n <= 100
    cnt += 1
    n += 1
Loop

---

 

For Each…Next文はコレクション要素の1番目から順に変数に取り出して処理する。

For Each 変数名 [As データ型] In コレクション
    ループ処理
Next

Dim strArr() As String = {"a", "b", "c"}

For Each item As String In strArr
    MessageBox.Show(item)
Next

---

ループ処理を途中で抜けるにはExit While、Exit Do、Exit Forでループ処理を抜けでます。

ループ処理をスキップさせるにはContinue While、Continue Do、Continue Forでスキップさせます。