12个数字中选5个数字,组成一个排列,也是C125,12为下标,5为上标用VB写代码,怎么写总共有12*11*10*9*8/（5*4*3*2*1）=792个排列组合可能我的问题有点没说清楚,我的意思是在1,2,34,5,6,7,8,9,10,11,12

Question

12个数字中选5个数字,组成一个排列,也是C12 5 ,12为下标,5为上标 用VB写代码,怎么写
总共有 12*11*10*9*8/（5*4*3*2*1）=792 个 排列组合
可能我的问题有点没说清楚,我的意思是在1,2 ,3 4,5,6,7,8,9,10,11,12中每5个数字排列组合.也就是1,2,3,4,5,
1,2,3,4,6
1,2,3,4,7
这样的排列下去.这个VB代码.最后要生成这些排列.

Answer 1

Private Sub Form_click()
Dim a() As Integer,count As Integer
For i = 1 To 12
For j = i + 1 To 12
For k = j + 1 To 12
For l = k + 1 To 12
For m = l + 1 To 12
ReDim a(1 To 5)
a(1) = i
a(2) = j
a(3) = k
a(4) = l
a(5) = m
count = count + 1
'Print a(1); a(2); a(3); a(4); a(5) '如果要全部打印出来,要把这句注释去掉
Next
Next
Next
Next
Next
Print count '总共792个
End Sub
'792个要打印出来不容易.:P