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

关于如ABCD……的排列组合计算，比如AB与ab，一共有Aa,Ab,Ba,Bb四种组合，各占四分之一；又比如Ab与Ab组合，一共有AA,Ab,bA,bb四种组合，其中Ab,bA可以看做一样，即1/4AA,1/4bb,1/2Ab。其实这样简单的心算也会的，但遇到ABCDEFGHIJK……这样长的就没办法了……
百度搜了一下，只找到有N！的计算，排列组合的计数却没有半点头绪……无意中发现了这个贴吧，顿时感觉有救了！请教各位大神，请打救我吧！！
这么啰嗦的文字，大家都累了，养养眼吧 ~ ~

高中数学

不感兴趣

开通SVIP免广告

数学个毛。简单的嵌套循环。再判断重复。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

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六