你定义了一个sub，但是没有结束它声明 Sub 按钮2_Click() Depart( "abs",2) 用这样的方法试试 End Sub
Function Depart(Srg As String, Optional n As Integer = False) Dim i As Integer Dim s, MyString As String Dim Bol As Boolean For i = 1 To Len(Srg) s = Mid(Srg, i, 1) If n = 1 Then Bol = Asc(s) 0 ElseIf n = 2 Then Bol = s Like "[a-z,A-Z]" ElseIf n = 0 Then Bol = s Like "#" End If If Bol Then MyString = MyString & s Next Depart = IIf(n = 1 Or n = 2, MyString, Val(MyString)) End Function
