歷年算法與程序設(shè)計學(xué)業(yè)水平考試真題帶答案

1、、選擇題1、流程圖是描述的常用方式.A、程序B、算法2、下面不屬于算法描述方式的是.A、自然語言B、偽代碼3、以下運算符中運算優(yōu)先級最高的是A、+B、人4、某程序中三個連續(xù)語句如下：a=1b=2c=b+aA、順序結(jié)構(gòu)B、選擇結(jié)構(gòu)5、窮舉法的適用范圍是A、一切問題C、解的個數(shù)有限且可一一列舉C、數(shù)據(jù)結(jié)構(gòu)D、計算規(guī)那么C、流程圖D、機器語言.C、 >=D、 *它屬于C、循環(huán)結(jié)構(gòu)D、以上三種都不是B、解的個數(shù)極多的問題D、不適合設(shè)計算法6、在現(xiàn)實生活中,人工解題的過程一般分為A、理解分析問題一尋找解題方法一用工具計算一驗證結(jié)果B、尋找解題方法一理解分析問題一用工具計算一驗證結(jié)果 C、用工具計算

2、一驗證結(jié)果一尋找解題方法一理解分析問題 D、用工具計算一驗證結(jié)果一理解分析問題一尋找解題方法7、以下關(guān)于算法的特征描述不正確的選項是A、有窮性：算法必須在有限步之內(nèi)結(jié)束C、輸入：算法必須至少有一個輸入8、以下哪一個不是用于程序設(shè)計的軟件A、BASICB、C 語言B、確定性：算法的每一步必須確切的定義D、輸出：算法必須至少有一個輸出C、WordD、Pascal9、以下可以作為合作變量名的是A、a7B、7aC、a-3D、810、編程求1+2+3+ 1000的和,該題設(shè)計最適合使用的限制結(jié)構(gòu)為A、順序結(jié)構(gòu) B、分支結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、選擇結(jié)構(gòu)11、以下步驟不屬于軟件開發(fā)過程的是A、任務(wù)分析與系統(tǒng)設(shè)計

3、B、軟件的銷售C、代碼編寫與測試 D、軟件測試與維護12 .以下程序段運行時,語句 k=k+1執(zhí)行的次數(shù)為次.k=-10 do k=k+1 loop while untilk=0A. 9 B. 10C. 11 D.1213 .x=6, y=5,那么以下運算結(jié)果為True的是A. Notx>y B. x<5ory>6 C. x>=6Andy>=5 D. Notx>414 .模塊化程序設(shè)計方法反映了結(jié)構(gòu)化程序設(shè)計的根本思想.A、自頂向下,逐步求精B、面向?qū)ο?C、自定義函數(shù)、過程D、可視化編程15、一位同學(xué)想編程解決韓信點兵的問題,他制定的如下工作過程中,最恰當(dāng)

4、的是A、設(shè)計算法,編寫程序,提出問題,運行程序,得到答案日分析問題,編寫程序,設(shè)計算法,運行程序,得到答案C分析問題,設(shè)計算法,編寫程序,運行程序,得到答 案D設(shè)計算法,提出問題,編寫程序,運行程序,得到答案16、交換變量A和B,語句為A. A=B;B=C;C=A B. C=A;A=B;B=CC. A=B;B=AD. C=A;B=A;B=C17 .執(zhí)行以下程序段后,變量 y的值為 x=3 : y=7Do While x < Sqry x = x + 2LoopA、7 B、8 C、10 D、918 .在VB程序設(shè)計中交換變量 x和y的值,應(yīng)使用的賦值語句是A、t = x : y=x : y

5、=t B、x=y : y=t : t=x C、x=y : y=x D、t=x : x=y : y=t19 .以下程序執(zhí)行后 A、B的值是A = 5B = 6 A = B : B = A : A = BA、5、6 B、6、6C、6、5 D、5、520 .流程圖中表示判斷框的是A、銀形框 B、菱形框C、圓形框D、橢圓形框21 .以下描述中最適合用計算機編程來處理的是.A、確定放學(xué)回家的路線B、計算某個同學(xué)期中測試各科成績局部C、計算100以內(nèi)的奇數(shù)平方和D、在因特網(wǎng)上查找自己喜歡的歌曲22 .以下程序執(zhí)行后 A、B的值是.A=30B=40A=A+B : B=A-B : A=A-BA、30、40 B

6、、40、40C、40、30D、30、3023 . VB語言中,以下各種根本數(shù)據(jù)類型說明符中表示整型數(shù)的是.A、Boolean B、IntegerC、SingleD、String24 .執(zhí)行以下程序段后,變量 x的值為.x =3 : y = 77 Do While x < Sqr y x = x + 2LoopA、7B、8C、10 D、925.下面是用 VB編寫的求1 + 1/2 + 1/3 +1/1皿程序,該程序循環(huán)終止時i的值是多少?Private Sub Form_Activate()Dim i As Integer , sum As Integer sum = 0For i = 1

7、 To 100sum = sum + 1/iNext iPrint " sum =" ; sumEnd SubA、i = 102 B、i = 100C、i = 101D、無法判斷26、由語句：Dim K11 As Long,判斷以下結(jié)論中錯誤的選項是.A、語句定義了數(shù)組 K,它的下標是從0到11B、數(shù)組K共有12個分量C、數(shù)組K的各個分量都是長整型數(shù)D、數(shù)組K的各個分量的值將按從小到大的順序自動排列27、以下是合法變量名的是：A、a-3 B、7C、a$ D、text728、以下不屬于算法根本特征的是.A、可執(zhí)行性B、確定性C、有窮性 D、無限性29、用計算機程序解決問題時,

8、調(diào)試程序和檢測結(jié)果的目的是A、前者用于檢查語法是否正確,后者檢查能否按要求完成任務(wù) B、前者檢查算法是否正確,后者檢查是否有語法錯誤C、前者用于檢查語法是否正確,后者檢查是否有病毒D、兩者無區(qū)別30、下面屬于邏輯運算符的是A、orB、FalseC、True D、<>31、以下程序段運行后,變量 max的值為 .a = 5b = 10max = aIF b > max Then max = bA、5B、10C、5和10 D、其他三項都不是32、以下屬于程序的根本限制結(jié)構(gòu)的是A、星形結(jié)構(gòu)B、選擇結(jié)構(gòu)C、網(wǎng)絡(luò)結(jié)構(gòu) D、平行結(jié)構(gòu)二、程序分析題1、Private SubForm_Act

9、ivate()Dim a, b, cAs Integera = 15: b = 60: c = 38 If a < b Thenm = aElsem = bEnd IfIf m > c Then m = cEnd IfPrint "M=" mEnd Sub運行Z果:M=152、Private Sub Form_Load()Dim X As Integer, Y As IntegerTextl.Text =""X = 99: Y = 98: M = XIf X < Y ThenM = YEnd IfTextl.Text = MEnd Su

10、b運彳丁Z果:993、用程序?qū)崿F(xiàn)函數(shù)：y=|x|Private Sub Form_Load()Dim X AS Integer, Y AS IntergerText1.Text=" X=InputBox( X=?") if_x>=0 _ thenY=XElse_ Y=-X End IfText1.Text=Y End Sub4、計算1+2+3+100的值.Private Sub Form_Activate() Dim i, s AS Integer s=0For i=1 TO _100 step 2s=一 s+iNext iPrintS=" sEnd Sub

11、5、計算1+3+5+99的值.Private Sub Form_Activate() Dim i, s AS Integer s = 0 for i =1 to 99 Step 2 s = s+iNext i PrintS="sEnd Sub6、分析程序,寫出計算結(jié)果Private Sub Form_Activate() Dim i,S as integer S=1 For i=1 to 4 S=S*i Next iPrint" S= ;SEnd Sub 運行結(jié)果：S=247、計算1 + 1/2+1/50的值.Private Sub Form_activate() Dim

12、i,s as integer s=0Next iPrint " S=" ;sEnd Sub8、分析程序,寫出計算結(jié)果Private Sub Form_Activate() Dim I As Integer, S As IntegerS = 0For I = 2 To 6S = S + INext IPrint "S=" SEnd Sub運行結(jié)果：S=209. p=1 For i=1 to 5 P=P+i next i print "I,P分別為： ；i,p 輸出：I, P分別為：_6,16 10. Sum=0 For i=1 To 100 su

13、m=sum+2 Next i print" Sum= ; sum輸出： Sum=200101 )11 .下面是1+1/2+1/3+1/100的和的程序,該程序循環(huán)終止時i的值是多少(sum=0 For i=1 To 100 sum=sum+1/i next i12 . a=1;b=0 Do while a<=5 b=b+a*a a=a+1 Loop Print a, b 屏幕上顯示的內(nèi)容是：_6_ , _55_13 .完善程序,打印如以下列圖形 * * * * * *For I = 1 To 6For j = 1 To i Print "*" Next j

14、Print Next i14 .執(zhí)行以下程序段后,變量 x的值為：9x=3;y=77DO WHILE x<sqr(y) x=x+2LOOP15 . p = 0: n = 5 For I = 1 To n p = p + I * 2 If p >= 10 Then Exit For Next IPrint p答案：_12_16 . Ch="DEF For i=1 to 3 ch=ch & mid(ch,i,1) Next i Print ch答案： DEF DEF 17、分析程序,寫出執(zhí)行結(jié)果 (VB代碼) Private Sub Form_Activate()Di

15、m a,b,c as integer a=15 b=60 c=38 if a<b then m=a else m=b If m>c then m=c Print M= "mEnd Sub 執(zhí)行結(jié)果： M=1518、分析程序,寫出執(zhí)行結(jié)果 (VB代碼) Private Sub Form_Activate() Dim i,s as integer s=0 for i=2 to 6 s=s+INext i Print S="s End Sub 執(zhí)行結(jié)果：S=20三、程序局部大題：1.題目中是一個求二次函數(shù)曲線頂點坐標的VB程序,在運行是 Textl、Text2、Tex

16、t3分別輸入3、6、9三個數(shù),請問Text4、Text5輸出結(jié)果分別就應(yīng)為多少每空 4分,共8分Private Sub coiKnandl_click ()Dim a As text, b As tezt, c As text a = Vai (Textl, Text j b = Vai(T ext iText) c = Vai(Text3. Text) m =-b / (2 * a) n =(4*a*c-b*b) / Text!. Text = m Text5. Test = nEnd SubTgt4輸出結(jié)果為:Test 5輸出結(jié)果為:2.下面是用VB編寫的求1 + 1/2+1/3+1/10

17、0和的程序,在空缺局部填上相應(yīng)的語句.Private Sub Form_Activate()Dim i As Integer, sum As Integer sum = 0For i = 1 To 100sum = sum +Next iPrint" sum=" sumEnd Sub 3、寫出程序結(jié)果：Private Sub Form_Activate()Dim ch As String, i As Integer ch =" DEF'For i = 1 To 3ch = ch & Mid (ch, i, 1 )Next iPrint chEnd

18、Sub答案：4 .表一是某種繪圖軟件的局部指令,如要根據(jù)表中的指令畫出圖一的圖形,請根據(jù)分析填空:2、方法二工RIGHT 90FORWARD 4LEFT 1501、方法一：FORWARD 3RIGHT 120FORWARD 5RIGHT 150石 FORWARD 3p5 .寫出程序結(jié)果： Private Sub Command1_Click() Dim p As Integer, i As Integer, n As Integer p=0 : n=5 For i=1 To n p=p+i*2 If p>=10 Then Exit For Next i Print p End Sub 答

19、案：6 .填補程序：假設(shè)你從今年開始為“希望工程存錢,今年存入 100元錢,第二年存入 200元錢, 第三年存入300元錢依此類推,問：20年時間你將為“希望工程存入多少錢Private Sub Command1_Click()Dim n as integer, intsum as integer intsum=0 For n=1 to intsum=intsum+n*100Lb1sum.caption= 兩年共存入："& intsum & 元""End Sub優(yōu)秀學(xué)習(xí)資料歡迎下載7 .某快遞公司規(guī)定：快件不超過i公斤的,雙遞n 10元,而過i公斤

20、的局部,按每公斤5元計費, 編寫快遞費計算程序運費為S,重量為P8 .寫出程序結(jié)果：(8分,每空4分)Private Sub Form_Activate()Dim p As Integer, i As Integer p = 1 For i = 1 To 5P = P + iNext iPrint “I P 分別為： ；i, pEnd Sub 輸出結(jié)果：I P分別為：, 9 . Private Sub Command1_Click()Dim a As Integer, b As Integer a = 1 : b = 0Do While a <= 5b = b + a * aa = a + 1LoopPrint a, bEnd Sub運行結(jié)果： 10.小華從今