1、信息技術學業水平算法模擬題分析題部分1、閱讀程序，寫出運行結果Dim a(10) As IntegerDim i As Integera(1)=1a(2)=1For i=3 To 6a(i)=a(i-1)+a(i-2)Next iPrint a(6)上述程序運行后，輸出 a(6) 的值是 (6 分)2 、分析并完善程序以下是計算s=1*2*3*10的程序代碼，請補全程序。(6分)Dim s As LongDim i As Integers=For i=1 To 10s=Next iPrint s3 、算法設計與程序實現勾股數勾股數是指滿足條件 a2+b 2=c 2的自然數，求出 100 以內滿

2、足 a<b 的所有勾股 數。【算法分析】a 的取值范圍 1,100;b 的取值范圍 1,100;c 的取值范圍 1,100.【參考程序】Dim a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100For c=1 To 100If ThenPrint a;b;cabc 之間以分號分隔End IfNext cNext bNext（1）本題采用的算法是 （填寫：解析法/枚舉法/排序法 /遞歸法）（ 2 ）程序代碼中空白處應填寫的條件是 （填寫字母：A/B/C/D ）2 2 2A、a<b And a

3、 2+b 2=c 2B、a<b Or a 2+b 2=c 2C、a<b And aA2+bA2=cA2D、a<b And &八2+匕人2=。八24 、閱讀程序，寫出運行結果Dim s As IntegerDim i As Integers=0For i=1 To 10 Step 4Print “# ” s=s+iNext iPrint s上述程序運行后，輸出“ # ”的個數是 ；輸出 s 的值是 。（共 6 分，每空 3 分）5、閱讀程序，寫出運行結果Dim a As IntegerDim b As IntegerDim r As Integera=98b=63r=a

4、 mod bDo While r<>0a=bb=rr=a Mod bLoopprint b程序運行后，輸出結果為： 。（ 6 分）6、算法設計與程序實現換錢問題要將一張 100 元的鈔票，換成等值的 5 元、 2 元、1 元一張的鈔票共 50 張。其中一種換發如下：5 元：3 張 2 元： 38 張 1 元：9 張 求出所有的換錢方案。 【算法設計】x表示5元的張數：1 < x < 20;y表示2元的張數：1 < y < 50;z表示1元的張數：1 <z < 100.【參考程序】Dim x As IntegerDim y As IntegerDi

5、m z As IntegerFor x=1 To 20For y=1 To 50For z=1 To 100IfThenPrint x;y;zEnd ifNext zNext yNext x根據上述回答下列問題：（8分，每空4分）（1）本題采用的算法是遞歸法）。（2）程序代碼中空白處應填寫的條件是 A、5x + 2y + z=100 Or x + y + z = 50B、5x + 2y + z=100 And x + y + z = 50C、5*x + 2*y + z=100 Or x + y + z = 50y z之間以分號分隔（填：解析法/枚舉法/排序法/（填寫字母：A/B/C/D ）。7

6、、分析并完善流程圖D、5*x + 2*y + z=100 And x + y + z = 50執行流程圖，當輸入x的值為4時，輸出y的值為2，則菱形判斷框中的條件可能為 （填寫字母：A/B/C/D 6 分）B、x>4A、x>3C、 x<=4D、x<=58、分析并完善程序以下是計算s=12+22+32+1002 的程序代碼，請補全程序。（共6分，每空3分）Dim s As LongDim i As In tegers=0For i=1 To 100s=s+Print s9、算法設計與程序實現十進制整數轉換為二進制整數采用“除 2取余”法。算法描述第1步：輸入一個十進制正整

7、數n ;第2步：將n除以2，記錄余數r ；第3步：將r追加到字符串s的左邊（s用于記錄轉換后的二進制數，初值為 空）;第4步：將n除以2的商賦給n ;第5步：若n為0，則轉到第6步；若n不為0，轉到第2步；第6步：輸出s （即逆序輸出每一次的余數）。舉例說明界面設計OBS對應的變化* 一2|131EE2Q231401河廣'工訓氐莽竝將一個十進制數13轉換為二進制二鼻蹄滋【參考程序】Dim s As Stri ngDim n As In tegerDim r As In tegera »s=記錄轉換后的二進制數記錄十進制正整數n記錄n除以2的余數'S己錄轉換后的二進制數

8、，初值為空n=Val(Text1.Text)Do While n>0r=s=r & sn=LoopText2.Text=s（1）、上述算法描述采用的方法是： （填：自然語言/偽代碼/流程圖）。（2分）（2、在參考程序處應填入 （填寫字母：A/B/C/D ）。（3分）A、n Mod 2B、n 2C、2 Mod nD、n / 2（3、在參考程序處應填入 （填寫字母：A/B/C/D ）。（3 分）A、n Mod 2B、n 2C、2 Mod nD、n / 210 、閱讀程序，寫出運行結果Dim n As Integer n=Val（InputBox（“ n= ” ）Do While n

9、Mod 2=0n=n2LoopPrint n程序運行時，輸入 24，輸出 n 的值是： （提示： 整除運算 如：172=8 ； Mod 取余數運算如：17 mod 2 =1）11 、分析并完善程序以下是計算s=1+6+11 +101的程序代碼，請完善程序。Dim s As IntegerDim i As Integers=0For i=1 To 101 Steps=Next iPrint s12 、算法設計與程序實現 某市出租車收費標準如下：（1 ） 3 公里內（含 3 公里），收費 8 元；（2）超過 3 公里但未超過 6 公里部分，按 1.5 元/公里收費；（3）超過 6 公里部分，按 2

10、.25 元/ 公里收費。 根據以上標準，輸入出租車行駛的公里數，請計算顧客需付費多少元？ 【參考代碼】Dim s As SingleDim p As Singles=Val（InputBox（“ s=” ）If s<=3 Thenp=8End IfIf Thenp=1.5*（s-3）+8End IfIf s>6 Thenp=2.25*（s-6）+1.5*3+8End IfPrint p根據上述回答下列問題：（1）、本題采用的算法是 （填寫：解析法 /查找法 /枚舉法 /排序法）（ 2 ）、程序代碼中空白處應填寫的條件是 （填寫字母：A/B/C/D ）.A、3<s 三6B、3三

11、s三6C、s>3 And s<=6D、s>3 Or s<=613 、閱讀下列程序，寫出運行結果（ 6 分）S=0For i=1 to 3For j=1 to 5S=s+1Next jNext iPrint s上述程序運行后 s 的輸出值是 （6分）14 、算法設計與程序實現假設公雞一只 5 錢，母雞一只 3 錢，小雞一錢 3 只。現用 100 錢來買 100 只 雞。問：公雞、母雞、小雞各買多少只？（要求公雞、母雞、小雞都是整數） 設計算法并編寫程序輸出所有的買雞方案Dim x As Integer , y As Integer , z As IntegerFor x=

12、0 To 20For y=0 To 33For z=0 To 99 Step 3If ThenPrint “公雞： ” x, “母雞： ”y, ”小雞： ” zExit ForEnd IfNext zNext yNext xEnd Sub【算法設計】根據上述回答如下問題（共 8 分，每題 4 分）（1）、本題采用的算法是 （填寫：解析法 /枚舉法/排序法 /遞歸法）（2）、程序代碼中空白處應填寫的條件是 （填： A/B/C/D ）A、 x + y + z=100AND 5x+3y+z/3=100B、 x + y + z=100OR 5x+3y+z/3=100C、 x + y + z=100AN

13、D 5*x+3*y+z/3=100D、 x + y + z=100OR 5*x+3*y+z/3=10015 、補全程序數列問題已知包含25項的數列：1,2/3,3/5,24/47,25/49問題 1 ：寫出該數列的通項公式 f（n）= 。（3 分）問題2 :以下是計算s=1+2/3+3/5+24/47+25/49的程序，請補全代碼：Dim i As In tegerDim s As Si ngles=0For i=1 to 25s=s+(3分)Next iPrint s= ”，s16、求三角形面積已知a、b、c分別為三角形的三條邊長，利用海倫公式求該三角形面積p=(a+b+c)/2S = yj

14、p(p - a)(p - b)(p - c編程實現：輸入邊長 a，b，c,如果能構成三角形，輸出面積，否則輸出“NoAnswer! ”界面如下：(8分)Dim a As Si ngle , b As Si ngle , c As Si nglea=val(text1.text)b=val(text2.text)c=val(text3.text)If () thenp=(a+b+c)/2s=sqr(p*(p-a)*(p-b)*(p-c)text4.text=format(s,”0.00 ”)結果保留兩位小數Elsetext4.text=”no answer ”End If根據上述回答下列問題(8

15、分，每空4分)(1)、利用海倫公式求三角形面積的算法是 (填寫：解析法/查找法/枚舉法/排序法）。（2）、填寫出參考程序中空白處的表達式 （填寫字母：A/B/C/D ）A、a +b > cora + c > bandb + c > aB、a +b > cora + c > bor b+ c > aC、a +b > canda + c > borb + c > aD、a +b > canda + c > bandb + c > a17、閱讀卜列程序，寫出運行結果6分）Dim S As in tegerDim k As in

16、tegerS=0For k=1 to 6 step 2S=S+kNext kPrint s輸出s的值是（6 分）18、閱讀下列程序，寫出運行結果（6分）當輸入x=8,y=10 時，輸出x=,y= 。（共6分，每空3分）19、人口增長問題假設我國目前人口數為13億，如果每年增長率為1.2%，填寫程序，計算多少年后我國人口數超過20億。【算法分析】Dim p as si ngleDim r as si ngleDim n as in tegerP=13r=0.012n=0Do whilen=n+1p=p*（1+r）LoopPrint n: ”年后”：”人口超過”：p根據上述回答下列問題（8分，每空

17、4分）（1 ）、本題采用的算法是 （填寫：解析法/枚舉法/遞歸法）（2）、寫出參考程序中空白處表達式 20、分析完善程序求 s=3+6+9+300 值。解決該問題，可以采用如下兩種不同的方法：方法1:方法2：Dim s as itktegerDun sas integerDxni i as inteecrDim 4 as turegcrs=aS=<KFar 產| 詢 1QQ-For 1=3 to 300 step$=s+ (I) * -Next j ”Nexi i Prmt 4Prini $ *請補充完成上述程序：（1） （2）（分，每空4分）21、閱讀下列程序，寫出運行結果（4分）Di

18、m a（10） As In tegerDim i as In tegerDim S as In tegerFor i=1 To 5a(i)=i*1Next iS=a (3)+a Print s上述程序運行后，變量S的值是22、 以下是計算S=1-2+3-4+5+99-100程序代碼，請補全程序Dim S as in tegerDim i as in tegerS=0For i=1 to 100If i mod 2=1 the nS=ElseS=End IfNext iPrint s= ”；s23、閱讀下列流程圖，寫出結果當輸入X=1時，輸出n的值=24、分析解決問題：有一張單據，編號為四位數，

19、號碼為：80,中間兩位被污濁看不出來 已知該單據能夠被23和37整除，請編程求出該單據號碼【算法設計】設百位數字為x，十位數字為y，x和y的范圍都是0到94 位數 8xy0=8*1000+x*100+y*10列舉里的兩個數字所有可能情況；00,01,02 ，03,04,05,06,07,08,0910,11,12,13,14,15,16,17,18,1990,91,92 ，93,94,95,96,97,98,99逐一判斷找出符合條件的數字【參考代碼】：Dim x as longDim y as longDim n as longFor x=0 to 9For y=0 to 9n=8*1000+

20、x*100+y*10If thenPrint nEnd IfNext yNext x根據上述回答下面問題（1 ）、解決該問題采用的算法是： （填：解析法/枚舉法/排序法/遞歸法）（2）、根據題意程序中的空白處應該填寫： （填：A/B/C/D ）A、n mod 23=0 OR n mod 37=0B、n23=0 AND n37=0C、n23=0 OR n37=0D、n mod 23=0 AND n mod 37=0、根據算法設計，參考程序中循環體中的語句“n=8*1000+x*100+y*10”一共重復執行了多少次。 。25、銀行存錢假設銀行的年存儲利率為3%，如果現在存儲10000元錢，問多少

21、年后連本帶 利超過12000元。設定：連本帶利=本金* （1+利率）八年數【算法分析】假設n年后連本帶息超過12000，根據題意得出數學關系式：10000*（1+3% ） An>12000, 求最小的 n【參考程序】Dim S As Si ngleDim r As Si ngleDim n As In tegerS=10000r=0.03n=0Do while n=n+1S=S*（1+r）LoopPrint n ; ”年后”;”連本帶利超過”;S26、分析解決問題學校舉行校園歌手大賽，評委由 6人組成。評分方法：去掉一個最高分和一個 最低分，計算其余4位評委的平均分，作為選手的最終得分。

22、max記錄最高分min記錄最低分S記錄六位評委的總分Aver記錄最終得分第1步：從文本框中分別讀入 6位評委的打分并依此存入到 a（ 1 ）至a（6） 中：第2步：將第1位評委的打分a（ 1 ）分別賦給最高分max，最低分min和總 分S第3步：利用循環結構把另外5位評委的打分累加給S從而求出6位評委的總 分S，同時把5位評委的打分與max和min進行比較，得出6位評委中的最 高分 max和最低分min第4步從總分S中去掉最高分max和最低分min，求出其他4位評委的平均 分aver作為選手的最終得分。下列程序代碼片段對應于算法描述中的第2步至第4步。請填寫片段內空白處的表達式Max=a （

23、1）Min=a （ 1）S= a （1）For i = 2 To 6S=S + a （ i）If a （ i）max Then max=a（i）If a （ i）min then min=a（i）Next iAver=/4計算出選手的最終得分 aver27、閱讀下列程序，寫出運行結果Dim i as in tegerDim s as in tegerDim n as in tegern=30s=0For i=2 to n-1If n mod i=0 the n s=s+in ext IPrint s程序運行后輸出s的值是28、算法設計與程序實現判斷車牌的單雙號【背景知識】為了保障空氣質量，減少霧霾，某市決定當空氣污染嚴重時，實行汽車單雙號限 行，違反規定的車輛將予以處罰。如何讓高清攝像頭自動判斷車牌的單雙號，交警犯了愁，他需要編程高手的你幫 忙，完善下面的程序。（提示：（1）所有車牌號中都含有數字，并且車牌號的長 度都是6 ；（2）以車牌中最后一位阿拉伯數字的奇、偶來判定單雙號。請根據上 述算法描述補全代碼）Dim n As In tegerDim s As String'定義s為字符串類型Dim x As Stri ngs=InputB