vb设计随机抽奖程序

vb设计随机抽奖程序

'5个文本框改成控件数组，索引从0到4Private isStop As BooleanPrivate 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    LoopEnd SubPrivate Sub Command2_Click() '停止滚动    isStop = TrueEnd Sub