浙教版（2020）信息技術(shù)八上 2.7 多分支結(jié)構(gòu)的應(yīng)用實(shí)例 一課一練（含答案）

1、2.7多分支結(jié)構(gòu)的應(yīng)用實(shí)例一課一練一、填空題1.變量a，b，c分別保存一元二次方程的二次項(xiàng)、一次項(xiàng)系數(shù)和常數(shù)項(xiàng)（其中a0），變量x1和x2分別保存方程的兩個(gè)根。完善下列程序，使程序運(yùn)行時(shí)能根據(jù)方程的a，b，c值計(jì)算根并輸出相應(yīng)信息。 dif d0 then x1= (-b + Sqr(d) / (2 * a) x2= text4.text=str(x1) text5.text=str(x2) label6.caption=“有兩個(gè)不同的實(shí)數(shù)根”else if then x1(-b)/(2*a) x2=x1 text4.text=str(x1) text5.text=str(x2) label6

2、.caption=“有兩個(gè)相同的實(shí)數(shù)根” else text4.text= text5.text= label6.caption= end ifend if2.下面的程序用于根據(jù)文本框x中輸入的內(nèi)容進(jìn)行以下處理： 若x中的值為2，4，6，則打印“x的值為2，4，6”； 若x中的值為10到20之間的數(shù)，則打印“x的值為1020”；若x中的值為大于20的數(shù)，則打印“x 的值大于20”；否則，打印“x不在范圍內(nèi)”； Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Print x的值為2，4，6 Case Prin

3、t x的值為1020 Case Print x的值大于20 Print x不在范圍內(nèi) End SelectEnd Sub3.閱讀程序?qū)懡Y(jié)果。 year=2021if (year%400=0) or ( year%4=0 and year%100！=0 )： days=366else： days=365print(days)程序運(yùn)行結(jié)果是：_。a=88b=48c=a/bIf c=0： c=a*10+b elif 1=c=9： c=a*100+belif 10=c=99： c=a*1000+bprint(c)程序運(yùn)行結(jié)果是：_。for i in range(1，10，2)： print(iend=

4、 ) 程序段執(zhí)行結(jié)果是：_。for i in range(1，100)： if i%3=0 and i%7=0： print(iend= )程序段執(zhí)行的結(jié)果是：_。二、單選題4.小度在學(xué)習(xí)了VB語(yǔ)言后，對(duì)程序設(shè)計(jì)產(chǎn)生了濃厚的興趣。電腦課上，小度編寫了一個(gè)如圖11所示的汽車停車收費(fèi)的VB程序，若停車時(shí)間在12小時(shí)以內(nèi)，收費(fèi)10元；停車超過(guò)12小時(shí)，則每超過(guò)1小時(shí)加收1元。聰明的你，能對(duì)小度的程序進(jìn)行分析嗎？ 1 Dim time, price As Integer time代表停車時(shí)間price代表停車費(fèi)用2 time = Text1. Text 在文本框輸入停車時(shí)間3 If time 0”B.

5、程序的第3行，改為“If time0 and time 0 or time 0 or time = b b = a * a + 2 * b End If Label1.Caption = Str(b)End SubA.If語(yǔ)句缺少ThenB.If語(yǔ)句缺少ElseC.變量a的數(shù)據(jù)類型說(shuō)明錯(cuò)誤D.變量b的數(shù)據(jù)類型說(shuō)明錯(cuò)誤6.當(dāng)在文本框Text1中輸入3時(shí)，執(zhí)行下面的程序后，Y的值是（ ） x=Val(Text1. Text)If x=2 Theny=2ElseIf x0 Then x=y-3 Else y=x+3 Print x-y; y-x A.-3 3B.5 -9C.3 -3D.-6 510.

6、下圖所示的程序框圖，能判斷任意輸入的數(shù)x的奇偶性，其中判斷框內(nèi)的條件是（ ） A.m=0B.x=0C.m=1D.x=111.下列程序運(yùn)行后，變量y的值是( )。 x=10if x=90： print(A)elif score=80： print(B)elif score=70： print(C)elif score=60： print(D)else： print(E)A.AB.BC.CD.D13.下面程序運(yùn)行的結(jié)果是( ) i=1sum=0while i5 then if b3 then c=a*b else c= a mod b End ifEnd ifA.2B.-2C.6D.115.如下一

7、段VB程序運(yùn)行后，變量a的值為（ ）。 Dim i As Integer, a As Integeri=6a=6 If i J Then Print I Else Print JA.10B.20C.1020D.201017.求1-100之間所有偶數(shù)和，請(qǐng)補(bǔ)充完成方框處代碼( )。 s=0for i in range(101)： If : s=s+iprint (s)A.i/2=0B.i%2=0C.i%2=0D.i/2=018.根據(jù)下圖回答下面小題 （1）.在Python中運(yùn)行圖中的程序，得到的結(jié)果是（ ）。 A.21 15B.15 21C.15 0D.0 21（2）.題中的程序是（ ）結(jié)構(gòu)。

8、A.邏輯B.順序C.循環(huán)D.分支（3）.Python中，（ ）一旦創(chuàng)建就不可修改的。 A.列表B.元組C.字典D.集合三、解答題19.近年來(lái)網(wǎng)絡(luò)技術(shù)的迅猛發(fā)展，網(wǎng)絡(luò)購(gòu)物已經(jīng)成為當(dāng)下最熱門的購(gòu)物渠道。小明同學(xué)在網(wǎng)購(gòu)平臺(tái)上看中了五雙運(yùn)動(dòng)鞋，想在這五雙中選擇一雙購(gòu)買（原價(jià)和折扣詳見(jiàn)商品折扣表）。但是小明的預(yù)算是不超過(guò)200元，更省錢最好，請(qǐng)你為小明設(shè)計(jì)一款軟件，選擇購(gòu)買哪一雙運(yùn)動(dòng)鞋最實(shí)惠。 商品折扣表：商品名稱原價(jià)折扣力度籃球鞋001488元4折籃球鞋002458元5折跑步鞋001398元5折跑步鞋002358元6折徒步鞋001339元6折軟件設(shè)計(jì)要求：（如圖） 新建一個(gè)VB工程，完成“折扣商品計(jì)算

9、器”程序的設(shè)計(jì)。將工程文件以sale.vbp、窗體文件以sale.frm保存到考試目錄“操作題”下；窗體的標(biāo)題為“折扣商品計(jì)算器”；窗體的左邊有三個(gè)標(biāo)簽，Label1的屬性為“商品原價(jià)a:”、Label2的屬性為“折扣力度b:”、 Label3的屬性為“折后價(jià)格c:”；它們的旁邊分別有三個(gè)文本框，Text1用于商品原價(jià)、Text2用于輸入折扣力度、Text3用于輸出折后價(jià)格；在文本框的右邊有三個(gè)標(biāo)簽，Label4的屬性為“元”、Label5的屬性為“折”、 Label6的屬性為“元”； 單擊“計(jì)算”按鈕(Command1)，根據(jù)計(jì)算公式將相應(yīng)的提示信息顯示在標(biāo)簽Text3中；計(jì)算公式為：折后價(jià)

10、格=商品原價(jià)*折扣力度；如果折后價(jià)格不高于200元，MsgBox函數(shù)提示“可以購(gòu)買！”；如果折后價(jià)格高于200元，MsgBox函數(shù)提示“對(duì)不起！買不起，請(qǐng)您放棄！”。請(qǐng)編程實(shí)現(xiàn)。結(jié)論：最適合小明的運(yùn)動(dòng)鞋是什么。請(qǐng)?zhí)顚懮唐访Q20.設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面自己設(shè)計(jì)，由四個(gè)文本框：文本框1（text1，語(yǔ)文）、文本框2（text2，數(shù)學(xué)）、文本框3（text3，英語(yǔ)）、文本框4（text4，平均分），和三個(gè)按鈕：命令按鈕1（command1，清空）、命令按鈕2（command2，計(jì)算）、命令按鈕3（command4，退出）組成。程序運(yùn)行后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計(jì)算按

11、鈕，則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。 答案解析部分一、填空題1. b*b-4*a*c；(-b - Sqr(d) / (2 * a)；d=0；“ ”；無(wú)實(shí)根 2. Is = 2,4,6；Is 10 ,Is 20；Case Else 3. 365；8848；1 3 5 7 9；21 42 63 84 二、單選題4. （1）A（2）B（3）B（4）B 5. A 6. B 7. D 8. C 9. A 10. C 11. C 12. C 13. D 14. D 15. A 16. B 17. C 18. （1）B（2）D（3）B 三、解答題19. 4 結(jié)論籃球鞋001完整程序：寫法1：Priv

12、ate 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 (對(duì)不起！買不起，請(qǐng)您放棄！ ) Else MsgBox (可以購(gòu)買！) End IfEnd Sub20. 解：程序參考： Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click() I