Question

12个数字中选5个数字,组成一个排列,也是C12 5 ,12为下标,5为上标 用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