Question

VB编程时出现错误 缺少结束语句

这段代码是我从书上抄下来的，但是结束的时候提示错误，说缺少结束句，其中错误出现在DelErrorOut，但是我不知道怎么修改，请高手帮忙解决，在线等 先谢过了。

Public Fuction DelErrorOut (vbfbClearErr As Boolean,Optional fstrMsg As String) As Boolean

If (Err.Number = 0 Or Err.Number = 32775) Then
DefErrorOut = True
Else
DefErrorOut = False
If (fstrMsg <> "") Then '(Not IsMissing(fstrMsg)) then
MsgBox fstrMsg & vbCrLf, vbInformation
Else
Dim StrM As String
StrM As String
StrM = "不适当的操作，描述为："
StrM = StrM & Err.Number & vbCrLf & Err.Description
StrM = StrM & vbCrLf
MsgBox StrM, vbInformation
End If
If (fbClearErr) Then Err.Clear
Err.Clear
End If
End Function

Answer 1

Public Fuction DelErrorOut (vbfbClearErr As Boolean,Optional fstrMsg As String) As Boolean
这里 Fuction 写错了，应该是Function （少了个n）
还有 DelErrorOut好像也拼错了 吧，函数里面的变量是DefErrorOut

....
Else
Dim StrM As String

StrM As String '这句多余了，去掉

StrM = "不适当的操作，描述为："
....

Answer 2

少了一个，end if!在end function 上面再加一个end if就好了··呵呵··

Answer 3

估计
If (fstrMsg <> "") Then '(Not IsMissing(fstrMsg)) then
↑ ↑
这个语句有点问题。

两个箭头中间是什么语句？没看明白
或者第二个then前面缺少if