If(a>b) Then
Print a ‘如果a>b,输出变量a的值
Else
Print b ‘否则,输出变量 b的值
End If ‘结束If分支
输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
Private Sub Command1_Click( )
Dim x As Integer
x= (Text1.Text)
Select Case x
Text2.Text=“优秀”
Case x≧75
Case Else
Text2.Text=“不及格”
End Select
End Sub
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,输入的数据超出范围。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
Case x < 50
y=0.8 * x
Case 50 To 100
Print "输入的数据超出范围!"
End Select
Print x, y
End Sub
Dim i As interger, a As interger
i=1
a=5
If i>3 Then
a=a+9
Else
a=a+6
End if
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('偏瘦')
① ②
print("请输入3个数:")
x=int(input("x="))
y=int(input("y="))
z=int(input("z="))
temp=0
if x>y:
temp=y
y=x
x=temp
if x>z:
temp=z
z=x
x=temp
if y>z:
temp=z
z=y
y=temp
print("这3个数新序列是:",x,y,z)
W=float( input(输入体重(kg):") h= float( input("输入身高(m):")) bmi=w/(h*h) #BMI=体重(kg)/身高的平方(m) if bmi<18.5: print("偏瘦") elif 18.5<=bmi<24: print("正常") else: print("偏胖") |
s='t1Hr2a3'
s1='' ; s2=''; i = 0
while i < len(s):
if '0'<=s[i]<='9':
s1 = s1 + s[i]
elif 'a'<=s[i]<='z':
s2 = s[i] + s2
i = i + 1
ans = s2 + s1
print(ans)
程序执行后,输出的结果是( )
m=19
if m>=30 or m<20:
print(m)