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