Private Sub Command1_Click()
Dim a
#, b#
, c
#, d#

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If Not IsNumeric(Text1) ThenMsgBox "输入有误"
ElseIf Not IsNumeric(Text2) Then
MsgBox "输入有误"
ElseSelect Case c
Case "+"
d = a + b
Case "-"
d = a - b
Case "*"
d = a * b
Case "/"
if len(text3.text）〈〉0 Then
d = a / b
Text4.Text = d
ElseIf Len(Text3.Text) = 0 Then
MsgBox "除数不能为零
"End If
End Select
End Sub
Private Sub Command2_Click()
End
end sub

提示什么错误？

好像少了End If