Question

vb设计随机抽奖程序

在vb书上看见的
主要利用Randomize和Rnd函数设计一个随机抽奖程序
用户点击开始按钮，5个数字框里的数据由0-9开始滚动
单机抽奖按钮，产生一个5位随机数
自己是新手，怎么也弄不好
求大神编写一段程序
悬赏50财富，如果有满意答案绝对追加

Answer 1

'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

Answer 2

先上个程序你看看 行的话 说个QQ给你传原码