奥运会参赛选手要进行体重检查，他们的体检标准为：Bim＝w/(h*h)，为此设计Visual Basic程序如下。调试程序时，单击命令按钮“com1”，出现如右图所示的提示信息：
Private Sub com1_Click()
Dim w As Single
Dim h As Single
Dim bmi As Single
w = Val(Text1.Text)
h = Val(Text2.Text)
bmi =" w" / (h * h)
If bmi >=" 20" And bmi <=" 25" Then
Label3.Caption =" Str(bmi)" + "合格" '输出bmi指数及健康状态
Else
Label3.Caption =" Str(bmi)" + "不合格" '输出bmi指数及健康状态
End Sub
出现该错误的原因是（ ）
| A．变量h类型定义错误 | B．变量bmi类型定义错误 |
| C．If语句缺少Else | D．If语句缺少End If |
