Bagikan melalui

Cara: Menginisialisasi Variabel Array di Visual Basic

Anda menginisialisasi variabel array dengan menyertakan array harfiah dalam New klausul dan menentukan nilai awal array. Anda dapat menentukan jenis atau mengizinkannya untuk disimpulkan dari nilai dalam array literal. Untuk informasi selengkapnya tentang bagaimana jenis disimpulkan, lihat "Mengisi Array dengan Nilai Awal" dalam Array.

Untuk menginisialisasi variabel array dengan memakai array literal

  • Baik dalam New klausa, atau saat Anda menetapkan nilai array, berikan nilai elemen di dalam kurung kurawal ({}). Contoh berikut menunjukkan beberapa cara untuk mendeklarasikan, membuat, dan menginisialisasi variabel untuk berisi array yang memiliki elemen jenis Char.

    ' The following five lines of code create the same array.
' Preferred syntaxes are on the lines with chars1 and chars2.
Dim chars1 = {"%"c, "&"c, "@"c}
Dim chars2 As Char() = {"%"c, "&"c, "@"c}

Dim chars3() As Char = {"%"c, "&"c, "@"c}
Dim chars4 As Char() = New Char(2) {"%"c, "&"c, "@"c}
Dim chars5() As Char = New Char(2) {"%"c, "&"c, "@"c}

    Setelah setiap pernyataan dijalankan, array yang dibuat memiliki panjang 3, dengan elemen pada indeks 0 hingga indeks 2 yang berisi nilai awal. Jika Anda menyediakan batas atas dan nilai, Anda harus menyertakan nilai untuk setiap elemen dari indeks 0 hingga batas atas.

    Perhatikan bahwa Anda tidak perlu menentukan batas atas indeks jika Anda menyediakan nilai elemen dalam array literal. Jika tidak ada batas atas yang ditentukan, ukuran array disimpulkan berdasarkan jumlah nilai dalam array literal.

Untuk menginisialisasi variabel array multidimensi dengan menggunakan literal array

  • Nilai sarang di dalam kurung kurawal ({}) dalam kurung kurawal. Pastikan bahwa semua literal array bertingkat dianggap sebagai array dengan jenis dan panjang yang sama. Contoh kode berikut menunjukkan beberapa contoh inisialisasi array multididensi.

    Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
Dim customerData = {{"City Power & Light", "http://www.cpandl.com/"},
                    {"Wide World Importers", "http://wideworldimporters.com"},
                    {"Lucerne Publishing", "http://www.lucernepublishing.com"}}

' You can nest array literals to create arrays that have more than two 
' dimensions.
Dim twoSidedCube = {{{1, 2}, {3, 4}}, {{5, 6}, {7, 8}}}

  • Anda dapat secara eksplisit menentukan batas array, atau membiarkannya keluar dan membuat pengkompilasi menyimpulkan batas array berdasarkan nilai dalam array literal. Jika Anda menyediakan batas atas dan nilai, Anda harus menyertakan nilai untuk setiap elemen dari indeks 0 hingga batas atas di setiap dimensi. Contoh berikut menunjukkan beberapa cara untuk mendeklarasikan, membuat, dan menginisialisasi variabel untuk berisi array dua dimensi yang memiliki elemen jenis Short

    ' The following five lines of code create the same array.
' Preferred syntaxes are on the lines with scores1 and scores2.
Dim scores1 = {{10S, 10S, 10S}, {10S, 10S, 10S}}
Dim scores2 As Short(,) = {{10, 10, 10}, {10, 10, 10}}

Dim scores3(,) As Short = {{10, 10, 10}, {10, 10, 10}}
Dim scores4 As Short(,) = New Short(1, 2) {{10, 10, 10}, {10, 10, 10}}
Dim scores5(,) As Short = New Short(1, 2) {{10, 10, 10}, {10, 10, 10}}

    Setelah setiap pernyataan dijalankan, array yang dibuat berisi enam elemen yang diinisialisasi yang memiliki indeks (0,0), , (0,1), (0,2)(1,0), (1,1), dan (1,2). Setiap lokasi array berisi nilai 10.

  • Contoh berikut melakukan iterasi melalui array multidmensional. Dalam aplikasi konsol Windows yang ditulis di Visual Basic, tempelkan kode ke dalam metode Sub Main(). Komentar terbaru menunjukkan hasil.

    Dim numbers = {{1, 2}, {3, 4}, {5, 6}}

' Iterate through the array.
For index0 = 0 To numbers.GetUpperBound(0)
    For index1 = 0 To numbers.GetUpperBound(1)
        Debug.Write(numbers(index0, index1).ToString & " ")
    Next
    Debug.WriteLine("")
Next
' Output
'  1 2
'  3 4
'  5 6

Untuk menginisialisasi variabel array bergerigi menggunakan literal array

  • Tempatkan nilai objek di dalam kurung kurawal ({}). Meskipun Anda juga dapat menyarangkan literal array yang menentukan array dengan panjang berbeda, untuk kasus array terpecah, pastikan bahwa literal array yang bersarang diapit dalam tanda kurung (()). Kurung memaksa dilakukannya evaluasi array literal bertingkat, dan array yang dihasilkan digunakan sebagai nilai awal array bergerigi. Contoh kode berikut menunjukkan dua contoh inisialisasi array jagged.

    ' Create a jagged array of arrays that have different lengths.
Dim jaggedNumbers = {({1, 2, 3}), ({4, 5}), ({6}), ({7})}

' Create a jagged array of Byte arrays.
Dim images = {New Byte() {}, New Byte() {}, New Byte() {}}

  • Contoh berikut mengiterasi sebuah array bergigi. Dalam aplikasi konsol Windows yang ditulis di Visual Basic, tempelkan kode ke dalam metode Sub Main(). Komentar terakhir dalam kode menunjukkan keluaran.

    ' Create a jagged array of arrays that have different lengths.
Dim jaggedNumbers = {({1, 2, 3}), ({4, 5}), ({6}), ({7})}

For indexA = 0 To jaggedNumbers.Length - 1
    For indexB = 0 To jaggedNumbers(indexA).Length - 1
        Debug.Write(jaggedNumbers(indexA)(indexB) & " ")
    Next
    Debug.WriteLine("")
Next

' Output:
'  1 2 3 
'  4 5 
'  6
'  7

Lihat juga