…………○…………外…………○…………装…………○…………订…………○…………线…………○…………※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
2.7多分支结构的应用实例一课一练
一、填空题
1.变量a，b，c分别保存一元二次方程的二次项、一次项系数和常数项（其中a≠0），变量x1和x2分别保存方程的两个根。完善下列程序，使程序运行时能根据方程的a，b，c值计算根并输出相应信息。
d＝??????
ifd0then
???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=??????
???endif
endif
2.下面的程序用于根据文本框x中输入的内容进行以下处理：
若x中的值为2，4，6，则打印“x的值为2，4，6”；
若x中的值为10到20之间的数，则打印“x的值为10~20”；
若x中的值为大于20的数，则打印“x的值大于20”；
否则，打印“x不在范围内”；
PrivateSubCommand1_Click()
???x=Val(Text1.Text)
???SelectCasex
???Case??????
???????Printx的值为2，4，6
???Case??????
???????Printx的值为10~20
???Case??????
???????Printx的值大于20
?????????
???????Printx不在范围内
???EndSelect
EndSub
3.阅读程序写结果。
year=2021
if(year%400==0)or(year%4==0andyear%100！=0)：
???days=366
else：
???days=365
print(days)
⑴程序运行结果是：________。
a=88
b=48
c=a//b
Ifc==0：
?c=a*10+b．
elif1=c=9：
?c=a*100+b
elif10=c=99：
?c=a*1000+b
print(c)
⑵程序运行结果是：________。
foriinrange(1，10，2)：
???print(iend=)
⑶程序段执行结果是：________。
foriinrange(1，100)：
?ifi%3==0andi%7==0：
?????print(iend=)
⑷程序段执行的结果是：________。
二、单选题
4.小度在学习了VB语言后，对程序设计产生了浓厚的兴趣。电脑课上，小度编写了一个如图11所示的汽车停车收费的VB程序，若停车时间在12小时以内，收费10元；停车超过12小时，则每超过1小时加收1元。聪明的你，能对小度的程序进行分析吗？
1???Dimtime,priceAsInteger???‘time代表停车时间price代表停车费用
2???time=Text1.Text???????????‘在文本框输入停车时间
3???Iftime=12Then
4???????price=10
5???Else
6???????price=10+