PAGEPAGE10一、選擇題1、流程圖是描述（）的常用方式。 A、程序 B、算法 C、數據結構 D、計算規則2、下面不屬于算法描述方式的是（）。 A、自然語言 B、偽代碼 C、流程圖 D、機器語言3、以下運算符中運算優先級最高的是（）。 A、+ B、^ C、>= D、*4、某程序中三個連續語句如下： a=1 b=2 c=b+a它屬于（） A、順序結構 B、選擇結構 C、循環結構 D、以上三種都不是5、窮舉法的適用范圍是（） A、一切問題 B、解的個數極多的問題

C、解的個數有限且可一一列舉 D、不適合設計算法6、在現實生活中，人工解題的過程一般分為（） A、理解分析問題→尋找解題方法→用工具計算→驗證結果 B、尋找解題方法→理解分析問題→用工具計算→驗證結果C、用工具計算→驗證結果→尋找解題方法→理解分析問題D、用工具計算→驗證結果→理解分析問題→尋找解題方法7、下列關于算法的特征描述不正確的是（） A、有窮性：算法必須在有限步之內結束 B、確定性：算法的每一步必須確切的定義C、輸入：算法必須至少有一個輸入 D、輸出：算法必須至少有一個輸出8、下列哪一個不是用于程序設計的軟件（） A、BASIC B、C語言 C、Word D、Pascal9、下列可以作為合作變量名的是（） A、a7 B、7a C、a-3 D、810、編程求1+2+3++1000的和，該題設計最適合使用的控制結構為（）。 A、順序結構 B、分支結構 C、循環結構 D、選擇結構11、下列步驟不屬于軟件開發過程的是（） A、任務分析與系統設計 B、軟件的銷售 C、代碼編寫與測試 D、軟件測試與維護12．以下程序段運行時，語句k=k+1執行的次數為（）次。 k=-10 do k=k+1 loopwhile（until）k=0 A.9 B.10 C.11 D.1213．已知x=6,y=5,則以下運算結果為True的是（） A．Not(x>y) B.(x<5)or(y>6) C.(x>=6)And(y>=5) D.Not(x>4)14．模塊化程序設計方法反映了結構化程序設計的（）基本思想。 A、自頂向下，逐步求精 B、面向對象 C、自定義函數、過程 D、可視化編程15、一位同學想編程解決“韓信點兵”的問題，他制定的如下工作過程中，最恰當的是（） A、設計算法，編寫程序，提出問題，運行程序，得到答案 B、分析問題，編寫程序，設計算法，運行程序，得到答案 C、分析問題，設計算法，編寫程序，運行程序，得到答案D設計算法，提出問題，編寫程序，運行程序，得到答案16、交換變量A和B,語句為()A.A=B;B=C;C=AB.C=A;A=B;B=CC.A=B;B=AD.C=A;B=A;B=C17．執行下列程序段后，變量y的值為（） x=3:y=7 DoWhilex<Sqr(y) x=x+2 Loop A、7 B、8 C、10 D、18．在VB程序設計中交換變量x和y的值，應使用的賦值語句是（） A、t=x:y=x:y=t B、x=y:y=t:t=x C、x=y:y=x D、t=x:x=y:y=t19．下列程序執行后A、B的值是（） A=5 B=6 A=B:B=A:A=BA、5、6 B、6、6 C、6、5 D、5、520．流程圖中表示判斷框的是（） A、鉅形框 B、菱形框 C、圓形框 D、橢圓形框21．以下描述中最適合用計算機編程來處理的是（）。 A、確定放學回家的路線 B、計算某個同學期中考試各科成績部分C、計算100以內的奇數平方和 D、在因特網上查找自己喜歡的歌曲22．下列程序執行后A、B的值是（）。 A=30 B=40A=A+B：B=A-B：A=A-BA、30、40 B、40、40 C、40、30 D、30、3023．VB語言中，下列各種基本數據類型說明符中表示整型數的是（）。 A、Boolean B、Integer C、Single D、String24．執行下列程序段后，變量x的值為（）。 x=3:y=77 DoWhilex<Sqr(y) x=x+2 Loop A、7 B、8 C、10 D、925．下面是用VB編寫的求1+1/2+1/3+……+1/100和的程序，該程序循環終止時i的值是多少？（）PrivateSubForm_Activate()DimiAsInteger,sumAsIntegersum=0Fori=1To100 sum=sum+1/iNextiPrint“sum=“;sumEndSubA、i=102 B、i=100 C、i=101 D、無法判斷26、由語句：DimK(11)AsLong，判斷下列結論中錯誤的是（）。A、語句定義了數組K，它的下標是從0到11B、數組K共有12個分量C、數組K的各個分量都是長整型數D、數組K的各個分量的值將按從小到大的順序自動排列27、下列是合法變量名的是：（）A、a-3 B、7 C、a$ D、28、以下不屬于算法基本特征的是（）。 A、可執行性 B、確定性 C、有窮性 D、無限性29、用計算機程序解決問題時，調試程序和檢測結果的目的是（） A、前者用于檢查語法是否正確，后者檢查能否按要求完成任務 B、前者檢查算法是否正確，后者檢查是否有語法錯誤 C、前者用于檢查語法是否正確，后者檢查是否有病毒 D、兩者無區別30、下面屬于邏輯運算符的是（） A、or B、False C、True D、<>31、下列程序段運行后，變量max的值為（）。 a=5 b=10 max=a IFb>maxThenmax=b A、5 B、10 C、5和10D、其他三項都不是32、以下屬于程序的基本控制結構的是（） A、星形結構 B、選擇結構 C、網絡結構 D、平行結構二、程序分析題1、PrivateSubForm_Activate()Dima,b,cAsIntegera=15:b=60:c=38Ifa<bThenm=aElsem=bEndIfIfm>cThenm=cEndIfPrint"M=";mEndSub運行結果:____M=15______2、PrivateSubForm_Load()DimXAsInteger,YAsIntegerText1.Text=""X=99:Y=98:M=XIfX<YThenM=YEndIfText1.Text=MEndSub運行結果:_____99________3、用程序實現函數：y=|x|PrivateSubForm_Load() DimXASInteger，Y ASInterger Text1.Text=”” X=InputBox(“X=?”) ifx>=0thenY=X Else Y=-X EndIf Text1.Text=Y EndSub4、計算1+2+3+……+100的值。PrivateSubForm_Activate() Dimi,sASInteger s=0 Fori=1TO100 s=s+i Nexti Print“S=”;sEndSub5、計算1+3+5+……+99的值。PrivateSubForm_Activate() Dimi,sASInteger s=0 fori=1to99Step2 s=s+iNexti Print“S=”;s EndSub6、分析程序，寫出計算結果PrivateSubForm_Activate()Dimi,SasintegerS=1Fori=1to4S=S*iNextiPrint“S=”;SEndSub運行結果:_____S=24_________7、計算1+1/2+……+1/50的值。PrivateSubForm_activate()Dimi,sasintegers=0Fori=1to___50step1______s=___s+1/i________NextiPrint“S=”;sEndSub8、分析程序，寫出計算結果PrivateSubForm_Activate()DimIAsInteger,SAsIntegerS=0ForI=2To6S=S+INextIPrint"S=";SEndSub運行結果:_______S=20___________9．p=1

Fori=1to5

p=p+inextiprint“I,P分別為：”;i,p輸出：I，P分別為：_6___,___16___10．Sum=0Fori=1To100sum=sum+2Nexti print“Sum=”;sum 輸出：__Sum=200________11．下面是1+1/2+1/3+…+1/100的和的程序，該程序循環終止時i的值是多少？（101） sum=0 Fori=1To100 sum=sum+1/i nexti12．a=1;b=0 Dowhilea<=5 b=b+a*a a=a+1 Loop Printa,b 屏幕上顯示的內容是：__6__，__55__13．完善程序，打印如下圖形 *********************ForI=1To6Forj=1To__i__Print"*";NextjPrint__Nexti______________14．執行下列程序段后，變量x的值為：（9）x=3;y=77DOWHILEx<sqr(y) x=x+2LOOP15．p=0:n=5ForI=1Tonp=p+I*2Ifp>=10ThenExitForNextIPrintp答案：__12__16．Ch=”DEF” Fori=1to3 ch=ch&mid(ch,i,1) Nexti Printch答案：__DEFDEF_____17、分析程序，寫出執行結果 (VB代碼) PrivateSubForm_Activate()

Dima,b,casinteger a=15b=60 c=38 ifa<bthenm=aelsem=b Ifm>cthenm=c Print“M=”;m EndSub 執行結果：______M=15________18、分析程序，寫出執行結果 (VB代碼) PrivateSubForm_Activate()

Dimi,sasintegers=0 fori=2to6 s=s+I Nexti Print“S=”;s EndSub執行結果：____S=20_______三、程序部分大題：1.題目中是一個求二次函數曲線頂點坐標的VB程序，在運行是Text1、Text2、Text3分別輸入3、6、9三個數，請問Text4、Text5輸出結果分別就應為多少？（每空4分，共8分）-1,62.下面是用VB編寫的求1+1/2+1/3+……+1/100和的程序，在空缺部分填上相應的語句。 PrivateSubForm_Activate() DimiAsInteger,sumAsInteger sum=0 Fori=1To100 sum=sum+_______________ Nexti Print“sum=”;sum EndSub1/i3、寫出程序結果：PrivateSubForm_Activate()DimchAsString,iAsIntegerch=“DEF”Fori=1To3 ch=ch&Mid(ch,i,1)NextiPrintchEndSub 答案：________________________DEFDEF4.表一是某種繪圖軟件的部分指令，如要根據表中的指令畫出圖一的圖形，請根據分析填空：FORWARD4FORWARD5LEFT1205．寫出程序結果： PrivateSubCommand1_Click() DimpAsInteger,iAsInteger,nAsInteger p=0:n=5 Fori=1Ton p=p+i*2 Ifp>=10ThenExitFor Nexti Printp EndSub答案：________________________126.填補程序：假設你從今年開始為“希望工程”存錢，今年存入100元錢，第二年存入200元錢，第三年存入300元錢……依此類推，問：20年時間你將為“希望工程”存入多少錢？ PrivateSubCommand1_Click() Dimnasinteger,intsumasinteger intsum=0 Forn=1to______________20 intsum=intsum+n*100 _______________________nextn Lb1sum.caption=”兩年共存入：”&intsum&“元”EndSub7.某快遞公司規定：快件不超過1公斤的，快遞費10元，超過1公斤的部分，按每公斤5元計費，編寫快遞費計算程序（運費為S，重量為P）1010+5*(P-1)8.寫出程序結果：（8分，每空4分） PrivateSubForm_Activate() DimpAsInteger,iAsInteger p=1 Fori=1To5 p=p+i Nexti Print“IP分別為：”;i,p EndSub輸出結果：IP分別為：____________，____________6169．PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=1:b=0 DoWhilea<=5 b=b+a*a a=a+1 Loop Printa,b EndSub運行結果：_____________________________65510．小華從今年開始為“希望工程”存錢，計劃今年存入100元錢，第二年存入200元錢，第三年存入300元錢……依此類推，問：20年時間你將為“希望工程”存入多少錢？

sum+n*10011．補全流程圖：編制VB程序，在界面上輸入一個不為零的自然數，判斷它是否是質數。（6分）i=i+