vb 关于时间停顿

Private Sub Command1_Click()
For d = 1 To ch Step 1
Combo1.Text = Val(Combo1.Text) + 1
Next d
End Sub

combo1内的数字 每次会增加1 我想问下 如何增加一个时间停顿
当按下command1之后 不会像现在 直接显示出最后结果

然是combo1内的数字会 慢慢变化?
用 timer 是否可行?
VB能否做到

不知道是我电脑原因还是什么

使用 3楼 和4楼的方法

时间上是停顿了

但combo1内的数字 没有 逐个增加

而是在 停顿 X秒后 直接显示出了结果

使用sleep函数可以调整延时

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)'声明

Private Sub Command1_Click()
For d = 1 To ch Step 1
Sleep 100 '延时100毫秒，1000为1秒
DoEvents
Combo1.Text = Val(Combo1.Text) + 1
Next d
End Sub

在循环里面加个DoEvent

你好！ Private Sub Command1_Click() For d = 1 To ch t = now do doevents while loop datediff("s",t,now)<1 Combo1.Text = Val(Combo1.Text) + 1 Next d End Sub 如有疑问，请追问。

你可以加一个Timer1，然后对其Inerval设置为1000，然后对Timer1编程Combo1.Text = Val(Combo1.Text) + 1 就可以了