Sub countcir()
Dim i As Integer
Dim s As Integer
s=0 '初始化汇总变量以及起始数
i=0
Do
i=i+1 '设置下一个被加数i的大小
s=s+i '将被加数汇总到变量s中
If s>=5000 Then Exit Do '当s≥5000,执行Exit Do语句退出循环
Loop
MsgBox“循环次数是”&i&“;汇总结果是”&s '显示循环次数以及汇总结果
End Sub
提示
在“代码”窗口边界标识条上鼠标单击可以直接创建断点。将插入点光标放置到程序中后,按F9键可以在该语句处添加断点,按Ctrl+Shift+F9键或选择“调试”|“清除断点”命令可以清除创建的断点。
2、选择“视图”|“本地窗口”命令打开“本地窗口”对话框,按F8键逐语句执行程序。在运行到断点处时,“本地窗口”中将显示程序中表达式的当前值和变量类型,如图3所示。