1. 运行下面的 Visual Basic程序，单击命令按钮 Command1，出现如下图所示的提示信息：出现该错误的原因是(       )

Private Sub Command1_Click()

    Dim a As Single， b As Single

    a = Val(Text1.Text)

    b = 10

    If a >= b

        b = a * a + 2 * b

    End If

    Label1.Caption = Str(b)

End Sub