n级嵌套循环vbs

Question

有没有一种方法来优化这个嵌套循环的例子来使用这些var_Arrays的动态数量？

'Dim var0_Arr : var0_Arr = Array(min, max, step) 
Dim var1_Arr : var1_Arr = Array(0, 1.0, 0.5) 
Dim var2_Arr : var2_Arr = Array(0, 1.0, 0.5) 
Dim var3_Arr : var3_Arr = Array(0, 1.0, 0.5) 
Dim var4_Arr : var4_Arr = Array(0, 1.0, 0.5) 
'Dim var5_Arr : var5_Arr = ... 
'Dim var6_Arr : var6_Arr = ... 
'... 

for var1 = var1_Arr(0) to var1_Arr(1) step var1_Arr(2) 
    for var2 = var2_Arr(0) to var2_Arr(1) step var2_Arr(2) 
     for var3 = var3_Arr(0) to var3_Arr(1) step var3_Arr(2) 
      for var4 = var4_Arr(0) to var4_Arr(1) step var4_Arr(2) 
       msgbox var1 & " " & var2 & " " & var3 & " " & var4 
      next 
     next 
    next 
next 

我想用这样的：

Dim var_Arr : var_Arr = Array( Array(0, 1.0, 0.5),_ 
           Array(0, 1.0, 0.5),_ 
           Array(0, 1.0, 0.5),_ 
           Array(0, 1.0, 0.5)) 

随着UBound函数（var_Arr）我想知道我有多深去与嵌套循环，但我不知道如何实现动态嵌套循环结合的动态范围（最小，最大步）

Answer 1

这个回答解决我的问题： https://stackoverflow.com/a/4683760/6440754

只有片在VBS没有得到支持：

Function Slice(ByRef arrArray, intStart, intEnd) 

    If intEnd = vbNull Then intEnd = UBound(arrArray) 
    If intStart < 0 Then intStart = UBound(arrArray) - intStart 

    arrTemp = Array() 
    intCount = 0 

    For i = intStart To intEnd 
     ReDim Preserve arrTemp(intCount) 
     arrTemp(intCount) = arrArray(i) 
     intCount = intCount + 1 
    Next 

    Slice = arrTemp 

End Function 

来源https://www.aspfree.com/c/a/code-examples/creating-useful-array-functions/