Question

VB问题，错误的显示是：编译错误 块if 没有end if.

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "办公" Then
MsgBox "成为办公专家"
ElseIf a = "网站" Then
MsgBox "成为网站设计师"
ElseIf a = "网络" Then
MsgBox "成为网络工程师"
Else
MsgBox "没有你要的专业"
End Sub

以上错在哪？错误的显示是：编译错误 块if 没有end if.

Answer 1

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "办公" Then
MsgBox "成为办公专家"
ElseIf a = "网站" Then
MsgBox "成为网站设计师"
ElseIf a = "网络" Then
MsgBox "成为网络工程师"
Else
MsgBox "没有你要的专业"
end if '---->这里要添加
End Sub

Answer 2

有 if 必须 在结束时 编写endif
而且位置上要对应

Answer 3

很明确的提示啊啊，编译系统都告诉你了缺少