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

关键字：号码 更新时间：2018-03-11 10:41:55 127次访问

我想排除所有的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

相关标签：号码