資源簡介

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
End If
A. 2 B. 3 C. 4 D. 程序出錯，沒有結果
7.下列Python語法表述不正確的是（ ）。
A. 在if語句和while語句中，同一層次的語句模塊每行必須是相同的縮進空格數。
B. while語句中，一般在循環體中要有改變判斷條件的語句，否則會出現“死循環”。
C. Python用不同的縮進來表達邏輯層次。
D. else后可以不加冒號。
8.在Python中輸入以下程序：
if int (input ( ) ) %5= =0:
print("yes")
if int (input ( ) ) %5!=0:
print("no")
如果輸入7，則輸出（ ）。
A. Yes B. Print C. No D. Else
9.下列程序段執行結果為 （ ）
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A. -3 3 B. 5 -9 C. 3 -3 D. -6 5
10.下圖所示的程序框圖，能判斷任意輸入的數x的奇偶性，其中判斷框內的條件是（ ）
A. m=0 B. x=0 C. m=1 D. x=1
11.下列程序運行后，變量y的值是( )。
x=10
if x<=10：
y=10*x
else：
y=x*20+10
A. 80 B. 90 C. 100 D. 210
12.運行該程序，輸入75，則輸出結果是( )。
score=int (input ("請輸入考試成績"))
if score>=90：
print("A")
elif score>=80：
print("B")
elif score>=70：
print("C")
elif score>=60：
print("D")
else：
print("E")
A. "A" B. "B" C. "C" D. "D"
13.下面程序運行的結果是( )
i=1
sum=0
while i<=20：
if I %2==0：
sum=sum-i
else：
sum=sum+i
i +=1
print (sum)
A. 1 B. 6 C. -5 D. -10
14.若整型變量a的值為3、b的值為2，則下列程序段執行后整型變量c的值為（ ）。
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
Else
if b>3 then
c=a*b
else
c= a mod b
End if
End if
A. 2 B. -2 C. 6 D. 1
15.如下一段VB程序運行后，變量a的值為（ ）。
Dim i As Integer, a As Integer
i=6
a=6
If i <6 Then
a = a +4
Else
a = a -4
End If
A. 2 B. 10 C. 6 D. 4
16.下面程序的執行結果是（ ）(提示：Print語句是表示輸出)
I=10
J=20
If I>J Then Print I Else Print J
A. 10 B. 20 C. 1020 D. 2010
17.求1-100之間所有偶數和，請補充完成方框處代碼( )。
s=0
for i in range(101)：
If :
s=s+i
print (s)
A. i//2=0 B. i%2=0 C. i%2==0 D. i//2==0
18.根據下圖回答下面小題
（1）.在Python中運行圖中的程序，得到的結果是（ ）。
A. 21 15 B. 15 21 C. 15 0 D. 0 21
（2）.題中的程序是（ ）結構。
A. 邏輯 B. 順序 C. 循環 D. 分支
（3）.Python中，（ ）一旦創建就不可修改的。
A. 列表 B. 元組 C. 字典 D. 集合
三、解答題
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*b-4*a*c；(-b - Sqr(d)) / (2 * a)；d=0；“ ”；無實根
2. Is = 2,4,6；Is > 10 ,Is < 20或者10 To 20；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 結論 籃球鞋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

展開更多......

收起↑