2.5分支结构程序设计一课一练
一、单选题
1.能正确描述条件“A、B之一为零但不同时为零”的VB逻辑表达式是( )
A. A=O Or B=0 B. A*B=0 And A+B<>0 C. A*B=0 Or A+B<>0 D. A=0 And B=0
2.数学表达式:a6+3bc写成对应的VB算术表达式是( )。
A. a^6+3a*b B. a*6+3b*c C. 6*a+5*bc D. a^6+3*b*c
3.当在文本框Text1中输入3时,执行下面的程序后,Y的值是( )
x=Val(Text1. Text)
If x<=2 Then
y=2
Else
If x<=3 Then
y=3
Else
y=4
End If
End If
A. 2 B. 3 C. 4 D. 程序出错,没有结果
4.下述程序段中y的值是( )
x=6
If x <= 5 Then
y = 2 * x + 1
Else
y = x / 2
End If
A. 13 B. 6 C. 3 D. 4
5.请选出下列书写正确的语句( )
A. p=5 (a+b+p) B. if a>0 then b=b+1
C. t1.text=”请输入密码:” D. For i=1 to 10 do j=j*2
6.在Python有如下一段程序,执行程序,最后输出内容为( )。
x=4
ifx==5:
print("优秀")
elif x==4:
print("良好")
elif x==3:
print("及格")
else:
print("不及格")
A. "优秀" B. "良好" C. "及格" D. "不及格"
7.数学式(a+3b)/(2a-b)在VB中的正确写法是( )。
A. (a+3*b)/(2*a-b) B. (a+3b)/(2a-b) C. (a+3*b)/2*a-b D. (a+3*b)/(2a-b)
8.“232”*2+“ewe”的结果是( )
A. 计算出错 B. “232232ewe” C. “232ewe” D. “464ewe”
9.在编写程序时,对条件进行判断时,只存在“成立”与“不成立”两种情况,结果用“True”与“False”表示,以下表达式的结果为“True”的是( )。
A. 2>3 B. 2<3 C. 2<>2 D. 2<3and2<1
10.执行语句y=4**3后,变量y的值为?( )
A. 64 B. 12 C. 0 D. 81
11.执行语句[3] in [1,2,3]的结果是( )。
A. False B. True C. None D. 出错
12.根据下图回答问题
(1)在Python交互模式下,命令运行结果是( )
A.12
B.10
C.False
D.True
(2)“>>>”是( ),输入相应的命令即可执行程序。
A.比较运算符
B.命令提示符
C.逻辑运算符
D.算术运算符
(3)“x>0 and x<10”中的and是( )
A.比较运算符
B.命令提示符
C.逻辑运算符
D.算术运算符
13.VB中表达式Mid(“hello”,2,3)的值是( )
A. “ll” B. “llo” C. “ell” D. “ello”
14.运行如下程序代码:
a=input( )
b=input( )
print(a+b)
输入2和5输出结果为( )
A. 25 B. 7 C. 5 D. 2
15.关于Python算术操作符,以下选项中描述错误的是( )。
A. x//y表示x与y之整数商,即不大于x与y之商的最大整数
B. x**y表示x的y次幂,其中,y必须是整数
C. x%y表示x与y之商的余数,也称为模运算
D. x/y表示x与y之商
二、填空题
16.计算右边VB表达式的值:25+6*4/8=________
17.下列程序的功能是:当x<50时,y=0.8x;当50≤x≤100时,y=0.7x;当x>100时, 提示信息“输入的数据出界!”。请根据题意,补充完整程序。
#输入x的值,
x=int (input(“请输入一个数x:”))
if x<50:
y=________
print(“y的值是:”,y)
elif________:
y=0.7*x
print(“y的值是:”,y)
else:
print(“输入数据出界”)
18.亮亮学习了Python程序后,决定动手编写一个BMI指数计算器。输入身高和体重,就可以测出BMI指数和健康状况。
国际通常用BMI (Body Mass Index) 衡量人体肥胖和健康状况的标准,计算公式是:
BMI=体重(kg) /身高2 (m2)
国际、国内对BMI指数评判的标准(如下表39-1)。国际:世界卫生组织:国内:国家健康委员会。
分类 国际BMI值 国内BMI值
偏瘦 <18.5 <18.5
正常 18.5~25 18.5≤bmi <24
偏胖 25~30 24≤bmi <28
肥胖 ≥30 ≥28
请以国内为标准,帮他完善程序代码,在划线处填空。
w=________ (input(“请输入你的体重(单位:千克):”)) #转浮点数函数
h=float (input(“请输入你的身高(单位:米):”))
bmi=________ #计算bmi
if bmi<18.5:
print(“________”)
elif________:
print(“正常”)
elif 24<=bmi <28:
print(“偏胖”)
________
print(“肥胖”)
三、解答题
19.近年来网络技术的迅猛发展,网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋,想在这五双中选择一双购买(原价和折扣详见商品折扣表)。但是小明的预算是不超过200元,更省钱最好,请你为小明设计一款软件,选择购买哪一双运动鞋最实惠。
商品折扣表:
商品名称 原价 折扣力度
篮球鞋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函数提示“对不起!买不起,请您放弃!”。请编程实现。
④结论:最适合小明的运动鞋是什么。请填写商品名称
20.设计一个计算程序。该程序用户界面自己设计,由四个文本框:文本框1(text1,语文)、文本框2(text2,数学)、文本框3(text3,英语)、文本框4(text4,平均分),和三个按钮:命令按钮1(command1,清空)、命令按钮2(command2,计算)、命令按钮3(command4,退出)组成。程序运行后,用户按清除按钮,则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩。单击退出按钮则退出。
答案解析部分
一、单选题
1. B
2. D
3. B
4.C
5. B
6. B
7. A
8. B
9. B
10. A
11. A
12. (1)C
(2)B
(3)C
13. C
14. A
15. B
二、填空题
16. 28
17. 0.8*x;x>=50 and x<=100 或(50<=x<=100)
18. float;w/(h**2);偏瘦;18.5<=bmi<24;else 或elif bmi>=28
三、解答题
19.
4 结论 篮球鞋001
完整程序:
写法1:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c <= 200 Then
MsgBox ("可以购买!")
Else
MsgBox ("对不起!买不起,请您放弃!")
End If
End Sub
写法2:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c > 200 Then
MsgBox ("对不起!买不起,请您放弃! ")
Else
MsgBox ("可以购买!")
End If
End Sub
20. 解:程序参考:
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command2_Click()
If Text1. Text="" Or Text2.Text="" Or Text3.Text="" Then
MsgBox "成绩输入不全!
Else
Text4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3
End If
Sub End
Private Sub Command3_Click()
Unload Me
End Sub