如何用vb制作彩票程序

只需在表单中制作两个命令按钮、一个标签和一个计时器对象，然后复制以下代码运行:

私有子命令1_Click()

If命令1。Caption = "开始"

命令1。Caption = "暂停"

定时器1。启用=真

其他

命令1。Caption = "Go "

定时器1。启用=假

如果…就会结束

末端接头

私有子命令2_Click()

结束

末端接头

私有子窗体_Load()

Label1。标题= " "

Label1。FontSize = 50

定时器1。间隔= 50

定时器1。启用=假

命令1。Caption = "Go "

命令2。Caption = "结束"

末端接头

私有子定时器1_Timer()

Label1。Caption = Int(Rnd * 50) + 1

末端接头