Visual Basic程序设计实验解析志勇调用滚动字欢迎?

  Sub

Private   调节速度
 100 'Loop
     = End - 0; a1
 Dim r Do .Left     a0 - = Timer
  Const r

Private True
   Loop
End Sub a1 =  1
   While 0 '设定右边界
 r   Sub  Label1;CommandButton2_Click()
  > t
 t0      a0 设定左边界
 t0  Label1;r
 DoEvents
 = Label1; <Timer   'CommandButton1_Click()
 .Left Do False
End Else
 If
 .Left  = =