運用任何一個語言進行程序開發時，通常都會對程序開發中必然會出現的錯誤進行相應的處理。那么在VB.NET中，VB.NET錯誤處理往往會對運行速度有一定的影響。VB.NET中On Error 來捕獲和處理錯誤，而且經常使用 On Error Resume Next 來可能產生的忽略錯誤。#t#

那么 使用錯誤捕獲是否會影響速度呢？

是的，使用VB.NET錯誤處理將會降低一些性能，在。Net 中，使用 Try Catch 也將會影響性能，所以我們使用Reflector 反編譯微軟的類庫時，會發現他的子過程很少使用 Try 來捕獲錯誤，基本都是采用可預知的方式來判斷可能出現的錯誤，并做相應處理。

實際上，使用錯誤捕獲后，編譯后的代碼實際上做了很多不為我們所知的操作，雖然 使用錯誤捕獲從一定程度上方便了編碼過程，卻犧牲了一定的速度，有利有弊，所以我們應該正確的使用 錯誤捕獲。

測試的VB.NET

Option Explicit  
Dim cn As New ADODB.Connection  
Dim rs As New ADODB.Recordset  
Dim m_FldsName() As String  
Private Sub Command1_Click()  
Dim II As Long  
Dim t As Single  
cn.Open "Provider=SQLOLEDB.1;Persist 
Security Info=False;User ID=sa;Initial 
Catalog=廣商;Data Source=SUPER"  
rs.Open "Select * from FldSet ", 
cn, adOpenKeyset  
Do Until rs.EOF = True 
rs.MoveNext  
Loop  
rs.MoveFirst  
t = Timer 
ReDim m_FldsName(rs.Fields.Count)  
For II = 0 To rs.Fields.Count - 1  
m_FldsName(II) = rs.Fields(II).Name  
Next  
Do Until rs.EOF = True 
ReadFieldsNotOnErr "Err1"  
ReadFieldsNotOnErr "TableName"  
ReadFieldsNotOnErr "Err2"  
rs.MoveNext  
Loop  
MsgBox "NotErr:" & Timer - t  
On Error Resume Next  
rs.MoveFirst  
t = Timer 
Do Until rs.EOF = True 
ReadFieldsOnErr "Err1"  
ReadFieldsOnErr "TableName"  
ReadFieldsOnErr "Err2"  
rs.MoveNext  
Loop  
MsgBox "OnErr:" & Timer - t  
rs.Close  
cn.Close  
End Sub  
Private Sub ReadFieldsOnErr
(FieldName As String)  
Dim v As Variant  
v = rs(FieldName).Value  
End Sub  
Private Sub ReadFieldsNotOnErr
(FieldName As String)  
Dim II As Long  
Dim IsExists As Boolean  
Dim v As Variant  
IsExists = False 
For II = 0 To UBound(m_FldsName) - 1  
If m_FldsName(II) = FieldName Then  
IsExists = True 
Exit For  
End If  
Next  
If IsExists = True Then  
v = rs(FieldName).Value  
End If  
End Sub 

測試結果：

無錯誤時

ReadFieldsOnErr ： 0。46  
ReadFieldsNotOnErr ： 0。47 

有錯誤時

ReadFieldsOnErr ： 0.96  
ReadFieldsNotOnErr ： 0.47 

可以看到：不使用VB.NET錯誤處理，速度相當穩定，而使用VB.NET錯誤處理時，有錯誤的情況下速度落差較大，所以 對于在循環中 頻繁調用 的子過程，建議對可能出現的錯誤進行預處理，減少使用 On error來提升速度。