桐鄉(xiāng)一中信息技術(shù)期中考試試卷及答案算法與程序設(shè)計(jì)

1、真誠為您提供優(yōu)質(zhì)參考資料，若有不當(dāng)之處，請(qǐng)指正。（算法與程序設(shè)計(jì)模塊）試卷說明：試卷滿分100分，考試時(shí)間60分鐘一、選擇題（本大題共25個(gè)小題，每題2分，共50分）1計(jì)算機(jī)解決問題的三個(gè)步驟中不包括下面哪一步驟()（A）需求分析（B）問題反思（C）算法分析（D）用計(jì)算機(jī)編寫程序2對(duì)于一個(gè)完整的算法的流程圖，下列說法不正確的是()（A）有而且只有一對(duì)框（B）不一定有框（C）不一定有框（D）分支結(jié)構(gòu)中一定有 框3下列算法展示了一臺(tái)自動(dòng)售貨機(jī)一次售貨的工作流程：步驟1：提示“請(qǐng)投幣”步驟2：若硬幣面值不是0.1元、0.5元、1元，退回硬幣，并跳回步驟1步驟3：若投入貨款達(dá)1.5元或以上，執(zhí)行步驟4

2、，否則執(zhí)行步驟1步驟4：售出一個(gè)口香糖步驟5：從接收貨款中減去1.5元步驟6：退回余額下列關(guān)于這個(gè)算法說法正確的是（ ）（A）上述算法采用偽代碼表示（B）這臺(tái)自動(dòng)售貨機(jī)在任何情況下也不會(huì)售出口香糖（C）上述算法包含有順序結(jié)構(gòu)（D）這臺(tái)自動(dòng)售貨機(jī)只會(huì)在接受硬幣達(dá)2元時(shí)才放出口香糖4下列關(guān)于類、對(duì)象、屬性、事件的描述中，錯(cuò)誤的是()（A）同一類對(duì)象具有同一類屬性，但同一個(gè)屬性可以有不同的屬性值（B）“Private Sub Command_Click()”中的“Click”屬于事件（C）VB編程界面中，雙擊窗體中某對(duì)象，出現(xiàn)的是代碼窗口（D）對(duì)象的屬性值在程序運(yùn)行過程中不可修改5VB語句Text1

3、.Text=Text用于在文本框中顯示字符串，該語句中的“Text1”是（ ）（A）屬性值（B）對(duì)象名（C）屬性名（D）類名6小張用VB做了一個(gè)小游戲，他想把自己做的程序放在因特網(wǎng)上供他人下載使用，他應(yīng)該將自己做的程序保存為什么格式供他人下載()（A）Frm（B）Exe（C）Swf（D）Vbp7下列變量命名正確的是（A）IsTrue（B）Next （C）A-3（D）3Str8一個(gè)摸球游戲的流程圖如右圖所示(紅球總數(shù)和綠球總數(shù)均大于0)。游戲結(jié)束時(shí)，S位所代表的是()（A）摸到的綠球數(shù)（B）摸到的紅球數(shù)（C）未摸到的綠球數(shù)（D）未摸到的紅球數(shù)第8題圖S = 1For K = 1 to 6 ste

4、p 2For J = 5 to 12 Step 3S = S * KNext JNext KPrint S第9題圖9有如下一段VB程序段，當(dāng)該程序結(jié)束后，程序中的代碼“S = S * K”共被執(zhí)行了多少次()（A）6（B）8（C）9（D）1210以下變量定義錯(cuò)誤的是（A）定義一個(gè)變量存放客戶姓名：Dim Name as String（B）定義一個(gè)變量存放客戶性別：Dim Addr as Boolean（C）定義一個(gè)變量存放客戶電話：Dim Tel as String（D）定義一個(gè)變量存放QQ號(hào)碼：Dim QQ as Integer11Dim arr(1 to 10 , 11 to 20) as

5、 integer 該指令定義了多少個(gè)數(shù)組元素（A）10（B）20 （C）100（D）20012如果x=4，那么以下運(yùn)算結(jié)果為True的表達(dá)式是()（A） x=6 （B） x4 Or x=6 （C） x6 （D） not x4 13已知整型變量X的值為-3，則VB表達(dá)式Int(x/2)的值是()（A）-2（B）0（C）-1（D）214下列VB函數(shù)中，與Val函數(shù)作用相反的是()（A）Len （B）Abs （C）Str （D）Asc15在VB中，設(shè)X=7146，能得到其十位上數(shù)字 4 的正確表達(dá)式是()（A）x10 mod 100 （B）x10 mod 10 （C）x100 mod 10 （D）x

6、 mod 101016VB標(biāo)準(zhǔn)函數(shù)Rnd函數(shù)的作用是返回一個(gè)大于等于0且小于1的隨機(jī)實(shí)數(shù)，只產(chǎn)生大于等于10且小于100隨機(jī)整數(shù)的VB表達(dá)式是()（A）Int(Rnd*100) （B）Int(Rnd *90 +10)（C）Int (Rnd *99 +1) （D）Int ( Rnd *99+10 )17觀察如下VB程序設(shè)計(jì)界面，選出下面說法錯(cuò)誤的一項(xiàng)()（A）該界面中共有3個(gè)標(biāo)簽對(duì)象，屬于標(biāo)簽類。（B）該界面中的命令按鈕的Caption屬性被設(shè)置為了“計(jì)算”。（C）該VB程序保存時(shí)，有關(guān)窗口界面的信息被保存在“.Frm”文件中。（D）該界面中共有4個(gè)文本框?qū)ο螅鼈兊腡ext屬性值在當(dāng)前狀態(tài)下一

7、樣。第17題圖Sub command1_click( )Dim s as integerDim c as integerDim k as integer s=0 : c=0 : k=1 Do while k= 3 循環(huán)開始 If s=3 then s=s*2s= s+kk=k+1c=c+1LoopPrint s,cEnd sub第18-19題圖 18讀右邊程序，程序中一共標(biāo)明了8條語句，下列說法錯(cuò)誤的是( ) （A）賦值語句，不是賦值語句 （B）是注釋語句，對(duì)程序運(yùn)行不產(chǎn)生影響（C）描述的是累加器，描述的是計(jì)數(shù)器（D）程序中包含了賦值語句、選擇語句、循環(huán)語句和注釋語句19右邊程序中，最后輸出s

8、和c的值分別是：( )（A）6 , 4 （B）6 , 3 （C）9 , 4（D）9 , 320以下是一個(gè)事件處理過程，這個(gè)過程的名稱為( )Sub C1_DblClick() Print *End Sub （A）C1 （B）C1_ DblClick （C）print （D）DblClick21下列問題適合用解析算法求解的是（ ）（A）尋找一堆彩球中所有的紅球（B）計(jì)算一個(gè)球從100米高的樓頂?shù)粝聛淼穆涞厮俣龋–）將全班同學(xué)按身高從低到高排隊(duì)（D）從電子詞庫中找到Infomation 這個(gè)單詞22如果一個(gè)自然數(shù)恰好等于它的因子之和，稱這個(gè)數(shù)為“完數(shù)”，如：6=1+2+3。某算法能找出1000以內(nèi)

9、所有的完數(shù)，那么這個(gè)算法主要用到的方法是（A）枚舉（B）解析 （C）排序（D）查找23VB中常常需要用戶自己來定義函數(shù)，下列屬于定義函數(shù)的語句是( )（A）Dim 函數(shù)名 as 類型名 （B）Function函數(shù)名 as 類型名 （C）Const 函數(shù)名 = 數(shù)值 （D）Dim 函數(shù)名（a1 to a2）as 數(shù)據(jù)類型24小明買了6個(gè)蘋果，這6個(gè)蘋果的重量（單位：兩）分別為8.1、3.4、9.5、2.2、1.2、5.6，若采用選擇排序算法對(duì)其進(jìn)行從小到大排序，則需要進(jìn)行數(shù)據(jù)互換的次數(shù)是（）（A） 2 （B） 3（C） 4（D） 525五位評(píng)委給歌手打分的成績(jī)依次為93，85，92，84，90，

10、原始數(shù)據(jù)9385928490第一趟8493859290第二趟第三趟8485909392第四趟8485909293若采用冒泡排序算法對(duì)其進(jìn)行從小到大排序，則第二趟的排序結(jié)果是（A） 84 90 85 93 92 （B） 84 93 85 90 92（C） 84 85 93 90 92 （D） 84 90 92 85 93二、VB表達(dá)式書寫與求值（本大題共5個(gè)小題，每題2分，共10分）26sqr(25)+ len(“abc”)的返回值是_。27Mid(“2009烏鎮(zhèn)歡迎你!”, 5 ,2 )的返回值是_。28把數(shù)學(xué)中的式子，轉(zhuǎn)化為VB中的表達(dá)式_。29寫出數(shù)學(xué)表達(dá)式并且的VB表達(dá)式_。30求下列V

11、B表達(dá)式92+1 Mod 2+Int（-11/3）的值_。9 / 9 三、讀程序（本大題共7個(gè)小題，每題2分，共14分）31. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim m As string, t As integerm = Lovet = 1314Label1.Caption = m + str(t)End sub 該程序段運(yùn)行后，在標(biāo)簽Label1上顯示的是_。 32. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As string, b As string Dim

12、c As Longa =123b =456If a b Then c=val(a+b)Else c = val(a)+val(b)End IfPrint cEnd sub 該程序段運(yùn)行后，c的值是_。33有如下Visual Basic程序段： x = 1 For i = 5 To 12 Step 2 x = x + i Next i該程序段運(yùn)行后，x的值是_。34. 有如下Visual Basic程序段：s = 0: i = 1 Do While s 10 s = s + i i = i + 2 Loop該程序段運(yùn)行后，s的值是_。35. 有如下Visual Basic程序段：x = 3 Fo

13、r i = 3 To 6 If x 15 Then x = x * i Else x = x + i End If Next i該程序段運(yùn)行后，x的值是_。36如下程序運(yùn)行后輸出的結(jié)果為： _。Private sub test36( )Dim i as integer, j as integerDim s as integerFor i=1 to 20 For j=15 to 2 step -2 S=i*j Next jNext iPrint sEnd sub37如下程序運(yùn)行后，輸出結(jié)果為_。 Private sub test( )Dim i as IntegerDim Arr(1 to 10

14、) as integerFor i =1 to 10Arr( i )= i * iNext iPrint Arr( 8 )End Sub四、程序填空或改錯(cuò)（本大題共5題，每空2分，共26分）38有如下程序，缺少一變量定義語句，請(qǐng)補(bǔ)充完整：（注：輸出的結(jié)果為 250000）Private Sub TestDim a as Integer 定義變量sumSum=0For a =1 to 1000 step 2Sum=Sum+aNext aPrint SumEnd Sub39.一個(gè)酵母細(xì)胞每一分鐘分裂為2個(gè)，在下一分鐘，就有4個(gè)細(xì)胞，然后，8個(gè)、16個(gè)、以此類推。一個(gè)酵母細(xì)胞，經(jīng)過多少分鐘后數(shù)目超過

15、250個(gè)。解決此問題的部分程序如下：Dim n as long ,x as longn = 1 : x = 2Do while x = 100n = n + 1x = x2Loop問：（1）為了實(shí)現(xiàn)這一目標(biāo)，程序劃線處的表達(dá)式應(yīng)更正為_。（2）運(yùn)行更正后的程序，在經(jīng)過_分鐘后細(xì)胞數(shù)目超過250個(gè)。40如下是計(jì)算圓面積的VB界面和所有程序代碼：（1）由VB界面和程序代碼可知，用于輸入圓半徑的文本框?qū)ο竺麨椋篲。（2）為實(shí)現(xiàn)圓面積的計(jì)算，用戶除了點(diǎn)擊計(jì)算按鈕，還可以執(zhí)行的操作有:_。41把整數(shù)3025從中剪開分為30和25，將這兩個(gè)數(shù)之和平方：（30+25）2=3025，則其計(jì)算結(jié)果又等于原數(shù)。求

16、所有符合 這樣條件 的四位數(shù)，將下面程序中畫線處填寫完整。（1）_（2）_Private Sub Command1_Click()Dim n as Integer, a as Integer, x as IntegerDim n1 as Integer, n2 as IntegerList1.ClearFor a=32 to 99n=a*a (1) n2=n mod 100x=n1+n2if (2) then List1.AddItem Str( n )Next aEnd Sub42某地出租車計(jì)價(jià)方式如下：3公里內(nèi)（包括3公里）起步價(jià)10元； 超過3公里，但10公里內(nèi)，則3公里內(nèi)收費(fèi)10元，超出部分每公里2元；如果超過10公里，則10公里內(nèi)收費(fèi)24元，超出部分每公里3元。其程序?qū)崿F(xiàn)如下：Private Sub Command1_Click( )x=val( Text1.Text )if x10 then y = (2) if x=b and b=c and a0_30_1_三、 讀程序（本大題共8個(gè)小題，每題2分，共16分）31_ Love1314_