vb怎么做排列组合

A组包含1 To 16，B组包含2 To 18，C组包含5 To 23，D组包含8 To 28，E组包含13 To 32，F组包含21 To 33，求排列组合S（A，B，C，D，E，F）有多少组并列出，组合S中要求A<B<C<D<E<F，求哪位高手帮忙，谢谢！

这个你用循环嵌套就可以完成：
窗体上添加一个列表框和一个按钮，代码如下：

Option Explicit

Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer
For A = 1 To 16
For B = 2 To 18
For C = 5 To 23
For D = 8 To 28
For E = 13 To 32
If A < B And B < C And C < D And D < E Then
List1.AddItem A & "," & B & "," & C & "," & D & "," & E
End If
Next E
Next D
Next C
Next B
Next A
End Sub
我的计算机比较旧了，大约需要25秒钟

我一向只说方法 组合就是选择n个数中m个不同数的全部可能 所以你要选几个数据你就用几层循环就行 例如选三个的情况 for i=1 to 5 for j=i to 5 for k=j to 5 print i,j,k print next k next j next i 不知道我的print用对没有 我好久没有完vb了 你也可以用数组来存变量