admin 管理员组

文章数量: 1087139


2024年3月27日发(作者：动漫010霹雳布袋戏)

利用excel对彩票号码进行排列组合

（实例1）

创建excel文件，按alt+F11编辑宏。利用以下实例，可对彩票进行分析、自行缩水

实例1：4选3

Sub组合()

stt=InputBox("请输入4个数并用，隔开。

arr = Split(stt, ",")

num = UBound(arr)

rownum = 2

Range("A1").Value = "组数"

Range("B1").Value = "数一"

Range("C1").Value = "数二"

Range("D1").Value = "数三"

If (num <> 3) Then

MsgBox "输入数字不是4个", 0, "error"

Else

1 / 6

如1,4,6,8,17,20,29,45,60","输入

","1,4,6,8,17,20,29,45,60")

For i = 0 To num

For j = i To num

For k = j To num

If (i = j Or j = k) Then

rownum = rownum

Else

Range("A" & rownum).Value = "第" & rownum - 1 & "组"Range("B" & rownum).Value =

arr(i)

Range("C" & rownum).Value = arr(j)

Range("D" & rownum).Value = arr(k)

rownum = rownum + 1

End If

Next

Next

Next

End If

End Sub

实例2：5选2

2 / 6


本文标签： 彩票 进行 输入 利用 并用

版权声明：本文标题：利用excel对彩票号码进行排列组合(实例1) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711545462a599281.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。