调试错误

Posted 2022-08-19 jwsoft007

 利用调试窗口输出结果:

1,利用Debug.Write          

m=64

1. Dim i, j, k, m As Integer
2. For i = 1 To
3. For j = 1 To
4. For k = 1 To
5. "The value of i,j,k is " & i.ToString & " " & j.ToString & " "
6. m += 1
7. Next
8. Next
9. Next
10. "输出结束")
11. "一共运行了" + m.ToString + "次")

2,利用Debug.Assert(关于变量的一个表达式)    它的结果为boolean型.如果运行结果与你的断言不一致,就会出现"断言失败"

如下:

1. Dim i, j, k, m As Integer
2. For i = 1 To
3. For j = 1 To
4. For k = 1 To
5. "The value of i,j,k is " & i.ToString & " " & j.ToString & " "
6. m += 1
7. Next
8. Next
9. Next
10. "输出结束")
11. Debug.Assert(m < 0)

3,利用

try----catch结构捕获异常

1. Try
2. i = m / 0
3. Catch ex As
4. "错误:"
5. End Try

4,利用 Err对象

Err.number=53               文件未找到,  请检查路径名和磁盘驱动器

Err.number=7                内存不足

Err.number=66             磁盘满

msgbox(Err.Description)