各位大大 我在網路上找到的這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的寫法不大熟
請問有大大可以幫忙解惑嗎?
感謝