#输入x的值,
x=int (input(“请输入一个数x:”))
if x<50:
y=
print(“y的值是:”,y)
elif:
y=0.7*x
print(“y的值是:”,y)
else:
print(“输入数据出界”)
输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
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
Dim i As Integer, s As Integer
s=4
i=9
If i < 1 Then
i=i-3
Else
i=s+i
End If
s=1
For i=1 to 3
s=s*i
Next i
商品折扣表:
商品名称 |
原价 |
折扣力度 |
篮球鞋001 |
488元 |
4折 |
篮球鞋002 |
458元 |
5折 |
跑步鞋001 |
398元 |
5折 |
跑步鞋002 |
358元 |
6折 |
徒步鞋001 |
339元 |
6折 |
软件设计要求:(如图)
①新建一个VB工程,完成“折扣商品计算器”程序的设计。将工程文件以sale.vbp、窗体文件以sale.frm保存到考试目录“操作题”下;
②窗体的标题为“折扣商品计算器”;窗体的左边有三个标签,Label1的属性为“商品原价a:”、Label2的属性为“折扣力度b:”、 Label3的属性为“折后价格c:”;它们的旁边分别有三个文本框,Text1用于商品原价、Text2用于输入折扣力度、Text3用于输出折后价格;在文本框的右边有三个标签,Label4的属性为“元”、Label5的属性为“折”、 Label6的属性为“元”;
③单击“计算”按钮(Command1),根据计算公式将相应的提示信息显示在标签Text3中;
计算公式为:折后价格=商品原价*折扣力度;如果折后价格不高于200元,MsgBox函数提示“可以购买!”;如果折后价格高于200元,MsgBox函数提示“对不起!买不起,请您放弃!”。请编程实现。
④结论:最适合小明的运动鞋是什么。请填写商品名称
Private Sub Command1_Click( )
Dim s, j As Single
s=
For j=1 to 50
If Then
s=s*j
Else
s=
End if
Next j
print “s=”:s
End Sub
试在横线处填写适当的内容,使程序得到相应的计算结果。
请把以下选项填在对应的序号处①、②、③
A.暴雨红色预警信号是否生效
B.正常回校上课
C.学生停课在家自主学习
target="123"
while ⑴:
password=input('请输入密码:')
if ⑵:
print('密码正确')
break
else:
print('密码错误,)
print('成功登陆')
⑴A.True B.False C.Break D.Stop
⑵A.password=target B.password==target C.password>=target D.password!=target
a=10
s=0
if a>5:
s=s+a
print(s)
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=" ")
a=int(input("请输入a:"))
if a<0:
y=-a
else:
y=a
print(y)
输入: 2022
输出结果为
输入: -3
输出结果为
x=float(input('请输入用水量:')
if x<=100:
print('您的水费是',x*0.6,'元')
elif x>100 and x<=200:
print('您的水费是',x*0.7,'元')
else:
print('您的水费是',x*0.9,'元') *
①p=5 (a+b+p) ②if a>0 then b=b+1
③t1.text=”请输入密码:” ④For i=1 to 10 do j=j*2