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
版权声明：文章由 去问问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.qwenw.com/answer/402799.html
