[彩票]如何依组选方案生成所有组合号码？

作者：绿色风分类：时间：2022-08-17 浏览：125

楼主
liuguansky

Q：如何依组选方案生成所有组合号码？
　　[大代码7-9，中代码3-6，小代码0-2，如果我选择大中小组合的话，可以生成　730　731　732　这样的号码，如何生成所有的组合？]
A：用如下代码可以实现：

Sub justtest()
Dim str1$, arr1, i%, j%, str2$, str3$, str4$, arrre
str1 = Application.InputBox("请输入组选方案：", Default:="大中小")
If Len(str1) = 3 Then
ReDim arr1(1 To 3)
For i = 1 To 3
arr1(i) = Mid(str1, i, 1)
j = j + IIf(InStr(1, "大中小", arr1(i)) > 0, 1, 0)
Next i
If j = 3 Then
For i = 1 To 3
Select Case arr1(i)
Case "大"
str2 = str2 & "[7-9]"
Case "中"
str2 = str2 & "[3-6]"
Case "小"
str2 = str2 & "[0-2]"
End Select
Next
For i = 1 To 999
str3 = Format(i, "000")
If str3 Like str2 Then
str4 = str4 & "," & str3
End If
Next i
Else: Exit Sub
End If
Else: Exit Sub
End If
str4 = Mid(str4, 2)
arrre = Split(str4, ",")
Range("a:a").Clear
Cells(1, 1).Resize(UBound(arrre) + 1, 1) = Application.Transpose(arrre)
End Sub

2楼
成就滋味

这种是不是也可以用函数来实现？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表