《浙教版（2020）信息技术八上 2.6 多分支结构程序设计 一课一练（含答案）.docx》由会员分享，可在线阅读，更多相关《浙教版（2020）信息技术八上 2.6 多分支结构程序设计 一课一练（含答案）.docx（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2.6多分支结构程序设计一课一练一、单选题1.下列程序运行后， 变量Value的值是( ) x=10if x=10： Value=3*xelse： Value=5*X+ 10A.30B.40C.50D.602.有如下程序段： x=5If x5 Theny=x2-10Elsey=4*xEnd If该程序段运行后，变量 y 的值是( )。A.25B.0C.15D.203.求1-100之间所有偶数和，请补充完成方框处代码( )。 s=0for i in range(101)： If : s=s+iprint (s)A.i/2=0B.i%2=0C.i%2=0D.i/2=04.下面程序的执行结果是（ ）
2、(提示：Print语句是表示输出)I=10J=20If IJ Then Print I Else Print JA.10B.20C.1020D.20105.下述程序段中y的值是（ ） x=6If x 10 then a=a+iElse a=a-iEnd ifA.0B.10C.20D.307.分析以下程序，选择正确的输出结果 （1）. m= 1m = m+ 5n = 5 + mPrint n ,mA.6 1B.11 6C.6 11D.5 6（2）. a = 2b = 3print a bA.2B.trueC.falseD.3（3）. a=10b=20If ab then Print a, bEl
3、se Print b, aEnd ifA.1020B.2010C.1010D.2020（4）. For k=15 to 1 step -5 Print k；nextA.15B.15 10 5 1C.15 10 5 0D.15 10 58.下列Python语法表述不正确的是（ ）。 A.在if语句和while语句中，同一层次的语句模块每行必须是相同的缩进空格数。B.while语句中，一般在循环体中要有改变判断条件的语句，否则会出现“死循环”。C.Python用不同的缩进来表达逻辑层次。D.else后可以不加冒号。9.在Python中，运行以下程序得到的结果是（ ） m=19if m=30 or
4、m20print（m）A.20B.19C.0D.空10.在VB中，对于语句If I=1 Then J=1 else J=2，下列说法正确的是（ ） A.I=1 和 J=1 都是赋值语句B.J=1 和 J=2 都是关系表达式C.I=1为关系表达式，J=1为赋值语句D.J=1为赋值语句，J=2为关系表达式11.在Python中输入以下程序： if int (input ( ) ) %5= =0: print(yes)if int (input ( ) ) %5!=0: print(no)如果输入7，则输出（ ）。A.YesB.PrintC.NoD.Else12.下面VB程序段实现的功能是计算阶梯式
5、水价，空缺的程序代码应该是（ ）。 If x=12 Then y=2.85*x _ y=2.85*12+（x-12）*2.85*2End ifA.NextB.LoopC.DoD.Else13.执行下面的程序段后，变量c的值为（ ）。a=14b=30select case b10 “”是整除，运算结果只保留整数部分。Case 0 c=a+bCase 1 to 9 c=a*10+bCase 10 to 99 c=a*100+bEnd selectPrint cA.363B.314C.170D.143014.如下一段VB程序运行后，变量a的值为（ ）。 Dim i As Integer, a As
6、Integeri=6a=6 If i 450 Text2.Text = 优秀 Case Is 400 Text2.Text = 良好 Case Is 350 Text2.Text = 中等 Case Is 300 Text2.Text = 及格 Case Else Text2.Text = 不及格 End SelectEnd Sub语法错误：该程序运行后，若在文本框中输入350，则输出为：18.读程序写结果 （1）有如下一段VB程序： i=4 a=5 If i 3 Then a = a + 5 Else a = a + 2End If 写出本程序段运行后，变量a的值_。（2）Dim x As
7、Integer, c As Integer, i As Integer c = 0 For i = 1 To 12 If 12 Mod i = 0 Then c = c + 1 End If Next iText1.Text = Str(c)程序运行后，在文本框中输出为：_。三、解答题19.设计一个计算程序。该程序用户界面自己设计，由四个文本框：文本框1（text1，语文）、文本框2（text2，数学）、文本框3（text3，英语）、文本框4（text4，平均分），和三个按钮：命令按钮1（command1，清空）、命令按钮2（command2，计算）、命令按钮3（command4，退出）组成。
8、程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。 20.设计出租车收费计算器VB程序，使其具有下列功能：在文本框Text1中输入行驶的路程，单击“计算”按钮Command1，在文本框text2中显示所需的费用（注意：当行驶的公里数a3公里时，费用s为6.5元；当行驶的路程超过3公里时，3公里按6.5元计算，超出部分按每公里1.6元收费）。界面设计如图所示。 答案解析部分一、单选题1. A 2. D 3. C 4. B 5. C6. A 7. （1）B（2）C（3）B（4）D 8. D 9. B 10. C 11. C 12. D 13.
9、 C 14. A 15. （1）D（2）D（3）A 二、填空题16. （1）Elif；else；多分支（2）变量（3）相等；!=；真（True）；假（False）（4）ope=“/”；result=x/y（5）保存；Run；F5 17. 没有加上数值检测函数；及格 18. （1）10（2）6 三、解答题19. 解：程序参考： Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate 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 IfSub End Private Sub Command3_Click() Unload MeEnd Sub20. 解： Private Sub Command1_Click() a = Val(Text1.Text) If a = 3 Then s = 6.5 Else s = 6.5 + (a - 3) * 1.6 End If Text2.Text = sEnd Sub