Dim a()
Dim j為整數
私有子命令1_Click()
定時器1。Enabled = Not Timer1。使能夠
a(j) = " "
如果定時器1。Enabled = False，則打印文本1
末端接頭
私有子窗體_Load()
定時器1。間隔= 50
定時器1。啟用=假
打開“d:\ number.txt”輸入為# 1
n = 0
Do直到EOF(1)
保留，保留
線路輸入#1，a(n)
n = n + 1
環
關閉
末端接頭
私有子定時器1_Timer()
如果a(j)& lt；& gt""那麽Text1 = a(j)
如果j = UBound(a ),則
j = 0
其他
j = j + 1
如果…就會結束
末端接頭