vb中获取错误行号的函数是什么呀？我想不起来了，各位帮帮忙呀！

Question

Error 函数示例
本示例使用 Error 函数来显示指定的错误代号所代表之错误信息。Dim ErrorNumber
For ErrorNumber = 61 To 64   ' 从错误代号 61 循环到 64。
   Debug.Print Error(ErrorNumber)   ' 将错误信息在立即窗口中显示。
Next ErrorNumber

Answer 1

Sub ErrorTest ()
          Dim x as Integer                ' Declare variable.
      10:                                 ' NEW LINE!!!
          On Error Goto ErrorTest_Error
      11:                                 ' NEW LINE!!!
          x = 5 / 0                       ' Divide by zero error
      12:                                 ' NEW LINE!!!
          Exit Sub      ErrorTest_Error:
          Debug.Print "Error occurred in line #" & Erl
          Resume Next
      End Sub

Answer 2

Private Sub Command1_Click()
   On Error GoTo ErrorHandle
2: VBA.Err.Raise 1
30 VBA.Err.Raise 2   Exit Sub
ErrorHandle:
   VBA.MsgBox VBA.Erl
   Resume Next
End Sub

Answer 3

同意 lihonggen0(用VB) ,playyuer(女㊣爱)