Question

vb中怎么用timer控件设置一个等待时间

1、程序很简单，每输出一个数后等2分钟然后再输出下一个数。下面我用timer控件编的程序好像interval属性就没有起作用了。为什么？我想等待时间直接设置interval属性来实现，不要程序。怎么才能做到呢？
2、for循环语句中，当循环的次数较多时，此时不能对vb程序进行任何操作，否则程序变为未响应状态，窗体中的数据不再变化，但存储文件中在继续存数据，即程序仍然在运行。不知道为什么。
希望有大侠帮忙！！

Private Sub Command1_Click()
Dim k As Long
For k = 0 To 2000
Picture1.Print k
call timer1.timer
Next i
End Sub

Private Sub Timer1_Timer()
Dim T1 As Double
Dim T2 As Double
T1 = Timer
7020 T2 = Timer - T1
7030 If T2 > 1 Then GoTo 7060
7035 GoTo 7020
7060 End Sub
谢谢楼上的热心的解答，第一个问题已经解决。第二个问题我觉得不是print的问题。
当把print去掉后，只留下call timer1.timer，这个for语句也会出现程序未响应的情况。

vb中的循环语句是不是有这种类似的缺陷？

Answer 1

以下程序利用Timer，使得程序等待1秒（1000毫秒）后继续执行

Option Explicit

Private Sub Command1_Click()
    Cls                     '清屏
    Timer1.Interval = 1000  '等待1000毫秒（1秒）
    Timer1.Enabled = True   '启动定时器
    Do While Timer1.Enabled '循环等待，直到定时器Timer1停止
        DoEvents            '等待期间防止窗体“凝滞”
        Print "等待"        '提示
    Loop
    Cls                     '清屏
    Print "继续执行"        '提示：等待结束
End Sub

Private Sub Timer1_Timer()
    '定时到！停止定时器
    Timer1.Enabled = False  
End Sub

Answer 2

1.你的动作直接写到timer的代码中呀..在FORM LOAD事件中,指定好timer的interval值,并且让timer的Enabled为TRUE的

2.FOR的过程,上次也有人问了的..在FOR中, 窗体不重绘的,只有FOR完了,才一次显示窗体..所以在FOR 中print,当时是没有效果的, 只有当FOR 完时,才打印所有的

你想程序启动就开始输入数字.每2分钟输出一个数..代码应该是
Dim i%

Private Sub Form_Load()
Timer1.Interval = 120000
Timer1.Enabled = True
End Sub

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

Answer 3

VB的时间不太准确，你要有思想准备。