假如某For循环中,最终发现当i=31时出错,这时你需要在i=31时单步调试,有4个方法:
1.在n = fun1(i)行设置断点,然后按F5一步步到i=31时改按F8进入子函数单步调试
2.插入一小片代码设置断点,例如:
3.用debug.assert
1.在n = fun1(i)行设置断点,然后按F5一步步到i=31时改按F8进入子函数单步调试
2.插入一小片代码设置断点,例如:
1
2
3
4
5
6
7
8
9
10
|
Dim
i%, n%
For
i = 1
To
100
'其他代码
if i=31 then
aa=1
'在这行设置断点,这行本身没有意义就是为了可以设置断点的。
end if
n = fun1(i)
debug.print i,n
'其他代码
Next
|
3.用debug.assert
1
2
3
4
5
6
7
8
|
Dim
i%, n%
For
i = 1
To
100
'其他代码
debug.assert i<>31
n = fun1(i)
debug.print i,n
'其他代码
Next
4.和debug.assert类似:
这样就ok了,一句代码不要。
|