Question

VB6.0循环打印问题。关于使用timerbox控件，打印完一行。间隔一定时间。自动打印下一行（内容不同）。

比如我想打印一个99乘法表。我要的效果是，点击按钮，在窗体上，第一次打印1*1.中间间隔一定时间。再次打印第二行1*2和2*2。完后又间隔一会。再打印第三行，1*3,2*3,3*3.。。如此循环下去。只至乘法表完全打完后停止打印。

Answer 1

Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Me.AutoRedraw = True
End Sub

Private Sub Timer1_Timer()
n = n + 1
For i = 1 To n
Print i & "*" & n & "芦团铅或唤="陪好 & i * n & Chr(32);
Next i
Print
If n = 9 Then Timer1.Enabled = False
End Sub

Answer 2

为什么不用for循环去执行你？

Answer 3

直接调整TIMER的调用时间久好了，干嘛要另外编程呢？

Answer 4

Azsdw 不懂