Arrays 循环VBScript中任意维度数组中的所有项

我需要在VBScript中迭代数组中的所有元素，但它的维数未知。我怎么能做到

例如，在Java中，多维数组是数组的数组，您可以使用子数组。我不知道如何在VBscript中实现这一点

感谢您的帮助

---

更新：此任务可以通过对数组使用For Each循环来解决。那么，每一个循环都代表着什么呢？它是如何实现的？

您可以创建一个

函数

或

子函数

，以递归方式检查数组中的键是否也是数组。下面是一些要演示的示例代码：

<%
' Simple sub to just loop through the array and echo its values
Sub array_values(array_value)
    Dim i

    If IsArray(array_value) Then
        For i = LBound(array_value) To UBound(array_value)
            If IsArray(array_value(i)) Then
                array_values array_value(i)
            Else
                Response.Write array_value(i) & "<br>"
            End If
        Next
    End If
End Sub


' Sample array
Dim a

a = array( _
    array("1", "2", "3"), _
    array("a", "b", "c", _
        array("e", "f", "g", _
            array("h", "i", "j", _
                array("k", "l", "m", _
                    array("n", "o", "p", _
                        array("q", "r", "s", _
                            array("t", "u", "v", _
                                array("w", "x", "y") _
                            ) _
                        ) _
                    ) _
                ) _
            ) _
        ) _
    ) _
)

array_values a
%>