学生成绩评价程序实现对输入学生成绩进行评价的功能。评价标准是90分以上为“优秀”,80-90间为“良好”,60-80分为“及格”,60分下为“不及格”。
If x<=12 Then
y=2.85*x
____
y=2.85*12+(x-12)*2.85*2
End if
1 Dim time, price As Integer ‘time代表停车时间price代表停车费用 2 time = Text1. Text ‘在文本框输入停车时间 3 If time <= 12 Then 4 price= 10 5 Else 6 price= 10 + (time - 12) 7 EndIf 8 Form1. Print price |
【图 11】
count=0 #拥于记录试错的次数
rightname=“admin”
rightpasswd=“admin123”
while :#只允许试错3次
name=input(“请输入用户名:”)
passwd=input(“请输入密码:”)
if name==rightname passwd==rightpasswd:
print(“登录成功!”)
#如果登录成功,则直接跳出循环
else:
print(“登录失败!”)
#试错次数+1
else:
print(“登录次数超过三次,请稍后登录”)
Private Sub Command1_Click()
Dim x, y, t As Integer
x = 10
y = 30
If x < y Then
t =
x =
y =
End If
Label1.Caption = Str(x)
Label2.Caption = Str(y)
End Sub
s = input("请输入一个数字")
print("s是个小于10的数字" if int(s)<10 else "s是大于10的数字")
if a+b>c and a+c=b and b+c>a :
print(“周长:”,a+b+c)
else:
print(“不能构成三角形”)
①p=5 (a+b+p) ②if a>0 then b=b+1
③t1.text=”请输入密码:” ④For i=1 to 10 do j=j*2