《算法與程序設計》模擬測試卷（一）考試時間：90分鐘滿分：100分

一、

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

A．正確理解題意→設計正確算法→尋找解題方法→編寫程序→調試運行

B．正確理解題意→尋找解題方法→設計正確算法→編寫程序→調試運行

C．正確理解題意→尋找解題方法→設計正確算法→調試運行→編寫程序

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

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

Form1.Caption=“VB示例”EndSubA．command2B．clickC．form1D．caption5．下列結果為True的邏輯表達式是（）。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中，添加一個標簽，在工具箱中要單擊控件是（）。A．B．C．D．8．下列運算結果中，值最大的是（）。

A．3\4

B．3/4

C．4mod3

D．3mod4

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

Basic程序段運行后，變量max的值為（）。

a=5b=10max=a

IF

b>max

Then

max

=b

A．5

B．10

C．5和10

D．以上都不是12．下列四種描述中，符合以下程序的是（）。fork=11to20x=inputbox(“請輸入一個整數”)y=x^2nextprintx,yA．讀入10個不同的x值，只計算最后一個y值，只輸出最后一個x、yB．讀入10個不同的x值，計算10個不同的y值，輸出10個不同的x、y值C．只讀入一個x值，進行10次相同的運算，輸出10個相同的x、y值D．讀入10個不同的x值，計算10個不同的y值，只輸出最后一個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．執行下面程序段的結果是（）。n=6ford=1tonIfnmodd=0thenprintd;endifnextdA．16 B．123 C．1236 D．12345615．閱讀下面的程序段：

a=0Form=1To3

Forn=1Toma=a+1

NextNext

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

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

m=n

n=r

（3）LoopPrintp/n,nEndSub24．采用選擇排序法，將隨機產生的100以內的10個整數按由大到小的順序排列。PrivateSubCommand1_Click()Dims(10)asinteger,dimmaxasinteger,dimmaxnum,m,.n,tempasintegerRandomize'初始化隨機數發生器Form=1to10S(m)=（1）'隨機產生的100以內的整數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三、閱讀程序，寫出運行后輸出的結果（每題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選修模塊“算法與程序設計”模擬測試題二參考答案一、

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