How to create and set values to a 3d array in VB.NET

1 Answer

0 votes
Imports System

Class Program
    Public Shared Sub InitializeArray(ByVal array As Integer(,,), ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
        For i As Integer = 0 To x - 1
            For j As Integer = 0 To y - 1
                For k As Integer = 0 To z - 1
                    array(i, j, k) = i + j + k
                Next
            Next
        Next
    End Sub

    Public Shared Sub PrintArray(ByVal array As Integer(,,), ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
        For i As Integer = 0 To x - 1
            For j As Integer = 0 To y - 1
                For k As Integer = 0 To z - 1
                    Console.Write(array(i, j, k) & " ")
                Next

                Console.WriteLine()
            Next
        Next
    End Sub

	Public Shared Sub Main()
        Dim x As Integer = 2, y As Integer = 3, z As Integer = 4
        Dim array As Integer(,,) = New Integer(x - 1, y - 1, z - 1) {}

        InitializeArray(array, x, y, z)
        PrintArray(array, x, y, z)
    End Sub
End Class


' run:
'
' 0 1 2 3 
' 1 2 3 4 
' 2 3 4 5 
' 1 2 3 4 
' 2 3 4 5 
' 3 4 5 6 
'

 



answered Apr 21 by avibootz
...