如何编制抽奖程序

Question

简单的规则：
参与抽奖号码为：0001~2000.这些号码已存放在数据库的Tab1表中.
按开始键后,参与抽奖的号码随机地在屏幕中逐个显示,当按停止键时,中奖号为当前在屏幕中显示的号码.关键问题是,用什么方法让存放在Tab1表中的抽奖号码随机地在屏幕中显示呢?

Answer 1

用rnd函数，每次随机抽取之后，把已抽出的数标记为已抽取，重新构造记录集。主要语句如下：Randomize  
lngLucky = Int(未抽取的记录数 * Rnd + 1) '得到幸运数字对应的记录数'......
rst.Move lngLucky '移动到幸运记录数，就可以取出幸运数字了'

Answer 2

timer控件，飞快的闪，刷新，google一下，应该不难。

Answer 3

Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Label1.FontSize = 18
Label1.ForeColor = vbRed
Command1.Caption = "开始"
Command2.Caption = "停止"
End SubPrivate Sub Timer1_Timer()
Randomize
numstr = Format(Int((2000 * Rnd) + 1), "0000")
Label1.Caption = numstr
End Sub
数据库部分自己处理。

Answer 4

Timer1.Interval = 50 好点。

Answer 5

给你个思路：
先把你表中的数据加到一个记录集里面，定义一个变量，这个变量是可以随机变换的，
sql="select * from  table where id = '" & ID &" '"
写到timer 事件里
按钮 停止，timer.enable=false

Answer 6

不同的数据库SQL语句有随机函数，看你用什么数据库了...