有循环引起的显示正在运算的次数在窗口中有以下一行字符：
正在进行第****次运算，请等待！
现在想要这样的结果：以上这行字符在窗口中始终只有一行且其他都不动，只有“****”处的实时运算次数在变化（若用清屏则会引起窗口抖动，视觉效果很不舒服），请教以下代码如何修改，谢谢

CLEAR
?
?
FOR I=1 TO 10000
? '现在正在进行第'+ALLTRIM(STR(I))+'次运算，请等待！'
ENDFOR

用??輸出chr(13)

用标签显示
FOR I=1 TO 10000
    thisform.label1.caption= '现在正在进行第'+ALLTRIM(STR(I))+'次运算，请等待！'
ENDFOR

收到的鲜花

• fdxxhjc 于 2015-03-03 11:33 送鲜花  3朵  

CLEAR
?
?
FOR I = 1 TO 10000
?? '现在正在进行第'+ALLTRIM(STR(I))+'次运算，请等待！'
?? CHR(13)
ENDFOR

補充：這個方法對輸出文字依次增大的情形適用，若是依次遞減或有伸縮的，必須把文字對齊爲統一長度。

[ 本帖最后由 TonyDeng 于 2015-3-3 10:08 编辑 ]

方法可行

看一個人有沒有學編程的天分，衹要看他能不能在我2樓提示之後自己想出4樓的方法，如果要我把4樓代碼貼出來之後才說“多謝”，那就是學不到了。何況有些人連“多謝”也不會說的。

其實，經歷過讀過階段的人都知道，如果你靠看了答案知道才“會做”的題，其實是不會。真正學會了的指標，是不看答案把題目做出來。進階的步驟是依靠提示，初期提示較多，逐漸減少，直到最後沒有提示。不主動追求這個過程和境界的學生，都不是好學生。韓愈有云，徒擇師，師亦擇徒，可遇不可求。

诚挚的感谢先生

哦，？？这个是“输出计算结果前不回车换行。”，太好了，谢谢

嗯，你結合現在的例子，回頭看看幫助中?和??的敘述，領悟幫助的信息應該怎麽理解。其他的幫助信息，也照此辦理，這樣就能自學了。

收到的鲜花

• fdxxhjc 于 2015-03-03 11:32 送鲜花  3朵   附言：我很赞同