谁能解释一下代码的意思？

Question

Private Sub Timer1_Timer()
  Dim i As Single
  Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0)
  Text3.Text = Left(Text1.Text, 1)
  For i = 0 To 5
      Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)
  Next i
End Sub-----------------------
在解释的时候希望大家能把代码复制下来，在后面家上’注释一下 方便我理解 谢谢！

Answer 1

Private Sub Timer1_Timer()  '时钟对象的一个事件。每interval所指定的ms触发一次。
Dim i As Single  '定义一下整型变量
Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0) ' 等同于Int(10000001 * Rnd )产生一个0-10000000的随机整数

Text3.Text = Left(Text1.Text, 1)  '取刚才那个数的最高位

For i = 0 To 5 
Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)  ' mid(Text1.Text, i + 2,1) 依次取那个数的第2，3，4，5，6位
Next i 
End Sub 
这段代码很基础，建议先学一下VB的编程基础。

Answer 2

    Dim i As Single             '定义一下整型变量'应该是单精度变量

Answer 3

Private Sub Timer1_Timer() 'Timer控件时间触发事件
  Dim i As Single '定义一个单精度数
  Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0) '产生一个数 7位
  '上边句等于  Text1.Text = Int(10000000 * Rnd)   '产生一个数 7位
  Text3.Text = Left(Text1.Text, 1) 'Text2存放Text1中产生的数的左边第一位
  For i = 0 To 5 '循环 0->5 6次
      Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)
      '拆解一下
      'Left(Text1.Text, i + 2)'为左边的第i+2位开始到结束的值,起始为0+2=2
      'Right([    ], 1)'为上边截得的值的左边第一位
      '结果会是Text2(0),Text2(1),Text2(2),Text2(3),Text2(4),Text2(5)
      '分别截取随机产生的数的.第2位,第3位,第4位,第5位,第6位,第7位
      '另.Text2 为控件数组
  Next i
  
End Sub