[VBNET] Arrays

Module Arrays

    Sub Main()
        ' dichiarazione di array
        Dim giorni(7) As String
        ' giorni è un ARRAY di elementi di tipo STRINGA DI CARATTERI
        '        è in grado di gestire 7 VALORI, indicizzati da 0 a 6
        giorni(0) = "Lunedi"
        giorni(1) = "Martedi"
        giorni(2) = "Mercoledi"
        giorni(3) = "Giovedi"
        giorni(4) = "Venerdi"
        giorni(5) = "Sabato"
        giorni(6) = "Domenica"

        ' un array è "attraversabile" con un ciclo for
        For indice As Integer = 0 To 6
            Console.WriteLine("Il giorno {0} è {1}, il successivo è {2}",
                              indice, giorni(indice), giorni((indice + 1) Mod 7))
        Next
        ' proprietà e metodi
        Console.WriteLine("Lunghezza: {0}", giorni.Length)
        ' oggetto di sistema Array
        Console.WriteLine("Presenza di elementi: INDEXOF('lunedi') = {0}",
                          Array.IndexOf(giorni, "Lunedi"))
        ' modalità di inizializzazione
        Dim mesi() As String = {"GEN", "FEB", "MAR", "APR", "MAG", "GIU", "LUG", "AGO", "SET", "OTT", "NOV", "DIC"}
        ' un array è attraversabile con un ciclo FOR EACH
        For Each mese As String In mesi
            Console.WriteLine(mese)
        Next
        ' MATRICI
        Dim identity(,) As Integer =
            {{1, 0, 0},
             {0, 1, 0},
             {0, 0, 1}}
        For row As Integer = 0 To 2
            For col As Integer = 0 To 2
                Console.Write("{0}  ", identity(row, col))
            Next
            Console.WriteLine()
        Next
        Console.WriteLine("Lunghezza: {0}", identity.Length)
        Console.WriteLine("Lunghezza di una dimensione: {0}", identity.GetLength(1))

        Console.ReadLine()
    End Sub

End Module