调试错误

 利用调试窗口输出结果:

1,利用Debug.Write          

m=64

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

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

如下:

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

3,利用

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

1. Try
2.             i = m / 0
3.         Catch ex As Exception
4.             MessageBox.Show("错误:" + ex.ToString)
5.         End Try

4,利用 Err对象

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

Err.number=7                '内存不足

Err.number=66             '磁盘满

msgbox(Err.Description)