高中信息技術(shù)算法與程序設(shè)計(jì)練習(xí)

1、算法與程序設(shè)計(jì)練習(xí)（滿分：100分）說明：本卷分為第一卷和第二卷兩部分。第一卷為客觀題，含單 選題和判斷題，其中單選題 30小題，共45分；判斷題20小題，共 20分。第二卷為操作題，共3題，第1題15分，第2題10分，第3 題10分，共35分。一單選題1、（1.5分）下面是4位同學(xué)為解決問題編寫的程序，完全正確的是（）。同學(xué)1:某同學(xué)從17歲開始栽了 1棵樹，以后每年都比前一年多栽1 棵，他要栽夠100棵樹，最小得多少歲？程序如下：Private Sub Command1_Click（ ）Dim Age As Integer,Tree As IntegerDoAge=17Age=Age+1T

2、ree=Tree+Age （Tree應(yīng)該是樹的累加數(shù)，這樣合適嗎？）Loop Until Tree=100Print Age & 歲”End Sub同學(xué)2:計(jì)算S=1 X2刈4X567品X9的值。程序如下:Private Sub Command1_Click( )Dim S As Integer(S沒有初始值，默認(rèn)為0)For a = 1 To 10 (終值設(shè)置錯(cuò)誤)S = S * aNext aPrint S= & SEnd Sub同學(xué)3:求解方程ax+b=0。程序如下：Private Sub Command1_Click( )Dim A As Single,B As SingleInput

3、Box(A=)(從鍵盤得到的數(shù)據(jù)賦給誰了 ？)InputBox(B=)X=-B/APrint XEnd Sub同學(xué) 4:計(jì)算 S=1+(1+2)+(1+2+3)+(1+2+3+ 100)的值。程序如下:Private Sub Command1_Click()Dim i As Integer,T As Long,S As LongS=0:T=0For i=1 to 100T=T+i (T 的值為：1 + 2+3+n)S=S+TNext IPrint S=; SEnd SubA、同學(xué)1B、同學(xué)2C、同學(xué)3| D、同學(xué)42、（1.5 分）下面的4個(gè)VB程序段能使變量a、b、c的值全部相同的是（）程序

4、一：a=1:b=2:c=3a=bb=cc=a程序二:a=1:b=2:c=3 c=ac=bc=c程序三：a=1:b=2:c=3c=ab=c程序四：a=1:b=2:c=3c=a=bA、程序一 B、程序二C、程序三D、程序四3、（1.5 分）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是（）A、Caption B、名稱C、Font D、Visible4、（1.5 分）已知數(shù)組D的1到N號(hào)元素已經(jīng)賦入常數(shù)值，下面 4個(gè)程序段都把這N個(gè)常數(shù)值輸出，其中不能保證輸出的數(shù)據(jù)是由小到大的程序段是哪個(gè)？()。程序一：for i=1 to n-1Min=D :M=ifor j=i+1 to nif D(j) Min t

5、hen Min=D(j):M=jNext jk=D(i):D(i)=Min:D(M)=kNext Ifor i=1 to Nprint D ;Next i程序二：For i = 1 To n - 1For j = n To i + 1 Step -1If d(j) d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = MNext jNext ifor i=1 to Nprint D(i);Next i程序三：for i=1 to n-1for j=i+1 to nif D(j) D(i) then M=D(j):D(j)=D(i):D(i)=M

6、Next jNext ifor i=1 to Nprint D(i);Next i程序四：For i = 1 To n - 1For j = i+1 To nIf d(j) c + d And a = 5 Or Not c 0 Or d a + b And a = 5 Or Not c 0 And d 0C、a + d = 5 Or Not c 0 And d c + d And a 0 Or d 比較運(yùn)算邏輯運(yùn)算（NotAndor）10、（1.5 分）運(yùn)行如下程序段可輸出由“*組成的（）。For X = 1 To 4Print Space（4） & *Next XA、矩形B、平行四邊形C、三

7、角形D、梯形11、（1.5 分）用折半查找法（二分查找法）從數(shù)列 3, 6, 7, 10, 12, 16, 25, 30,75中找到數(shù)據(jù)25的最少查找次數(shù)是（）。A、2B、3C、4D、712、（1.5 分）如果 A=30, B=40，執(zhí)行 A=A+B:B=A-B:A=A-B 語句后,A、B 的值是（）。（交換兩個(gè)變量數(shù)據(jù)的另一方法）30、 4040、 4040、 3030、 3013、（1.5 分）用冒泡排序法對(duì)數(shù)據(jù)7, 6, 3, 9, 2從大到小排序，第2趟結(jié)果是（）。A、9,6,3,7,2B、7,9,6,3,2C、9,7,3,6,2D、9,7,6,3,214、（1.5 分）以下程序段運(yùn)行

8、時(shí)語句k=k+1執(zhí)行次數(shù)為（）次k= 20 dok=k+1 loop while (k=0)A、20B、無數(shù)次C、1D、015、(1.5 分)數(shù)列2, 4, 8, 16, 32,的遞推公式為()A、f(n)=n*2B、f(n)=f(n-1)*2C、f(n)=2MD、f(n)=f(n-1)+216、(1.5 分)下列程序段運(yùn)行后X的值是()。x = 0For i = 1 To 5For j = i To 5x = x + 1 (循環(huán)次數(shù)計(jì)數(shù)器)Next jNext iA、0B、5C、10D、1517、（1.5 分）若 X = False,執(zhí)行 If X Then X = 0 Else X = 1

9、 后 X 的結(jié)果為（）A、FalseB、編譯錯(cuò)誤C、1D、018、（1.5 分）模塊化程序設(shè)計(jì)方法反映了結(jié)構(gòu)化程序設(shè)計(jì)的（）基本思想A、自頂而下、逐步求精B、面向?qū)ο驝、自定義函數(shù)、過程D、可視化編程19、（1.5 分）程序段如下：c =1234For i = 1 To 4Print,Next如果要讓程序運(yùn)行后得到如下結(jié)果：1234 123 12 1則在下劃線處應(yīng)填入的內(nèi)容為（）。（提示：Right（x,n）:從字符串右面取n個(gè)字符，Left（x,n）:從字符串左邊取n個(gè)字符）A、Right（c,5-i）B、Left（c,5-i）C、Right（c,i-5）D、Left（c,i-5）20、（1

10、.5 分）要從n個(gè)數(shù)據(jù)元素中順序查找一個(gè)元素，最少查找次數(shù)是（）。（最多查找次數(shù)呢？）A、1B、nC、n/2D、lgn21、（1.5 分）在流程圖中表示算法中變量的計(jì)算與賦值時(shí)使用（）圖形框。A、菱形框B、矩形框C、圓形框D、平行四邊形框22、（1.5 分）VB語言中，下列各種基本數(shù)據(jù)類型說明符中表示整型數(shù)的是（）。A、IntegerB、BooleanC、SingleD、String23、（1.5 分）以下哪個(gè)是合法的變量名（）。（變量的命名約定：1、以字母或漢字開頭，不能以數(shù)字或其他字符開頭；2、只能由字母、漢字、數(shù)字俄下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符；3、字符個(gè)數(shù)不超過255個(gè)；4、

11、不能使用VB中的保留字）A、sqrB、2paiC、c+jD、abc24、（1.5 分）程序的基本結(jié)構(gòu)有順序結(jié)構(gòu)、選擇結(jié)構(gòu)和（A、邏輯結(jié)構(gòu)B、模塊結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、層次結(jié)構(gòu)25、（1.5 分）VB函數(shù)Right（）從字串右端開始取部分字串，那么Right（Visual Basic 6.0, 8）的值為（）。A、Visual BB、VisualC、Visual BaD、asic 6.0 26、（1.5 分）VB中保存窗體文件的文件擴(kuò)展名為（）A、vbpB、frmC、docD、pas27、（1.5 分）()，)o()，)o請(qǐng)按各步驟的先后順序在下列選項(xiàng)中選擇正確的答案（調(diào)試程序分析問題設(shè)計(jì)算法編寫

12、程序A、B、C、D、28、（1.5 分）程序設(shè)計(jì)語言的發(fā)展歷程中不包括（）A、機(jī)器語言B、自然語言C、匯編語言D、高級(jí)語言29、(1.5 分)）。（Mod為取余運(yùn)算）VB表達(dá)式2 * 8 Mod 12 + 4）。（Mod為取余運(yùn)算）A、8B、22C、2030、（1.5 分）下面關(guān)于算法的說法錯(cuò)誤的是（）。A、算法必須有輸出B、算法必須在計(jì)算機(jī)上用某種語言實(shí)現(xiàn)C、算法不一定有輸入D、算法必須在有限步執(zhí)行后能結(jié)束二、判斷題31、（1 分）運(yùn)行程序時(shí)，程序中的每一條語句至少運(yùn)行一次。（錯(cuò)誤。反例：注釋語句）32、（1 分）VB表達(dá)式（A + B + C）的值一定是數(shù)值型數(shù)據(jù)。（錯(cuò)誤。字符型變量也可以

13、進(jìn)行“ + ” 、“”運(yùn)算）33、（1 分）高級(jí)語言是能夠被計(jì)算機(jī)直接接受和執(zhí)行的計(jì)算機(jī)語言（錯(cuò)誤。只有機(jī)器語言才能被計(jì)算機(jī)直接接受和執(zhí)行）34、（1 分）機(jī)器語言是程序設(shè)計(jì)的核心，是程序設(shè)計(jì)的靈魂。（錯(cuò)誤。算法+數(shù)據(jù)結(jié)構(gòu)=程序）35、（1 分）列舉一切與命題相關(guān)的情況，然后根據(jù)問題設(shè)定的條件，逐個(gè)加以檢 查，找到滿足條件的解答的方法稱為遞歸算法。（錯(cuò)誤。這是“窮舉法”的基本思想）36、（1 分）在程序循環(huán)結(jié)構(gòu)中必須設(shè)定終止循環(huán)的條件，否則會(huì)出現(xiàn)死循環(huán)。（錯(cuò)誤。終值條件一定要有，但不一定明確“設(shè)定” ，如，F(xiàn)or/Next 循環(huán)）37、（1 分）VB中的事件驅(qū)動(dòng)就是當(dāng)應(yīng)用程序中某對(duì)象的特定事件

14、發(fā)生時(shí)，通過 執(zhí)行一段程序代碼，來完成該特定事件所對(duì)應(yīng)的操作。38、（1 分）對(duì)一個(gè)排好序的數(shù)組來說，要查找一個(gè)元素，可以用順序查找法，也 可以用二分查找法，其中二分查找一定比順序查找快。（錯(cuò)誤。不同的查找方法解決不同的問題，效率高低并不絕對(duì)）39、（1 分）遞歸過程一般通過函數(shù)或子過程來實(shí)現(xiàn)。40、（1 分）對(duì)于多種情況的選擇問題，只能采用多重選擇語句來處理，不能使用 條件語句。（錯(cuò)誤?？梢圆捎肐f語句的嵌套）41、（1 分）通過分析問題中各要素之間的關(guān)系，用最簡(jiǎn)練的語言或形式化的符號(hào) 來表達(dá)它們的關(guān)系，得出解決問題所需的表達(dá)式，然后設(shè)計(jì)程序求解 問題的方法稱為解析法。42、（1 分）在VB

15、程序設(shè)計(jì)中，方法對(duì)應(yīng)于對(duì)象內(nèi)部的一段程序代碼，既可能是一個(gè)函數(shù)，也可能是一個(gè)過程。43、（1 分）控件是應(yīng)用程序的圖形用戶界面中顯示可供用戶操縱，并可控制應(yīng)用程序的圖形界面元素，是 VB可視化編程的基本操作對(duì)象。44、（1 分）多重循環(huán)的原則是：外層循環(huán)與內(nèi)層循環(huán)不必層層相套， 循環(huán)體之間 可以交叉。（錯(cuò)誤。外循環(huán)必須完全包含內(nèi)循環(huán)，也就是說內(nèi)外層Next語句的位置不能交叉）45、（1 分）VB中所有對(duì)象的屬性只能在屬性窗口中設(shè)定。（錯(cuò)誤。可以在程序中設(shè)定。如：修改 command1的caption屬性為“計(jì)算”可以用comand1.caption= 計(jì)算”實(shí)現(xiàn)）46、（1 分）在程序設(shè)計(jì)中容

16、易出現(xiàn)的錯(cuò)誤主要有：編輯時(shí)出現(xiàn)的錯(cuò)誤、編譯時(shí)出現(xiàn)的錯(cuò)誤、運(yùn)行時(shí)的錯(cuò)誤和邏輯錯(cuò)誤。47、（1 分）已知三角形的兩邊分別為a、b,它們的夾角為60度，圓周率取3.14, 在VB中可用公式（a * b * Sin（60 * 3.14 / 180） / 2）求出該三角形的面 積。48、（1 分）在VB中，可將調(diào)試好的程序編譯生成能夠脫離VB集成環(huán)境在Windows平臺(tái)上獨(dú)立運(yùn)行的可執(zhí)行文件。49、（1 分）在VB中，Int（100 * Rnd + 1）的取值范圍是1100之間的所有實(shí)數(shù)（包括1和100）（錯(cuò)誤。是“整數(shù)”而不是“實(shí)數(shù)”）50、（1 分）算法是有限步驟內(nèi)求解問題所使用的一組定義明確的規(guī)則

17、。三、操作題51、（15 分）有一數(shù)歹U A1、A2、A3、A4、A5、，已知 A1=0、A2=1、A3=1、A4=A1+2*A2 +A3、A5=A2+2*A3+A4、，依此類推編程輸出第23項(xiàng)的值。Private Sub Command1_Click()Print f(23)End SubPrivate Function f(n As Integer) As SingleIf n = 1 Thenf = 0ElseIf n = 2 Or n = 3 Thenf = 1Elsef = f(n - 3) + 2 * f(n - 2) + f(n - 1) End IfEnd IfEnd Func

18、tion52、(10 分)編程求12709到45368之間有多少個(gè)其各位數(shù)字之和為 5的倍數(shù)的正 整數(shù)。Private Sub Command1_Click()s = 0For i = 12709 To 45368a = Int(i / 10000)b = Int(i - a * 10000) / 1000)c = Int(i - a * 10000 - b * 1000) / 100)d = Int(i - a * 10000 - b * 1000 - c * 100) / 10)e = i - a * 10000 - b* 1000 - c* 100 - d * 10If (a + b + c + d + e) Mod 5 = 0 Then s = s + 1NextPrint sEnd Sub53、(10 分)已知三角形的兩邊分別為13、17,它們的夾角為36度，圓周率取3.14,編程求該三角形的面積(精度：四舍五入保留小數(shù)點(diǎn)后6位)。Private Sub Command1_Click()Print (13 * 17 * Sin(36 * 3.14 / 180) / 2)End Sub參考答案單選題:123456789101112131415DCADABCDCAACCCC16171819202122232425262