请利用列表实现程序的功能,在划线处将程序补充完整。
mc=(input (“请输入运动会项目名词(1~6):”)) #输入名次,转化为整型
1st=[7,5,4,3,2,1] #定义一个得分列表
if mc>=1 and mc<=6 : #名次在1-6名之间,索引位置
df= #根据索引取列表中相应的成绩
print(“项目得分为:”, )
else:
print(“输入的名次不在[1~6]范围!”)
x=4
ifx==5:
print("优秀")
elif x==4:
print("良好")
elif x==3:
print("及格")
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
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
Else
if b>3 then
c=a*b
else
c= a mod b
End if
End if
商品折扣表:
|
商品名称 |
原价 |
折扣力度 |
|
篮球鞋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函数提示“对不起!买不起,请您放弃!”。请编程实现。
④结论:最适合小明的运动鞋是什么。请填写商品名称
下列程序的功能是:当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
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=6
b=8
s=1+a*b/2
print(s)
a=10
b=20
sum=a+b
___________________
a=100
b=200
_______________
print(a,"+",b,"=",c)
chengji = int( input("请输入百分成绩"))
if chengji >= 85:
print("成绩为:优秀")
else:
print("成绩为:良好")

a=4
b=6
avg=(a+b)/3
print(avg)

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