跪求，计算数字组合

dyy0710 · 发表于 2019-6-16 16:09

跪求大神帮忙求1至35加1至12所有的数字组合。谢谢~！

X2030 · 发表于 2019-6-16 17:03

Sub test()
Dim x As Byte
Dim y As Byte
Dim k As Integer
For x = 1 To 35
      For y = 1 To 12
         k = k + 1
         Cells(k, 1) = x & "+" & y & "=" & x + y
      Next
Next
End Sub

dyy0710 · 发表于 2019-6-16 17:40

跪求大神帮忙求1至35加1至12所有的数字组合。谢谢~！

逆光萤火 · 发表于 2019-6-16 17:44

看到你已经发了好几次了，也挺为你着急的，但是至少你要模拟出你想要的结果让大家清楚你的想法。而不是让人丈二和尚摸不着头脑……

dyy0710 · 发表于 2019-6-16 17:54

逆光萤火发表于 2019-6-16 17:44
看到你已经发了好几次了，也挺为你着急的，但是至少你要模拟出你想要的结果让大家清楚你的想法。而不是让人 ...

1-35和1-12两组数字中选出7个号码，前五个从1-35从选出，后两个从1-12中选出。

lss001 · 发表于 2019-6-16 18:06

本帖最后由 lss001 于 2019-6-16 20:26 编辑

35选5组合数→(35*34*33*32*31)/(5*4*3*2*1)=324632组
12选2组合数→(12*11)/(2*1)=66组
共计组合数→324632*66=21425712组
代码见以下楼！

lss001 · 发表于 2019-6-16 18:07

本帖最后由 lss001 于 2019-6-16 18:59 编辑

大乐透全组合！

大乐透全组合.rar (17.14 KB, 下载次数: 26)

changhong8 · 发表于 2019-6-16 18:08

你知道有多少数量吗。。。

逆光萤火 · 发表于 2019-6-16 18:26

dyy0710 发表于 2019-6-16 17:54
1-35和1-12两组数字中选出7个号码，前五个从1-35从选出，后两个从1-12中选出。

你准备的钱去买所有组合的彩票估计钱不够吧……
呵呵

micch · 发表于 2019-6-16 19:25

你要的结果你知道多少吗？就算给你结果21000000多个，你又能如何

		自动登录	找回密码
密码			免费注册

[求助] 跪求，计算数字组合

跪求，计算数字组合

最新热点 /1