vb.net 初始化三维数组赋值和循环访问

在 VB.NET 中，初始化三维数组并循环访问其元素可以使用以下代码：

' 初始化三维数组
Dim fruits(,,) As String = {{{"apple", "banana"}, {"cherry", "date"}}, {{"elderberry", "fig"}, {"grape", "honeydew"}}}

' 循环访问三维数组元素
For i = 0 To fruits.GetLength(0) - 1
    For j = 0 To fruits.GetLength(1) - 1
        For k = 0 To fruits.GetLength(2) - 1
            Console.WriteLine(fruits(i,j,k))
        Next
    Next
Next

这样就会输出三维数组中的每一个元素，即“apple”、“banana”、“cherry”、“date”、“elderberry”、“fig”、“grape”和“honeydew”。需要注意的是，GetLength(0)、GetLength(1) 和 GetLength(2) 分别返回三维数组的第一维、第二维和第三维的长度。如果你想按层循环访问三维数组中的元素，可以使用以下代码：

' 按层循环访问三维数组元素
For i = 0 To fruits.GetLength(0) - 1
    Console.WriteLine("Layer " & (i + 1))
    For j = 0 To fruits.GetLength(1) - 1
        For k = 0 To fruits.GetLength(2) - 1
            Console.Write(fruits(i,j,k) & " ")
        Next
        Console.WriteLine()
    Next
    Console.WriteLine()
Next

这样就会按层输出三维数组中的每一个元素，即“apple banana cherry date”、“elderberry fig grape honeydew”。需要注意的是，Console.Write() 方法不会换行，可以在同一行输出多个元素，而 Console.WriteLine() 方法会在末尾添加换行符，可以在下一行输出。