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

以下程序利用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

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

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