vb设计随机抽奖程序

vb设计随机抽奖程序

'5个文本框改成控件数组，索引从0到4

Private isStop As Boolean

Private Sub Command1_Click() '数字滚动

Randomize

Dim rndIndex As Integer

isStop = False

Do Until isStop '循环语句滚动数字太快了，应该放在时钟控件中较好，可以控制速度

rndIndex = Int(Rnd * 5) '产生一个随机的文本框数组索引

Text1(rndIndex) = (Val(Text1(rndIndex)) + 1) Mod 10 '对文本框增加一个值

DoEvents

Loop

End Sub

Private Sub Command2_Click() '停止滚动

isStop = True

End Sub