运行下面的 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

A、If语句缺少Then

B、If语句缺少Else

C、变量a的数据类型说明错误

D、变量b的数据类型说明错误