求双色球vba分组问题：33个红球任取11个为一行，每组得到3行，再将每4组（12行）任意组合，共多少组合？请写出VBA代码每组三行包含33个红球，为一个整体组，然后任取4组再行组合为一个

Question

求双色球vba分组问题：33个红球任取11个为一行，每组得到3行，再将每4组（12行）任意组合，共多少组合？
请写出VBA代码
每组三行包含33个红球，为一个整体组，然后任取4组再行组合为一个大组（共12行），将其全部列出来，类似：
01 02 03 04 05 06 07 08 09 10 11
12 13 14 15 16 17 18 19 20 21 22
23 24 25 26 27 28 29 30 31 32 33
01 04 07 10 13 16 19 22 25 28 31
02 05 08 11 14 17 20 23 26 29 32
03 06 09 12 15 18 21 24 27 30 33
01 10 19 28 05 14 23 32 09 18 27
04 13 22 31 08 17 26 03 12 21 30
07 16 25 02 11 20 29 06 15 24 33
01 28 23 18 13 08 03 30 25 20 15
10 05 32 27 22 17 12 07 02 29 24
19 14 09 04 31 26 21 16 11 06 33
如果我放宽条件，先将33个红球做规律排列（如等比、等差、单数、双数……）后再做11个一行分组呢？再4组一大组，又该如何做？

Answer 1

随机把33个号分成三行不重复号码，是吗？

Sub test()
    Dim arr(1 To 3, 1 To 11)
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    Do While k < 33
        i = Int(Rnd() * 33 + 1)
        If Not d.exists(i) Then
            k = k + 1
            d(i) = ""
            j = j + 1
            x = Int((j - 1) / 11) + 1
            y = j Mod 11
            If y = 0 Then y = 11
            arr(x, y) = i
        End If
    Loop
    Range("A1").Resize(3, 11) = arr
End Sub