Question

How to declare, initialize and print three-dimensional (3D) array of strings in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim arr3D As String(,,) = {{{"aaa", "bbb", "ccc", "ddd"}, {"eee", "fff", "ggg", "hhh"}, {"eee", "fff", "ggg", "hhh"}},
                                   {{"iii", "jjj", "kkk", "lll"}, {"mmm", "nnn", "ooo", "ppp"}, {"qqq", "rrr", "sss", "ttt"}}}

        For i As Integer = 0 To arr3D.GetLength(0) - 1
            For j As Integer = 0 To arr3D.GetLength(1) - 1
                For k As Integer = 0 To arr3D.GetLength(2) - 1
                    Console.Write("{0, 4}", arr3D(i, j, k))
                Next
            Next
            Console.WriteLine()
        Next
    End Sub

End Module

' run:
' 
' aaa bbb ccc ddd eee fff ggg hhh eee fff ggg hhh
' iii jjj kkk lll mmm nnn ooo ppp qqq rrr sss ttt
' 

 

70+ SQL courses for beginners and professionals