第一步,设置报警阈值为37度;
第二步,获取人的体温;
第三步,获取的人的体温与报警阈值作比较,如果体温不超过报警阈值,则显示“正常通行”;否则显示“体温高报警”。
图1
A. ![]()
B. ![]()
C. 
D.
f=37
t= ("请输入检测的体温:")
t=eval(t)
if t<f
print("正常体温")
:
print("体温高报警")
x=10
if x<=10:
y=10*x
else:
y=x*20+10
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
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, det As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
det = ‘(根的判别式b2-4ac)
Select Case det
Case Is > 0
x1 = (-b + Sqr(det)) / (2 * a)
x2 = (-b - Sqr(det)) / (2 * a)
Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2)
Case Is = 0
Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)
Case
Text4.Text = "此方程无实数根"
End Sub
若x中的值为2,4,6,则打印“x的值为2,4,6”;
若x中的值为10到20之间的数,则打印“x的值为10~20”;
若x中的值为大于20的数,则打印“x 的值大于20”;
否则,打印“x不在范围内”;
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case
Print "x的值为2,4,6"
Case
Print "x的值为10~20"
Case
Print "x的值大于20"
Print "x不在范围内"
End Select
End Sub
if int (input ( ) ) %5= =0:
print("yes")
if int (input ( ) ) %5!=0:
print("no")
如果输入7,则输出( )。
If a<=70 Then i=1
If a>70 Then i=2
Print i
以上程序段的执行结果为2。
x=6
If x <= 5 Then
y = 2 * x + 1
Else
y = x / 2
End If
m=19
if m>=30 or m<20:
print(m)

a=3
b=5
if a==b:
print(b)
else:
print(a)
a=int(input( ))
if a>0:
print("正整数")
elif a<0:
print("负整数")
else:
print("零")
负整数
零
B . 正整数 C . 负整数 D . 零x=20
if x>=100:
y=5*x
else:
y=4*x
print (y)
t=float (input("请输入停车时长:"))
if t<=1:
print("停车时长"+str(t)+",免费停车")
elif t<=3:
print("停车时长"+str(t)+",收费5元")
print("停车时长"+str(t)+",收费10元")
else:
print("停车时长"+str(t)+",收费15元")
s="abcdefg"
c=len(s) #len 求字符串长度
for i in range(0,c):
if i<2:
print (chr(ord(s[i])+2),end=" ") # ord()函数是chr()函数配对函数,将字符转ASCII值
else:
print(chr(ord(s[i]) + 3),end=" ")
1)系统随机生成一个1~100的数字;
2)用户总共有5次猜数字的机会;
3)如果用户猜测的数字大于系统给出的数字,打印“too big";
4)如果用户猜测的数字小于系统给出的数字,打印"too small";
5)如果用户猜测的数字等于系统给出的数字,打印"恭喜",并且退出循环;
编写程序代码如下,请完善代码:
#导入random模块
#随机生成1-100的整数并赋值给变量game
time=5
while time>0:
guess=int (input ("请输入你所猜的数字:"))
if (guess>game) :
print ("too big")
elif :
print(" too small' )
else:
print ("恭喜”)
break
time=time-1
print("游戏结束,正确的结果是:",game)
| a=10 b=5 if(a<<b): print("a比b小") |

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