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/