Question

VB计时器多次的随机值依次记录在指定的文本框中。

控件：8个文本框、6个计时器、一个命令框
已把用做随机计数的5个计时器和对应的文本框设置为了控件数组。即timer1和text1
代码如下：
Private Sub Form_Load()
For a = 0 To 4: Timer1(a).Enabled = False: Next '1、定义计时器控件数组 2、默认计时器为关闭状态
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then '判断按钮名是否为"开始"
Timer1(a).Enabled = True: Command1.Caption = "停止" '1、开启计时器 2、更改按钮名为"停止"
Else
Timer1(a).Enabled = False: Command1.Caption = "开始" '1、关闭计时器 2、更改按钮名为"开始"
End If
End Sub
Private Sub Timer1_Timer(Index As Integer)
For a = 0 To 4 '定义文本框控件数组
Text1(a).Text = Int((9 - 0 + 1) * Rnd + 1) '随机数读取方法：Int((upperbound（上限） - lowerbound（下限） + 1) * Rnd +lowerbound)
Next
For b = 1 To 100
Text4.Text = "第" & b & "次开奖" & " " & Val(Text1(0).Text) & Val(Text1(1).Text) & Val(Text1(2).Text) & Val(Text1(3).Text) & Val(Text1(4).Text)
Next
End Sub

问题1：取随机值范围设置的有点问题，想达到的效果是在数字0到9之间随机，但是我的代码出来的效果是在数字1到10之间随机。
问题2：在text2中输入数字来控制timer1的随机时长。比如我填10，那么timer1只随机10秒就自动停止。
问题3：在text3中输入数字来控制timer1的随机次数。比如我填3，那么timer1要自动间隔运行3次。
问题4：在text4中显示出每次timer1停止时的数值并依此显示“第一次开奖：、第二次开奖：、第三次开奖：”……直到到达我在text3中输入的数字为止。
问题5：新建一个text5,统计text4中0到9的出现次数。如“0出现了9次、1出现了5次、2出现了0次……”
详见图片。请高手指教！





Answer 1

Text1(a).Text = Int((9 - 0 + 1) * Rnd + 1) 改为Text1(a).Text = Int((9 ) * Rnd + 1)

追问

谢谢，但是这只是我的问题1的答案。请问问题2、3、4、5又该如何解决呢？