①设定⼀个理想数字比如:66,
②让⽤户输入数字,如果比66⼤,则显示:“你猜大了!”;
③如果⽐66小,则显示:“你猜小了!”;
④只有等于66,显示:“你才对了!”,并退出循环。
国际通常用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(“肥胖”)
s=0
for i in range(1,21) :
s=
print (s)
list1=[1,2,5, 6,9]
for item in list1:
print()
Private Sub Command1_Click()
a = 0
For i = 8 To 100 Step 8
a = a + 1
Next i
End Sub
Private Sub Form_Click( )
Dim a, b, c, s As Integer
a=9
b=41
c=2*(a+b)
s=a*c
Private Sub Form_Click( )
Dim a As Integer, b As Integer
If a>b Then
a=a-b
Else
a=b+a
End if
Print a
Private Sub Form_Click( )
Dim x As Integer, a As Integer
x=0
a=0
For j=1 to 5
a=a+j
Next j
x=j
Print x, a
End Sub
Private Sub Form_Click( )
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x,n
End Sub
Dim x As Interger
x= 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
Sub mult( )
Dim Sum As Integer
Sum=0
Dim i as integer
For to 50
If i MOD 2= Then
End if
Next i
Print sum
End Sub
i=4
a=5
If i > 3 Then a = a + 5
Else a = a + 2
End If
写出本程序段运行后,变量a的值。
c = 0
For i = 1 To 12
If 12 Mod i = 0 Then
c = c + 1
End If
Next i
Text1.Text = Str(c)
程序运行后,在文本框中输出为:。
For i in range(①):
Print("抗击疫情,广州加油!")
i=1
while i<=49:
print(“♥”)
i=i+1
s=0 : t=1: p=1 For i=1 To 10 t=t*i s=s+p*t p=- p Next i |
For k=15 To 1 Step -5
Print k
Next
程序运行后,k的值是:
for i in range(0,10,2):
print ("*")
s=0; k=1
while (k<=101):