第一步,设置报警阈值为37度;
第二步,获取人的体温;
第三步,获取的人的体温与报警阈值作比较,如果体温不超过报警阈值,则显示“正常通行”;否则显示“体温高报警”。
图1
A. ![]()
B. ![]()
C. 
D.
f=37
t= ("请输入检测的体温:")
t=eval(t)
if t<f
print("正常体温")
:
print("体温高报警")
国际通常用BMI (Body Mass Index) 衡量人体肥胖和健康状况的标准,计算公式是:
BMI=体重(kg) /身高2 (m2)
国际、国内对BMI指数评判的标准(如下表39-1)。国际:世界卫生组织:国内:国家健康委员会。
|
分类 |
国际BMI值 |
国内BMI值 |
|
偏瘦 |
<18.5 |
<18.5 |
|
正常 |
18.5~25 |
18.5≤bmi <24 |
|
偏胖 |
25~30 |
24≤bmi <28 |
|
肥胖 |
≥30 |
≥28 |
请以国内为标准,帮他完善程序代码,在划线处填空。
w= (input(“请输入你的体重(单位:千克):”)) #转浮点数函数
h=float (input(“请输入你的身高(单位:米):”))
bmi= #计算bmi
if bmi<18.5:
print(“”)
elif:
print(“正常”)
elif 24<=bmi <28:
print(“偏胖”)
print(“肥胖”)
d=
if d>0 then
x1= (-b + Sqr(d)) / (2 * a)
x2=
text4.text=str(x1)
text5.text=str(x2)
label6.caption=“有两个不同的实数根”
else
if then
x1=(-b)/(2*a)
x2=x1
text4.text=str(x1)
text5.text=str(x2)
label6.caption=“有两个相同的实数根”
else
text4.text=
text5.text=""
label6.caption=
end if
end if
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case Is >= 450
Text2.Text = "优秀"
Case Is >= 400
Text2.Text = "良好"
Case Is > 350
Text2.Text = "中等"
Case Is >= 300
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select
End Sub
语法错误:
该程序运行后,若在文本框中输入350,则输出为:
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x

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
height=input('你的身高是多少米:')
height=float(height)
weight =input('你的体重是多少KG:')
weight =float(weight)
BMI=weight/(height*height)
if BMI>=24.9:
print('肥胖')
① BMI<24.9 ② BMI>=18.5:
print('正常')
else:
print('偏瘦')
a=10, i=10
If i>10 then
a=a+i
Else
a=a-i
End if
m=19
if m>=30 or m<20:
print(m)

要求,学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下:
90≤成绩≤100 A
80≤成绩<90 B
60≤成绩<80 C
0≤成绩<60 E
其余成绩 无效 文本框(Text2)中显示“输入有误,请检查输入的成绩”

x=0
a=8
if a<9:
x=9
print (x)
height=input('你的身高是多少米:')
height=float(height)
weight =input('你的体重是多少KG:')
weight =float(weight)
BMI=weight/(height*height)
if BMI>=24.9:
print('肥胖')
① BMI<24.9 ② BMI>=18.5:
print('正常')
else:
print('偏瘦')
① ②
a=input("请你输入一个数字:")
b=input("请你输入一个数字:")
c=input("请你输入一个数字:")
if a<b:
a=b
if a<c:
a=c
print(a) *
If(a>b)Then
Print a '如果a>b,输出变量a的值
Else
Print b '否则,输出变量 b的值
End If '结束If分支

Private Sub Command1_Click( )
a= Val(Text1. Text)
b= Val(Text2. Text)
IfThen
Max=
Else
Max=b
End If
Text3.Text=
End Sub
