山東高中信息技術(shù)學(xué)業(yè)水平測試VB算法真題

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

2、果B、尋找解題方法理解分析問題用工具計算驗(yàn)證結(jié)果C、用工具計算驗(yàn)證結(jié)果尋找解題方法理解分析問題D、用工具計算驗(yàn)證結(jié)果理解分析問題尋找解題方法7、下列關(guān)于算法的特征描述不正確的是（ ）A、有窮性：算法必須在有限步之內(nèi)結(jié)束B、確定性：算法的每一步必須確切的定義C、輸入：算法必須至少有一個輸入D、輸出：算法必須至少有一個輸出8、下列哪一個不是用于程序設(shè)計的軟件（ ）A、BASICB、C語言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

3、、選擇結(jié)構(gòu)11、下列步驟不屬于軟件開發(fā)過程的是（ ）A、任務(wù)分析與系統(tǒng)設(shè)計B、軟件的銷售C、代碼編寫與測試D、軟件測試與維護(hù)12以下程序段運(yùn)行時，語句 k=k+1 執(zhí)行的次數(shù)為（ ）次。k=-10dok=k+1loop while k=0A. 9B. 10C. 11D. 1213已知x=6, y=5, 則以下運(yùn)算結(jié)果為 True 的是（ ）ANot(x>y) B. (x<5)or(y>6)C. (x>=6)And(y>=5) D. Not(x>4)14模塊化程序設(shè)計方法反映了結(jié)構(gòu)化程序設(shè)計的（ ）基本思想。A、自頂向下，逐步求精B、面向?qū)ο驝、自定義函數(shù)、過

4、程D、可視化編程15、一位同學(xué)想編程解決“韓信點(diǎn)兵”的問題，他制定的如下工作過程中，最恰當(dāng)?shù)氖牵?）A、設(shè)計算法，編寫程序，提出問題，運(yùn)行程序，得到答案B、分析問題，編寫程序，設(shè)計算法，運(yùn)行程序，得到答案C、分析問題，設(shè)計算法，編寫程序，運(yùn)行程序，得到答案D、設(shè)計算法，提出問題，編寫程序，運(yùn)行程序，得到答案16、交換變量A和B, 語句為( ) A. A=B;B=C;C=A B. C=A;A=B;B=C C. A=B;B=A D. C=A;B=A;B=C17執(zhí)行下列程序段后，變量y的值為（ ）x=3 : y=7Do While x < Sqr(y)x = x + 2LoopA、7B、8C、

5、10D、918在VB程序設(shè)計中交換變量x和y的值，應(yīng)使用的賦值語句是（ ）A、t = x : y=x : y=tB、x=y : y=t : t=xC、x=y : y=xD、t=x : x=y : y=t19下列程序執(zhí)行后A、B的值是（ ）A = 5B = 6A = B : B = A : A = BA、5、6B、6、6C、6、5D、5、520流程圖中表示判斷框的是（ ）A、鉅形框B、菱形框C、圓形框D、橢圓形框21以下描述中最適合用計算機(jī)編程來處理的是（ ）。A、確定放學(xué)回家的路線B、計算某個同學(xué)期中考試各科成績部分C、計算100以內(nèi)的奇數(shù)平方和D、在因特網(wǎng)上查找自己喜歡的歌曲22下列程序執(zhí)行

6、后A、B的值是（ ）。A=30B=40A=A+B：B=A-B：A=A-BA、30、40B、40、40C、40、30D、30、3023VB語言中，下列各種基本數(shù)據(jù)類型說明符中表示整型數(shù)的是（ ）。A、BooleanB、IntegerC、SingleD、String24執(zhí)行下列程序段后，變量x的值為（ ）。x =3 : y = 77Do While x < Sqr ( y )x = x + 2LoopA、7B、8C、10D、925下面是用VB編寫的求1 + 1/2 + 1/3 +1/100和的程序，該程序循環(huán)終止時 i 的值是多少？（ ）Private Sub Form_Activate(

7、)Dim i As Integer , sum As Integersum = 0For i = 1 To 100sum = sum + 1/iNext iPrint “sum = “ ; sumEnd SubA、i = 102B、i = 100C、i = 101D、無法判斷26、由語句：Dim K(11) As Long，判斷下列結(jié)論中錯誤的是（ ）。A、語句定義了數(shù)組K，它的下標(biāo)是從0到11B、數(shù)組K共有12個分量C、數(shù)組K的各個分量都是長整型數(shù)D、數(shù)組K的各個分量的值將按從小到大的順序自動排列27、下列是合法變量名的是：（ ）A、a-3B、7C、a$ D、text728、以下不屬于算法基

8、本特征的是（ ）。A、可執(zhí)行性B、確定性C、有窮性D、無限性29、用計算機(jī)程序解決問題時，調(diào)試程序和檢測結(jié)果的目的是（ ）A、前者用于檢查語法是否正確，后者檢查能否按要求完成任務(wù)B、前者檢查算法是否正確，后者檢查是否有語法錯誤C、前者用于檢查語法是否正確，后者檢查是否有病毒D、兩者無區(qū)別30、下面屬于邏輯運(yùn)算符的是（ ）A、orB、FalseC、TrueD、<>31、下列程序段運(yùn)行后，變量max 的值為 （ ）。a = 5b = 10max = aIF b > max Then max = bA、5B、10C、5和10 D、其他三項(xiàng)都不是32、以下屬于程序的基本控制結(jié)構(gòu)的是（

9、 ）A、星形結(jié)構(gòu)B、選擇結(jié)構(gòu)C、網(wǎng)絡(luò)結(jié)構(gòu)D、平行結(jié)構(gòu)二、程序分析題1、Private Sub Form_Activate( )Dim a, b, c AS Integera=15;b=60;c=38if a<b then m=aelse m=b end ifif m>c then m=c end ifPrint “M=”;mEnd Sub 運(yùn)行結(jié)果:_2、Private Sub Form_Load( )Dim X AS Integer，Y AS IntergerText1.Text=”X=99;Y=98; M=XIf X<Y then M=Y end ifText1.capt

10、ion=MEnd Sub 運(yùn)行結(jié)果:_3、計算1+3+5+99的值。Private Sub Form_Activate( )Dim i, s AS Integers = 0for i =1 to Step 2s = Next iPrint “S=”;sEnd Sub4、分析程序，寫出計算結(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運(yùn)行結(jié)果:_5、 計算1+1/2+1/50的值。 Private Sub Form_activate() Dim i,

11、s as integer s=0 For i=1 to _ s=_ Next i Print “S=”;s End Sub6、分析程序，寫出計算結(jié)果Private Sub Form_Activate() Dim I,S as integer S=0 For I=2 to 6 S=S+I Next IPrint “S=”;SEnd Sub 運(yùn)行結(jié)果:_7分析程序，寫出執(zhí)行結(jié)果Sum=0 For i=1 To 100 sum=sum+2 Next iprint “Sum=”; sum 輸出：_8、用程序?qū)崿F(xiàn)函數(shù)：y=|x|Private Sub Form_Load( )Dim X AS Integ

12、er，Y AS IntergerText1.Text=”X=InputBox(“X=?”)if thenY=XElse End IfText1.Text=YEnd Sub9完善程序，打印如下圖形*For i=1 To 6For j1 To _Print “*”Next j_三、程序部分大題：1. 題目中是一個求二次函數(shù)曲線頂點(diǎn)坐標(biāo)的VB程序，在運(yùn)行是Text1、Text2、Text3分別輸入3、6、9三個數(shù)，請問Text4、Text5輸出結(jié)果分別就應(yīng)為多少？（每空4分，共8分）Private Sub Command_click( )Dim a as text,b as text,c as te

13、xtA=val(text1.text)B=val(text2.text)C=val(text3.text)M=-b/(2*a)N=(4*a*c-b*b)/4*aText4.text=mText5.text=nEnd subText4輸出結(jié)果為：_ Text5輸出結(jié)果為：_2. 下面是用VB編寫的求1+1/2+1/3+1/100和的程序，在空缺部分填上相應(yīng)的語句。Private Sub Form_Activate()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + _Next iPrint “sum=”; sum

14、End Sub3、Private Sub Form_Activate( )Dim ch As String, i As Integerch = “DEF”For i = 1 To 3ch = ch & Mid (ch, i, 1 )Next iPrint chEnd Sub答案：_4寫出程序結(jié)果：Private Sub Command1_Click()Dim p As Integer, i As Integer, n As Integerp=0 : n=5For i=1 To np=p+i*2If p>=10 Then Exit ForNext iPrint pEnd Sub 答

15、案：_5.表一是某種繪圖軟件的部分指令，如要根據(jù)表中的指令畫出圖一的圖形，請根據(jù)分析填空：6. 寫出程序結(jié)果：（8分，每空4分）Private Sub Form_Activate( )Dim p As Integer, i As Integerp = 1For i = 1 To 5p = p + iNext iPrint “I P分別為：”; i, pEnd Sub輸出結(jié)果：I P分別為：_，_7. 填補(bǔ)程序：假設(shè)你從今年開始為“希望工程”存錢，今年存入100元錢，第二年存入200元錢，第三年存入300元錢依此類推，問：20年時間你將為“希望工程”存入多少錢？Private Sub Comma

16、nd1_Click( )Dim n as integer, intsum as integerintsum=0For n=1 to _intsum=intsum+n*100_Lb1sum.caption=”兩年共存入：”& intsum & “元”End Sub8. 某快遞公司規(guī)定：快件不超過1公斤的，快遞費(fèi)10元，超過1公斤的部分，按每公斤5元計費(fèi)，編寫快遞費(fèi)計算程序（運(yùn)費(fèi)為S，重量為P）9小華從今年開始為“希望工程”存錢，計劃今年存入100元錢，第二年存入200元錢，第三年存入300元錢依此類推，問：20年時間你將為“希望工程”存入多少錢？10 Private Sub Co

17、mmand1_Click( )Dim a As Integer, b As Integera = 1 : b = 0Do While a <= 5b = b + a * aa = a + 1LoopPrint a, bEnd Sub 運(yùn)行結(jié)果：_ _11補(bǔ)全流程圖：編制VB程序，在界面上輸入一個不為零的自然數(shù)，判斷它是否是質(zhì)數(shù)。（6分）12寫程序結(jié)果：Text2 = “34”a = ( Val ( Text2 ) 32 ) * 5 / 2Print a答案：_四、算法題分析題：我們在用計算機(jī)解決問題時，常采用的算法有解析法、窮舉法、遞歸法、冒泡排序法、選擇排序法等，分析下列問題應(yīng)采用哪種算法解決？1、求解“百雞問題”：已知公雞每只3元，母雞每只5元，小雞每3只1元。用10