vb6.0 else没有if 问题

Private Sub Command1_Click()
Dim a, b, c As Single
Dim d As String
a = Val(Text1)
b = Val(Text2)
d = Text3
If Text3 = "+" Then c = a + b
ElseIf Text3 = "-" Then c = a - b
ElseIf Text3 = "*" Then c = a * b
ElseIf Text3 = "/" Then c = a / b
End If
Text4 = c
End Sub

一直提示else没有if  什么原因啊 怎么改正？ 重要的是什么原因

你要在then后回车，才可以使用else。否则的话它会将if……then……当成一句话，下面的else就没有匹配的if了。

改为：

Private Sub Command1_Click()
Dim a, b, c As Single
Dim d As String
a = Val(Text1)
b = Val(Text2)
d = Text3
If Text3 = "+" Then c = a + b
ElseIf Text3 = "-" Then c = a - b
ElseIf Text3 = "*" Then c = a * b
Else Text3 = "/" Then c = a / b
End If
Text4 = c
End Sub