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

Question

为了方便察看我把结果输出到文件
Option ExplicitPrivate 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