本文介绍了使用VB语言编写的两个简单彩票投注程序，分别模拟了七星彩和福利彩票22选5的投注过程。七星彩程序能生成七位随机数，而22选5程序则确保生成五个不重复且已排序的随机数。通过Command1_Click事件产生投注号码，Command2_Click事件用于退出程序。
下面这段简单代码用来产生体彩的七星彩,两个命令按钮,一个文本框控件数组:
Private Sub Command1_Click() '产生七位随机数
Dim i As Integer, a(1 To 7) As Integer
For i = 1 To 7
a(i) = 0
Next i
Randomize
For i = 1 To 7
a(i) = Fix(10 * Rnd)
Text1(i - 1).Text = a(i)
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
最低0.47元/天 解锁文章
1417
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
