UC知道VB高手帮我编个号码抽选器！
来源：百度知道 编辑：UC知道 时间：2024/09/24 14:11:04
帮我用VB编个号码抽取器，要求如下：
点击“开始”按钮以后，屏幕会有数字随机滚动，点击“停止”按钮的时候就停止滚动并显示该号码。
滚动的窗体有4个（最好可以调整），即一次“停止”可以抽选4个号码，且要求数字不能重复。
我不是很懂VB，所以请把代码给我，大家可以注一下文字说明，谢谢！
可以加分哦！^_^
号码范围可自己设。如果有可以输入的话更好。
点击“开始”按钮以后，屏幕会有数字随机滚动，点击“停止”按钮的时候就停止滚动并显示该号码。
滚动的窗体有4个（最好可以调整），即一次“停止”可以抽选4个号码，且要求数字不能重复。
我不是很懂VB，所以请把代码给我，大家可以注一下文字说明，谢谢！
可以加分哦！^_^
号码范围可自己设。如果有可以输入的话更好。
要不要号码输入功能啊？
'=========================================
'窗体中的部件说明:
'list1,选侯号码列表(可增删)
'label2(0~3),显示四个抽中号码
'timer1, 记时,初始时间间隔,200ms
'command1,command2,开始,停止
============================================
Private Sub Command1_Click()
For i = 0 To 3
Label2(i).Caption = ""
Next i
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
List1.AddItem "请双击添加侯选号码"
Command1.Caption = "开始"
Command2.Caption = "停止"
Randomize
Timer1.Interval = "200"
Timer1.Enabled = False
'测试用
'For i = 0 To 15
'List1.AddItem Int(Rnd * 100000000), i
'Next i
End Sub
Private Sub List1_DblClick()
'双击添加项目
List1.AddItem InputBox("添加侯选号码")
If List1.List(0) = "请双击添加侯选号码"