求双色球vba分组问题：33个红球任取11个为一行，每组得到3行，再将每4组（12行）任意组合，共多少组合？ 双色球红球怎么划分三区怎么划分路数？

随机把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

33选11有一亿九千三百五十三万六千七百二十注，好像太不可思议了。

怎么用Excel把人员名单随机分成几个组？~

用Excel把人员名单随机分组操作方式如下：
一、首先将数据都按照格式罗列好，此处以随机分为4组为例；

二、将每个数据分配一个随机数
RAND 函数可以产生一个介于 0 和 1 之间的小数，并且每个随机数均不相同，可以作为目标数据对应的唯一值。公式如下：

三、按照随机数排序
上一步产生的数字，因此可以对其排序。并且每个随机数都不相同，排序后，将得到连续唯一的排序值。公式如下：

四、对排序值求余数，确定组
上一步之后，我们将得到从 1 到总数的连续值。这一步，将排序值除以要求的组数量，提取余数，代表对应的组号。求余数，Excel 提供了 MOD 函数。为了便于理解，余数统一加 1，并且连接“组”字。通用公式如下：

五、至此就完成了随机分组。RAND 函数在工作簿变化时，都会重新计算一次，因此可使用 F9 键，刷新分组结果。

求双色球vba分组问题:33个红球任取11个为一行,每组得到3行,再将每4...
答：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) ...

求以Excel或TXT文档格式的双色球1-33所有红球的排列组合。请发一份给...
答：给个代码给你吧,复制以下代码带VBA的模块中运行即可 sub ssq()x=1 y=1 for i=1 to 28 for j=i+1 to 29 for k=j+1 to 30 for l=k+1 to 31 for m=l+1 to 32 for n=m+1 to 33 cells(x,y)= format(i,"00") & " " & format(j,"00") & " " & f...

双色球33个红球必出6个红球吗?
答：双色球：红球33个，选6个，蓝球16个，选1个 若是6个红球必中，也就是说在33个球中选的6个必中，没有顺序要求，只要数字对即可，因此也就是组合的问题，即C（33、6）=（33*32*31*30*29*28）/（6*5*4*3*2*1）=1107568种组合，即购买110万7568注，必中6个红球。同理蓝球必中，必须购买...

双色球红球1-33,一共可以组成多少注双色球号码?
答：双色球33个红球能排列出1107568种组合。可以用排列组合的算法进行计算：红球组合为(33*32*31*30*29*28)/(6*5*4*3*2*1)=1107568。双色球投注区分为红色球号码区和蓝色球号码区，红色球号码区由1-33共三十三个号码组成，蓝色球号码区由1-16共十六个号码组成。投注时选择6个红色球号码和1个蓝...

双色球33个红球能组多少6个1组?
答：双色球红色球如果有33个的话，从中间选出6个，那么就是33中选6个。这个组合数是非常大的。

(双色球)三十三个红球加十六个蓝球可组多少组号码?
答：三十三个红球加十六个蓝球可组17721088组号码。计算方法：（33*32*31*30*29*28）/6*5*4*3*2*1=1107568注。1107568注*16蓝球=17721088注，17721088注*2元=35442176元。双色球33个红球16个蓝球全买共17721088注。彩票弃奖情况 2010年8月，江苏苏州双色球1000万。福彩中心曾为寻得主悬赏10万，但...

谁能知道双色球的红色球33个号码每6个号码组成一组,总共有多少种组合方...
答：这是高中数学排列组合问题：一共的组合方式有：[（33*32*31*30*29*28）/（6*5*4*3*2*1)] *(6*5*4*3*2*1)=797448960如果是买彩票的话，中奖率是相当低的。清单举例如下：134567543467676543等等，有7亿多种。

双色球红球是33个号码。分成14个号码一组的复式,一共有几组???_百度...
答：楼上不对，双色球没有固定排位，所以不是全排列，而是全组合。总共应该是 C 14/33=33！/(14！*19！）个14+1的复式 慎重

数学概率问题,双色球红球33个,蓝球16个,要想中500万概率是多少_百度知 ...
答：从33个红球里选出6个对的概率是1/（C33，6）=1/1107568，再从16个中选对一个的概率是1/16，相乘=1/17721088

双色球1个蓝码和33个红码要多少组呢?谢谢了,大神帮忙啊
答：双色球33红+1蓝 组合一共是1107568注，全部投注需要2215136元。