请高手指点编写一个vb全组合算法

组合算法 VB代码

Sub combine(a() As Integer, ByVal n As Integer, ByVal m As Integer, b() As Integer, ByVal L As Integer)
Dim i As Integer
Dim j As Integer

For i = n To m Step -1
b(m - 1) = i - 1
If m > 1 Then
combine a, i - 1, m - 1, b, L
Else
For j = L - 1 To 0 Step -1
Print a(b(j)); " ";
Next j
Print
End If
Next i

End Sub

Sub Command1_click()
Dim i As Integer
ReDim a(0 To 10) As Integer, b(0 To 10) As Integer

For i = 1 To 10
a(i - 1) = i
Next i

combine a, 5, 4, b, 4

End Sub

Sub combine(a() As Integer, ByVal n As Integer, ByVal m As Integer, b() As Integer, ByVal L As Integer)
参数

a 存放候选项
n 总项数
m 取出项数
b 存放选出结果
M = m

只听说有全排列，哪有全组合？
请楼主说明白一些好帮你。