求一算法（可能涉及组合与排列），就这么多分了，求救啊该如何解决

求一算法（可能涉及组合与排列），就这么多分了，求救啊
参数：现有一数组zhuanYE（m），记录为数字如（4，6，8，3）
得出的结果是：一二维数组scoreTmp（i，m）：其中i是得到的组合数，有多少种组合i就是多少，m是上边zhuanYE（）   的数组长度

每个i行如：（0－4的某个数字，0－6的某个数字，0－8的某个数字，0－3的某个数字）  

需要所有的组合

例如：scoreTmp(0,m)为（0，0，0，0）
            scoreTmp(1,m)为（0，1，0，1）
.
.
.
.
            scoreTmp(i,m)为（3，5，4，2）
看不明白问我QQ:45264117


------解决方案--------------------
为了方便察看我把结果输出到文件
Option Explicit

Private Sub Command1_Click()
Dim zhuanYE() As Long, scoreTmp() As Long
Dim maxi As Long, m As Long, i As Long, j As Long, k As Long, t As Long
m = 3
Open "e:\1.txt " For Output As #1
ReDim zhuanYE(m)
zhuanYE(0) = 4
zhuanYE(1) = 6
zhuanYE(2) = 8
zhuanYE(3) = 3
maxi = 1
For i = 0 To UBound(zhuanYE)
maxi = maxi * zhuanYE(i)
Next
maxi = maxi - 1
ReDim scoreTmp(maxi, m)
For i = 0 To maxi
k = i
For j = 0 To m
t = k Mod zhuanYE(j)
k = k \ zhuanYE(j)
scoreTmp(i, j) = t
Print #1, t;
Next
Print #1,
Next
Close #1
End Sub