vb中怎样设置时间参数？

可以，看下代码： 

Private T(3) As Integer, i As Integer 

Private Sub Cmd1_Click(Index As Integer) 

Select Case Index 

Case 0 

Print "执行任务A" 

Case 1 

Print "执行任务B" 

Case 2 

Print "执行任务C" 

Case 3 

Print "执行任务D" 

End Select 

End Sub 

Private Sub Form_Load() 

T(0) = 1000 

T(1) = 500 

T(2) = 500 

T(3) = 1000 

Timer1.Interval = T(0) 

End Sub 

Private Sub Timer1_Timer() 

Call Cmd1_Click(i) 

Timer1.Interval = T(i) 

i = i + 1 

If i > 3 Then Tim