11选5的号码最前面的是1后面4位数怎么用表格排列出来

更新时间2018-03-11 10:41:55

我想排除所有的11选5的号码，例如：以1为开头的所有号码，难后是以2为开头的所有号码

Sub 组合()

'从1～11整数的对11个对象集合中提取5个对象的组合数是462（用工作表函数COMBIN求得）

'列出这462个对象组合，用数组存储结果，然后输出于A:E列中

Columns("A:E").NumberFormatLocal = "00"

Dim cm(1 To 462, 1 To 5) '命名数组

ST = Timer '记住开始时间

For a1 = 1 To 11 '从此开始是5个嵌套的For……Next语句

For a2 = a1 + 1 To 11

For a3 = a2 + 1 To 11

For a4 = a3 + 1 To 11

For a5 = a4 + 1 To 11

n = n + 1

cm(n, 1) = a1 '将循环变量的值赋值于数组

cm(n, 2) = a2

cm(n, 3) = a3

cm(n, 4) = a4

cm(n, 5) = a5

Next: Next: Next: Next: Next ': Next: Next: Next: Next

Range("A1:E462") = cm '将数组的值赋值于单元格区域

Cells(1, 11) = "组合数"

Cells(1, 12) = n

Cells(2, 11) = "运行时间(秒)"

Cells(2, 12) = Timer - ST '计算列举组合元素需要的时间

End Sub