vb怎么做排列组合

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

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秒钟