有谁能帮我写个双色球的模拟抽奖程序呀？

来源：百度知道 编辑：UC知道 时间：2024/07/13 04:35:57
有谁能帮我写个双色球的模拟抽奖程序呀？要求如下：
双色球”每注投注号码由6个红色球号码和1个蓝色球号码组成。红色球号码从1—33中选择；蓝色球号码从1—16中选择。

Excel VBA程序（Alt按住的不松开按F11进入VBA编辑器,程序复制到sheet1下面执行)：

Sub main()
'产生10个奖号到sheet1中
For k = 1 To 10
Sheet1.cells(k,1)= 红蓝号()
Next
End Sub

Function 红蓝号() As String
'产生一组奖号的子函数
s = ""
For I = 1 To 6
d = Int(Rnd(1) * 33) + 1
If d < 10 Then d = "0" & d
s = s & d & " "
Next
d = Int(Rnd(1) * 16) + 1
If d < 10 Then d = "0" & d
红蓝号 = s & d
End Function

没用的 自己看 自己总结
@@