奥运会参赛选手要进行体重检查，他们的体检标准为：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