K3常用VB语句 偏胖 非常标准 本题解析

下列Visual Basic程序的功能是输入身高（l/cm）和体重（k/kg）来测试你的身材是否符合标准。
Private Sub Command1_Click（）
Dim l，k，BMI As Single
l=Val（Text2.Text）/100
k=Val（Text3.Text）
BMI=k/（I * l）
If BMI<18.5 Then
Text1.Text=“太瘦了”
Elself BMI>=25 Then
Text1.Text=“偏胖”
Else
Text1.Text=“非常标准”
End If
End Sub
运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是

A.太瘦了

B.偏胖

C.非常标准

D.超出范围



此题考查if语句。据题分析可得此数据下的BMI= k/（1*1）=27.8，于是if的分支“ElseIf BMI>=25”成立，因而执行语句：Text1．Text=“偏胖”，故选择B选项。