浙教版（2020）信息技术八上 2.7 多分支结构的应用实例 一课一练（含答案）

2.7多分支结构的应用实例一课一练 一、填空题 1.变量a，b，c分别保存一元二次方程的二次项、一次项系数和常数项（其中a≠0），变量x1和x2分别保存方程的两个根。完善下列程序，使程序运行时能根据方程的a，b，c值计算根并输出相应信息。 d＝ if d>0 then x1= (-b + Sqr(d)) / (2 * a) x2= text4.text=str(x1) text5.text=str(x2) label6.caption=“有两个不同的实数根” else if then x1＝(-b)/(2*a) x2=x1 text4.text=str(x1) text5.text=str(x2) label6.caption=“有两个相同的实数根” else text4.text= text5.text="" label6.caption= end if end if 2.下面的程序用于根据文本框x中输入的内容进行以下处理： 若x中的值为2，4，6，则打印“x的值为2，4，6”； 若x中的值为10到20之间的数，则打印“x的值为10~20”； 若x中的值为大于20的数，则打印“x 的值大于20”； 否则，打印“x不在范围内”； Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Print "x的值为2，4，6" Case Print "x的值为10~20" Case Print "x的值大于20" Print "x不在范围内" End Select End Sub 3.阅读程序写结果。 year=2021 if (year%400==0) or ( year%4==0 and year%100！=0 )： days=366 else： days=365 print(days) ⑴程序运行结果是：_____。 a=88 b=48 c=a//b If c==0： c=a*10+b ． elif 1<=c<=9： c=a*100+b elif 10<=c<=99： c=a*1000+b print(c) ⑵程序运行结果是：_____。 for i in range(1，10，2)： print(iend=" ") ⑶程序段执行结果是：_____。 for i in range(1，100)： if i%3==0 and i%7==0： print(iend=" ") ⑷程序段执行的结果是：_____。 二、单选题 4.小度在学习了VB语言后，对程序设计产生了浓厚的兴趣。电脑课上，小度编写了一个如图11所示的汽车停车收费的VB程序，若停车时间在12小时以内，收费10元；停车超过12小时，则每超过1小时加收1元。聪明的你，能对小度的程序进行分析吗？ 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】 （1）.程序的第2行“time = Text1. Text”，表示可以在VB界面的文本框中输入停车时间。若小度输入的time值为8，那么应该缴纳的停车费用price的值为( )。 A. 10 B. 18 C. -4 D. '0 （2）.若小度输入的time值为16，那么应该缴纳的停车费用price的值为( )。 A. 10 B. 14 C. 0 D. -6 （3）.若小度输入的time值为-1，此时应该缴纳的停车费用price值是( )。 A. 0 B. 10 C. 编译错误 D. -12 （4）.在上小题中，虽然小度输入的时间值为负数，但程序依然显示了需要缴纳费用。为了使程序更合理，我们需要修正程序中的漏洞，让停车时间必须大于0。以下修改正确的是( )。 A. 程序的第2行，改为“time >0” B. 程序的第3行，改为“If time>0 and time <= 12 Then” C. 程序的第3行，改为“If time>0 or time <= 12 Then” D. 程序的第5行，改为“Else If time>0 or time <= 12 Then” 5.运行下面的 Visual Basic程序，单击命令按钮 Command1，出现如下图所示的提示信息：出现该错误的原因是( ) Private Sub Command1_Click() Dim a As Single， b As Single a = Val(Text1.Text) b = 10 If a >= b b = a * a + 2 * b End If Label1.Caption = Str(b) End Sub A. If语句缺少Then B. If语句缺少Else C. 变量a的数据类型说明错误 D. 变量b的数据类型说明错误 6.当在文本框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 ... ...