主题：[求助]遇到一个奇怪的问题

遇到一个问题，程序如下：

Dim s As Integer = 0

Do
    e.Form.Controls("显示循环次数").value = s  + 1
    Vars("ydx")=1600
    Functions.Execute("工作移动")

    。。。。。。。。。。。。。。。‘期间有10秒时间
    s = s + 1
Loop While s < 50

程序很简单---在50次循环内，每次循环前在“显示循环次数”控件上显示累计数1-50

但实际上50次循环内不显示，50次循环结束后才显示50

For ...Next循环也是这样，不知什么原因，

求各位老师指点，谢！

谢谢指点。

看来论坛高手还挺多，遇到问题都能得到满意的指点，非常感谢！

祝大家新年快乐!