【求助】可有堪比百度的大神？VB的排列组合计数怎么算？

高中数学

数学个毛。简单的嵌套循环。再判断重复。dim ab（）a="abcdefg"b="ABCDEFG"redim ab(len(a)*len(b))for i=1 to len(a)for j=1 to len(b)ab(n)= mid(a,i,1) & mid(b,j,1)'这里插入一个函数对比已有的ab里的元素是否有重复n=n+1next jnext i

百度手打代码。。格式操蛋

Private Sub Command1_Click()
Dim a As String, b As String, ab() As String, tmp As String, YiJingCunZai As Boolean
a = "Abc"
b = "AbC"
Print a & Chr(13) & b
length = Len(a) * Len(b)
'Print length
ReDim ab(length)
n = 0
For i = 1 To Len(a)
For j = 1 To Len(b)
tmp = Mid(a, i, 1) & Mid(b, j, 1)
'Print "tmp:" & tmp
YiJingCunZai = False
For m = 1 To n
If ShiFouXiangTong(ab(m), tmp) = True Then
YiJingCunZai = True
'Print ab(m) & "=" & tmp
Exit For
End If
Next m
If YiJingCunZai = False Then
n = n + 1
ab(n) = tmp
End If
Next j
Next i
For i = 1 To UBound(ab)
If ab(i) <> "" Then
Print i & ":" & ab(i)
Else
Exit For
End If
Next i
End Sub
Function ShiFouXiangTong(ByVal a As String, ByVal b As String) As Boolean
Start:
For i = 1 To Len(a)
For j = 1 To Len(b)
If Mid(a, i, 1) = Mid(b, j, 1) Then
a = Replace(a, Mid(a, i, 1), "")
b = Replace(b, Mid(b, j, 1), "")
GoTo Start
End If
Next j
Next i
If a = "" And b = "" Then
ShiFouXiangTong = True
Else
ShiFouXiangTong = False
End If
End Function