作者gameboy163 (shin0615)
看板Visual_Basic
标题[VBA ]排列组合范例
时间Mon Nov 25 17:20:55 2013
各位大大 我在网路上找到的这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的写法不大熟
请问有大大可以帮忙解惑吗?
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.65.70