《算法和程序設(shè)計(jì)》模擬測試卷(一)含答案

《算法與程序設(shè)計(jì)》模擬測試卷（一）考試時(shí)間：90分鐘滿分：100分

一、

單項(xiàng)選擇題（共20個(gè)空，每空2分，共40分）1．使用計(jì)算機(jī)解題的步驟，以下描述正確的是：()。

A．正確理解題意→設(shè)計(jì)正確算法→尋找解題方法→編寫程序→調(diào)試運(yùn)行

B．正確理解題意→尋找解題方法→設(shè)計(jì)正確算法→編寫程序→調(diào)試運(yùn)行

C．正確理解題意→尋找解題方法→設(shè)計(jì)正確算法→調(diào)試運(yùn)行→編寫程序

D．正確理解題意→尋找解題方法→設(shè)計(jì)正確算法→編寫程序→調(diào)試運(yùn)行2．下列算法展示了一臺自動售貨機(jī)一次售貨的工作流程：步驟1：等待接收一枚硬幣。步驟2：若硬幣面值不是0.1元、0.5元、1元，退回硬幣。步驟3：若投入貨款達(dá)1.5元或以上，執(zhí)行步驟4和5。步驟4：售出一個(gè)口香糖。步驟5：從接收貨款中減去1.5元。步驟6：退回余額。下列關(guān)于這個(gè)算法說法正確的是（）。A．上述算法采用自然語言表示B．這臺自動售貨機(jī)在任何情況下也不會售出口香糖C．上述算法屬于順序算法結(jié)構(gòu)D．這臺自動售貨機(jī)只會在接受硬幣達(dá)2元時(shí)才放出口香糖3．VisualBasic規(guī)定窗體文件的擴(kuò)展名是()。

A．.forB．.frmC．.vbpD．.bas4．假設(shè)某一程序如下，則能觸發(fā)該程序的事件是（）PrivateSubcommand2_Click()

Form1.Caption=“VB示例”EndSubA．command2B．clickC．form1D．caption5．下列結(jié)果為True的邏輯表達(dá)式是（）。A．Not(3<8)B．(3<8)And(5>10)C．(3<8)And(5<10)D．(3>8)Or(5>10)6．以下語句中正確的是()。A．Constvar1asinteger=50000 B．Dim888flasStringC．x+y=9 D．Dimd(1to500)AsDouble7．在VB中，添加一個(gè)標(biāo)簽，在工具箱中要單擊控件是（）。A．B．C．D．8．下列運(yùn)算結(jié)果中，值最大的是（）。

A．3\4

B．3/4

C．4mod3

D．3mod4

9．表達(dá)式abs(int(－3.4))*sqr(100)的值是（）。A．－340B．-34C．30D．4010．若i=1，j=9，則運(yùn)行Printi;"*";j;"=";i*j的結(jié)果是（）。A．1*9=9B．i*j=9 C．i*j=i*j D．911．下列Visual

Basic程序段運(yùn)行后，變量max的值為（）。

a=5b=10max=a

IF

b>max

Then

max

=b

A．5

B．10

C．5和10

D．以上都不是12．下列四種描述中，符合以下程序的是（）。fork=11to20x=inputbox(“請輸入一個(gè)整數(shù)”)y=x^2nextprintx,yA．讀入10個(gè)不同的x值，只計(jì)算最后一個(gè)y值，只輸出最后一個(gè)x、yB．讀入10個(gè)不同的x值，計(jì)算10個(gè)不同的y值，輸出10個(gè)不同的x、y值C．只讀入一個(gè)x值，進(jìn)行10次相同的運(yùn)算，輸出10個(gè)相同的x、y值D．讀入10個(gè)不同的x值，計(jì)算10個(gè)不同的y值，只輸出最后一個(gè)x、y值C．i=1DoWhilei<=5C．i=1DoWhilei<=5Printii=i+1LoopB．i=1DoWhilei<=5i=i+1PrintiLoop。D．i=1DoD．i=1Dountili<=5Printii=i+1LoopDoWhilei>5i=i+1PrintiLoop14．執(zhí)行下面程序段的結(jié)果是（）。n=6ford=1tonIfnmodd=0thenprintd;endifnextdA．16 B．123 C．1236 D．12345615．閱讀下面的程序段：

a=0Form=1To3

Forn=1Toma=a+1

NextNext

執(zhí)行上面的程序后，a的值為()。

A．3B．5C．6D．16．關(guān)于模塊化程序設(shè)計(jì)以下說法中錯(cuò)誤的是（）。A．模塊化程序設(shè)計(jì)體現(xiàn)了“自頂而下、逐步求精”的程序設(shè)計(jì)的基本思想。B．模塊化程序設(shè)計(jì)主要通過過程和函數(shù)的定義和調(diào)用來實(shí)現(xiàn)。C．模塊化程序設(shè)計(jì)可以提高程序運(yùn)行速度D．模塊化程序設(shè)計(jì)有利于程序的閱讀和修改17．有一組數(shù)，順序是“4、7、8、1、9”，用選擇排序法將這組數(shù)從小到大排序，第二次交換數(shù)據(jù)后的順序是：()A．1、4、7、8、9 B．1、4、8、7、9C．1、7、8、9、4 D．1、7、8、4、918．下列表述中不含遞歸現(xiàn)象的是（）。A．站在兩面平行的鏡子中間照鏡子，鏡子中的影像成“像中像”B．定義自然數(shù)：0是自然數(shù)，比自然數(shù)大1的數(shù)是自然數(shù)C．乘法九九表D．“從前有個(gè)廟，廟里有個(gè)老和尚在給小和尚講故事，老和尚說：‘從前有個(gè)廟，廟里有個(gè)老和尚在給小和尚講故事，老和尚說：……’”19．要向已包含數(shù)據(jù)的文件data.txt追加數(shù)據(jù)，正確的文件打開命令是()。A．open“data1.txt”foroutputas#1B．open“data1.txt”forinputas#1C．open“data1.txt”forappendas#5D．open“data1.txt”forwriteas#120．下面是一組有序的數(shù)組元素：1234567891011121314allbrecarduaevefregeohenhoojoekarkeamaroli現(xiàn)進(jìn)行對分查找，查找joe要依次訪問的是：（）A．geokeakarjoe B．geocarkarjoeC．geokarhoojoe D．geohookarjoe二、填空題：（共15個(gè)空，每空3分，共45分）21．編程計(jì)算s=1*2+3*4+5*6+7*8+9*10：PrivateSubcommand1_Click()S=0Fork=1to10step（1）s=（2）+k*（3）NextkPrintsEndsub22．有一古算術(shù)問題：“有100塊瓦，用100匹馬來馱。大馬1馱3，中馬1馱2，小馬2馱1。問要大馬、中馬、小馬各幾匹？”PrivateSubCommand1_Click()Dimx,y,zAsInteger'x代表大馬、y代表中馬、z代表小馬Forx=1To（1）Fory=1To（2）z=（3）If（4）ThenPrintx,y,zEndIfNextyNextxEndSub開始開始p←m*n求m除以n的余數(shù)rm←nn←rr=0輸出p/n、n結(jié)束m、n互換m>n?YNY輸入兩個(gè)自然數(shù)m、nN23．以下為用輾轉(zhuǎn)相除法求兩數(shù)的最小公倍數(shù)和最大公約數(shù)的程序和流程圖，請根據(jù)流程圖填寫程序中空白處。PrivateSubCommand1_Click()m=InputBox("輸入第一個(gè)自然數(shù)")n=InputBox("輸入第二個(gè)自然數(shù)")Ifm<nThent=m（1）n=tendifp=n*mr=mModnDoWhile（2）

m=n

n=r

（3）LoopPrintp/n,nEndSub24．采用選擇排序法，將隨機(jī)產(chǎn)生的100以內(nèi)的10個(gè)整數(shù)按由大到小的順序排列。PrivateSubCommand1_Click()Dims(10)asinteger,dimmaxasinteger,dimmaxnum,m,.n,tempasintegerRandomize'初始化隨機(jī)數(shù)發(fā)生器Form=1to10S(m)=（1）'隨機(jī)產(chǎn)生的100以內(nèi)的整數(shù)NextmForm=1to10Max=S(m)Maxnum=（2）Forn=（3）to10If（4）Thenmax=s(n)maxnum=（5）EndIfNextnTemp=s(m)S(m)=maxS(maxnum)=tempNextmForm=1To10Prints(m)NextmEndSub三、閱讀程序，寫出運(yùn)行后輸出的結(jié)果（每題5分，共15分）26、PrivateSubCommand1_click()

26、PrivateSubCommand1_click()

Dimx,yAsIntegerx=5y=0Ifx<10Theny=10Ifx<100Theny=100EndIfElsey=200EndIfPrintyEndSubdimxassingle,yasstringx=Round(5.4)SelectCasexCase1To5y=mid(“welcome”,3,2)Case6To10y=left(“welcome”,3)CaseElsey=right(“welcome”,3)EndSelectPrint“you”+yEndsub27．PrivateSubCommand1_click()Dimn,aAsIntegern=6a=0DoWhilen>1a=1DoPrint"*";a=a+1LoopUntila>=nPrintn=n-1LoopEndSub選修模塊“算法與程序設(shè)計(jì)”模擬測試題二參考答案一、

單項(xiàng)選擇題1．B2．A3．B4．B5．C6．D7．A8．D9．D10．A11．B12．D13．C14．C15．C16．C17．B