' インデックスが 0 から 5 まで、要素数 6 の Integer型配列
Dim arr1(5) As Integer

' インデックス0 (配列の先頭の要素) に 2 を代入
arr1(0) = 2

' インデックスが 0 から 9 まで、要素数 10 の String型配列
Dim arr2(9) As String

' インデックス9 (配列の末尾の要素) に "text" を代入
arr2(9) = "text"

' String型配列を代入するための変数 (これだけでは配列は作成されない)
Dim arr1() As String

' 要素数 10 の String型配列
Dim arr2(9) As String

arr1 = arr2

' String型配列を代入するための変数 (arrにはNothingが代入されている)
Dim arr() As String

arr(0) = "text" ' ここでNullReferenceExceptionがスローされる

' インデックスが 0 から 3 まで、要素数 4 の String型配列
Dim arr(3) As String

arr(10) = "text" ' ここでIndexOutOfRangeExceptionがスローされる

' 5つの値を格納したInteger型配列
Dim values() As Integer = {3, 1, 4, 5, 2}

Console.WriteLine(values(2)) ' "4"が出力される

' 3つの値を格納したString型配列
Dim names() As String = {"Alice", "Bob", "Charlie"}

Console.WriteLine(names(0)) ' "Alice"が出力される

' 要素数10のInteger型配列
Dim arr(9) As Integer
Dim len As Integer

len = arr.Length

Console.WriteLine(len) ' "10"が出力される

' 5つの値を格納したInteger型配列
Dim values() As Integer = {3, 1, 4, 5, 2}

Console.WriteLine(values.Length) ' "5"が出力される

' 3つの値を格納したString型配列
Dim names() As String = {"Alice", "Bob", "Charlie"}

Console.WriteLine(names.Length) ' "3"が出力される

' 要素数が0の空の配列
Dim arr1(-1) As Integer
Dim arr2() As Integer = {}

Dim arr() As String = {"A", "B", "C", "D", "E"}

' Forステートメントですべての要素について繰り返す
For i As Integer = 0 To arr.Length - 1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

' For-Eachステートメントですべての要素について繰り返す
For Each s As String In arr
  Console.Write("{0} ", s)
Next
Console.WriteLine()

A B C D E 
A B C D E 

Dim arr() As String = {"A", "B", "C", "D", "E"}

' Forステートメントで配列の末尾から先頭の順に表示する
For i As Integer = arr.Length - 1 To 0 Step -1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

E D C B A 

Dim arr() As String = {"A", "B", "C", "D", "E"}

' 配列の内容を逆順に並び替える
Array.Reverse(arr)

' 逆順にした配列の内容をFor-Eachステートメントで先頭から順に表示する
For Each s As String In arr
  Console.Write("{0} ", s)
Next
Console.WriteLine()

Imports System.Linq

Dim arr() As String = {"A", "B", "C", "D", "E"}

' 逆順で列挙される配列の内容をFor-Eachステートメントで先頭から順に表示する
For Each s As String In arr.Reverse()
  Console.Write("{0} ", s)
Next
Console.WriteLine()

E D C B A 

Dim arr1(4) As Integer
Dim arr2() As Integer

arr1(0) = 3

' 配列を別の変数に代入
' (複製が行われるわけではなく、単に同一の配列を参照するようになる)
arr2 = arr1

Console.WriteLine(arr1(0)) ' "3"が表示される
Console.WriteLine(arr2(0)) ' arr1(0)と同じ"3"が表示される

' 代入元の配列に変更を加える
arr1(0) = 9

Console.WriteLine(arr1(0)) ' "9"が表示される
Console.WriteLine(arr2(0)) ' arr1(0)と同じ"9"が表示される

Dim arr1(4) As Integer
Dim arr2() As Integer

arr1(0) = 3

' Cloneメソッドで配列を複製する
arr2 = DirectCast(arr1.Clone(), Integer())

Console.WriteLine(arr1(0)) ' "3"が表示される
Console.WriteLine(arr2(0)) ' "3"が表示される

' 複製元の配列に変更を加える
arr1(0) = 9

Console.WriteLine(arr1(0)) ' "9"が表示される
Console.WriteLine(arr2(0)) ' "3"が表示される

Dim arr1() As Integer = {1, 2, 3, 4, 5}
Dim arr2() As Integer = {6, 7, 8, 9, 10}

' arr1の先頭から3個分をarr2にコピー
Array.Copy(arr1, arr2, 3)

' コピーした結果を表示
For Each val As Integer In arr2
  Console.Write("{0}, ", val)
Next
Console.WriteLine()

1, 2, 3, 9, 10, 

Dim arr1() As Integer = {1, 2, 3, 4, 5}
Dim arr2() As Integer = {6, 7, 8, 9, 10}

' arr1(1)からの要素3個をarr2(2)以降にコピー
' (arr1のインデックス1以降の要素を、arr2のインデックス2以降に、要素3個分をコピー)
Array.Copy(arr1, 1, arr2, 2, 3)

' コピーした結果を表示
For Each val As Integer In arr2
  Console.Write("{0}, ", val)
Next
Console.WriteLine()

6, 7, 2, 3, 4, 

' 一次元配列について
Dim arr() As Integer = {4, 2, 3, 0, 1}

' arrの値を表示
For i As Integer = 0 To arr.Length - 1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

' 並べ替え
Array.Sort(arr)

' arrの値を表示
For i As Integer = 0 To arr.Length - 1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

' 反転
Array.Reverse(arr)

' arrの値を表示
For i As Integer = 0 To arr.Length - 1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

' 1 を含むインデックスを取得する
Dim index As Integer = Array.IndexOf(arr, 1)

Console.WriteLine(index)

' 配列のインデックス0から3要素分クリアする
Array.Clear(arr, 0, 3)

' arrの値を表示
For i As Integer = 0 To arr.Length - 1
  Console.Write("{0} ", arr(i))
Next
Console.WriteLine()

4 2 3 0 1
0 1 2 3 4
4 3 2 1 0
3
0 0 0 1 0