我想在text文本框中快速显示1至100

[webptg]

我想在text文本框中快速显示从1至100
如下：
sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
delay(1000) '用于延时
next i
end sub
执行过程中text文本框直接显示100，我增加延时也不行。
不知错在哪里，请各位大侠指教！

[Lin]

因为Text1控件来不及刷新显示，修改如下：
sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
Text1.Refresh
delay(50) '用于延时
next i
end sub

[active]

循环中增加一句doevents或me.refresh

[webptg]

谢谢Lin、active!

[ltp3]

sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
Doevents
delay(1000) '用于延时
next i
end sub
最好在delay()中加Doevents