各位大大 我在网络上找到的这VB6排列组合的范例
'# [Visual Basic 6.0] 简单利用递回概念列出排列组合
'# 0xDe
Private Sub Command1_Click()
List1.Clear ' 清空上一次的结果
Call Change(Text1, "")
End Sub
Function Change(A, B)
If Len(A) = Len(B) Then
List1.AddItem B
Else
For I = 1 To Len(A)
Key = True ' 不让相同的字串重复使用
For J = 1 To Len(B)
If Mid(B, J, 1) = Mid(A, I, 1) Then Key = False
Next J
If Key Then Call Change(A, B & Mid(A, I, 1))
Next I
End If
End Function
但是我想把它用在VBA(for Arena) 而且把这些输出的值放在一个阵列而不是List中供我取用
由于之前只有学Matlab
对于Vba的写法不大熟
请问有大大可以帮忙解惑吗?
感谢