VB.NET 配列の仕組みと使い方のサンプル

VB.NETの配列の仕組みと使い方のサンプルです。

確認環境
・Microsoft Visual Studio Community 2019

目次

配列とは

配列を作成する

配列を作成するサンプルです。

Module Module1
    Sub Main()
        Dim a() As String = {"赤", "黄", "青"} '配列
        Console.WriteLine(a(0)) '赤が出力される
        Console.WriteLine(a(1)) '黄が出力される
        Console.WriteLine(a(2)) '青が出力される

        Dim b = {"黒", "灰", "白"} '配列
        Console.WriteLine(b(0)) '黒が出力される
        Console.WriteLine(b(1)) '灰が出力される
        Console.WriteLine(b(2)) '白が出力される

        Dim c() As String = New String() {"A", "B", "C"} '配列
        Console.WriteLine(c(0)) 'Aが出力される
        Console.WriteLine(c(1)) 'Bが出力される
        Console.WriteLine(c(2)) 'Cが出力される
    End Sub
End Module

3行目は、リテラルで配列を作成しています。リテラルとはコード中に記述された値です。
4~6行目は、配列の各値を表示しています。

8行目は、型の指定をしていません。
13行目は、配列の前にNew Stringを使用しています。

配列の値を更新する

配列の値を更新するサンプルです。

Module Module1
    Sub Main()
        Dim a() As String = {"赤", "黄", "青"} '配列

        a(1) = "オレンジ"

        Console.WriteLine(a(0)) '赤が出力される
        Console.WriteLine(a(1)) 'オレンジが出力される
        Console.WriteLine(a(2)) '青が出力される
    End Sub
End Module

5行目は、3行目の配列のインデックスの1(黄)を指定しています。更新になり文字が置き換わります。

配列の値をFor Each文で取得する

配列の値をFor Each文で取得するサンプルです。

Module Module1
    Sub Main()
        Dim a() As String = {"赤", "黄", "青"} '配列

        For Each b As String In a
            Console.WriteLine(b) '赤 黄 青が出力される
        Next
    End Sub
End Module

5~7行目は、For Each文です。配列の各値を表示しています。

2次元配列を作成する

2次元配列を作成するサンプルです。

Module Module1
    Sub Main()
        Dim a(,) As String = {
            {"赤1", "黄1", "青1"},
            {"赤2", "黄2", "青2"}
        }
        Console.WriteLine(a(0, 0)) '赤1が出力される
        Console.WriteLine(a(0, 1)) '黄1が出力される
        Console.WriteLine(a(0, 2)) '青1が出力される
        Console.WriteLine(a(1, 0)) '赤2が出力される
        Console.WriteLine(a(1, 1)) '黄2が出力される
        Console.WriteLine(a(1, 2)) '青2が出力される
    End Sub
End Module

3行目は、()の中にカンマがあります。
3~6行目は、2次元配列を作成しています。
7~12行目は、2次元配列の値を表示しています。

関連の記事

VB.NET if文のサンプル
VB.NET for文のサンプル(Exit/Continue)
VB.NET While文のサンプル(Exit/Continue)
VB.NET Do...Loop文のサンプル(Exit/Continue)

△上に戻る