VB 定时实现某功能?? 在线等.

来源：百度知道 编辑：UC知道 时间：2024/05/25 15:04:35
举个简单的例子,比如说
有个整形数组,怎样每隔 1 秒钟,使它输出一个数.

我把剩的少得可怜的分全拿出来了.
是输出整形中的数,

有没有详细点的回答啊?

Dim a(1000) As Integer, i As Integer

Private Sub Form_Load()
Timer1.Interval = 1000
For i = 0 To 1000
a(i) = i
Next
i = 0
End Sub

Private Sub Timer1_Timer()
i = i + 1
Print a(i)
End Sub

Dim x As Integer
Private Sub Timer1_Timer()
Print x
x=x+1
End Sub

在运行前把Timer1的Interval属性改为1000
就是1000毫秒，或者说是1秒

加个时钟控件就可以了啊!

好难啊！