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

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

' 初始化四维数组
Dim fruits(,,,) As String = { {{{"apple", "banana"}, {"cherry", "date"}}, {{"elderberry", "fig"}, {"grape", "honeydew"}}},
                              {{{"kiwi", "lemon"}, {"mango", "nectarine"}}, {{"orange", "peach"}, {"quince", "raspberry"}}} }

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

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

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

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