请问这段代码为什么会出错？

Question

Private Sub Command1_Click()
If Check1.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
ElseIf Check2.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
ElseIf Check3.Value = 1 Then
Text1.FontSize = Text1.FontSize + 5
Else
Beep
End IfEnd SubPrivate Sub Form_Load()End Sub

Answer 1

回头看看判定结构吧If...Then…ElseIf 只是 If...Then...Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。就是在Else之前可以有多个ElseIf，但只能有一个Else，Else已经包任何其他情况了。可以先用ElseIf，最后才Else。其实ElseIf用多了很没意思，多的话不如用Select，结构清晰