' 创建一个变量来保存加载的 Visual Basic 可见窗体的个数。Dim I, OpenForms
For I =1To150000' 循环开始。If I Mod1000=0Then' 如果循环一已完成了 1000 次。 OpenForms = DoEvents ' 将执行让给操作系统。EndIfNext I ' 将循环计数器加一。
在一个循环过程中需要及时输出计算结果的时候,特别有用:
VB code
PrivateSub Command1_Click()
Dim i AsLongFor i =1To100000
Label1.Caption = i
DoEvents '如果省略,则不能显示连续的数字变化NextEnd Sub