利用excel对彩票号码进行排列组合(实例1)17318.pdf
5页
1 / 5 利用 excel 对彩票号码进行排列组合 （实例 1） 创建 excel 文件，按 alt+F11 编辑宏利用以下实例，可对彩票进行分析、自行缩水 实例 1：4 选 3 Sub 组合() stt =InputBox("请输入 4 个数并用，隔开如 1,4,6,8,17,20,29,45,60","输入","1,4,6,8,17,20,29,45,60") 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 For i = 0 To num For j = i To num For k = j To num If (i = j Or j = k) Then 2 / 5 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 Sub 组合() stt =InputBox("请输入 5 个数并用，隔开。
如 1,4,6,8,17,20,29,45,60","输入","1,4,6,8,17,20,29,45,60") arr = Split(stt, ",") num = UBound(arr) rownum = 2 Range("A1").Value = "组数" Range("B1").Value = "数一" 3 / 5 Range("C1").Value = "数二" If (num <> 4) Then MsgBox "输入数字不是 5 个", 0, "error" Else For i = 0 To num For j = i To num If (i = j) Then rownum = rownum Else Range("A" & rownum).Value = "第" & rownum - 1 & "组"Range("B" & rownum).Value = arr(i) Range("C" & rownum).Value = arr(j) rownum = rownum + 1 End If Next Next End If End Sub 实例 3：11 选 5 Sub 组合() stt =InputBox("请输入 11 个数并用，隔开。
如 1,4,6,8,17,20,29,45,60","输入","1,4,6,8,17,20,29,45,60") 4 / 5 arr = Split(stt, ",") num = UBound(arr) rownum = 2 Range("A1").Value = "组数" Range("B1").Value = "数一" Range("C1").Value = "数二" Range("D1").Value = "数三" Range("E1").Value = "数四" Range("F1").Value = "数五" If (num <> 10) Then MsgBox "输入数字不是 11 个", 0, "error" Else For i = 0 To num For j = i To num For k = j To num For l = k To num For m = l To num If (i = j Or j = k Or k = l Or l = m) Then rownum = rownum Else 5 / 5 Range("A" & rownum).Value = "第" & rownum - 1 & "组"Range("B" & rownum).Value = arr(i) Range("C" & rownum).Value = arr(j) Range("D" & rownum).Value = arr(k) Range("E" & rownum).Value = arr(l) Range("F" & rownum).Value = arr(m) rownum = rownum + 1 End If Next Next Next Next Next End If End Sub 。
