五套二級(jí)VB考試模擬試題

-.z.VB模擬試卷一一、單選題1.VisualBasic變量命名不超過(guò)個(gè)字符。A.255 B.256 C.125 D.1262.跳出FORNE*T循環(huán)程序，可使用語(yǔ)句。A.E*IT B.END C.E*ITFOR D.E*ITDO3.表達(dá)式"169"+"196"+200的值是。A.169196100 B.565 C.169396 D.3652004.窗體的BORDERSTYLE屬性取值種類為。A.3 B.4 C.5 D.65.利用SHAPE控件可設(shè)置種形狀。A.5 B.6 C.7 D.86.以下是"計(jì)時(shí)器”控件的重要屬性。A.BACKCOLOR B.STRETCHC.TIMER D.INTERVALA.CLICK B.LOADC.SCROLL D.MOUSEMOVE8.結(jié)束當(dāng)前打印作業(yè)的方法為。A.ENDDOC B.KILLDOCC.NEWPAGE D.END9.打開(kāi)"APIVIEWER外接程序”應(yīng)使用菜單。A.視圖 B.外接程序 C.工具 D.工程10.以下控件不屬于DATA控件綁定的內(nèi)部控件。A.CHECKBO* B.TE*TBO*C.LABEL D.TIMER11.MOUSEPOINTER屬性取值，可設(shè)置鼠標(biāo)的自定義圖標(biāo)。A.3 B.8 C.15 D.9912.以下不屬于表達(dá)式Chr(Int(89+Rnd*5))的生成*圍。A.\ B.[ C.A D.]13.以下代碼，循環(huán)執(zhí)行次。DimnForn=1To50Step5T*tresult.Te*t=Str(n)Ne*tA.12 B.10 C.50 D.1114.以下各種高級(jí)語(yǔ)言中，不是面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言。A.VISUALC++ B.PASCALC.DELPHI D.VISUALBASIC15.下列命令中可實(shí)現(xiàn)對(duì)隨機(jī)文件的讀操作。A.WRITE B.GETC.INPUT D.PUT16.VisualBasic中"剪貼板”對(duì)象的名稱為。A.COPY B.CLIPBOARDC.CLIP D.BOARD二、填空題1.通過(guò)數(shù)據(jù)控件Data1連接C:\vb6\Students.mdb數(shù)據(jù)庫(kù)，則需設(shè)置Connect為，DatabaseName為。2."計(jì)時(shí)器”控件常用的兩個(gè)屬性為、。3.Shape控件的屬性取值為時(shí)，形狀為"圓”。4.代數(shù)式9e6ln6的VisualBasic表達(dá)式為。5.表達(dá)式CHR(ASC("*"))的值為。6.以下代碼執(zhí)行的循環(huán)次數(shù)為。DimnumNum=200DoT*tresult.te*t=Str(num)Num=num+1LoopWhilenum<1097.代碼Picture1.Circle(1200,1000),750實(shí)現(xiàn)的功能為。8.代碼RetVal=Shell("CALC.E*E",1)實(shí)現(xiàn)的功能為。9.文件系統(tǒng)控件主要包括、、。10.Active*控件的擴(kuò)展名為。三、程序填空1.以下代碼用于實(shí)現(xiàn)：從鍵盤上輸入10個(gè)整數(shù)，并放入一個(gè)一維數(shù)組中，然后將其前5個(gè)元素與后5個(gè)元素對(duì)換，即：第1個(gè)元素與第10個(gè)元素互換，第2個(gè)元素與第9個(gè)元素互換……第5個(gè)元素與第6個(gè)元素互換。分別輸出數(shù)組原來(lái)各元素的值和對(duì)換后各元素的值。OptionBase1PrivateSubForm_Click()Arr=Array(1,2,3,4,5,6,7,8,9,10)ForI=1to10PrintArr(I);Ne*tIPrintForI=1to5For(1)T=Arr(I)(2)(3)Ne*tjNe*tIFor(4)PrintArr(I)Ne*tIEndSub2.利用文件系統(tǒng)控件DrivelistBo*、DirlistBo*、FilelistBo*、boBo*控件設(shè)計(jì)如圖1所示的窗體，要求：改變DrivelistBo*內(nèi)容，DirlistBo*、FilelistBo*發(fā)生相應(yīng)改變；改變boBo*內(nèi)容，F(xiàn)ilelistBo*發(fā)生響應(yīng)改變。按要求填寫如下代碼：PrivateSubDrive1_Change()(1)EndSubPrivateSubDir1_Change()(2)EndSubPrivateSubCombo*1_Change()(3)EndSubPrivateSubbo*1_click()(4)EndSub圖1圖2按要求完成如下代碼填空：PrivateSubcmde*it_Click()Beep(1)EndSubPrivateSubhsbspeed_Change()(2)EndSubPrivateSubhsbspeed_Scroll()(3)EndSub四、編程題1.編程：如圖3所示布局控件（圖像、標(biāo)簽、文本框、命令按鈕）當(dāng)分別按下鼠標(biāo)左、右鍵時(shí)，在文本框中依次出現(xiàn)"按下鼠標(biāo)左鍵”，"按下鼠標(biāo)右鍵”，按"結(jié)束”按鈕將退出運(yùn)行。保存為文件名"按鍵”。2.如圖4、圖5所示建立菜單"色彩”，"大小”以及子菜單。要求：當(dāng)選擇"紅色”，"藍(lán)色”，"白色”時(shí)，窗體背景色分別變?yōu)榧t、藍(lán)、白。當(dāng)選擇"小”，"大”時(shí)，窗體在正常和最大化之間切換。當(dāng)選擇"結(jié)束”時(shí)，退出程序運(yùn)行。保存文件名為"顏色”。圖3圖4圖5VB模擬試卷一參考答案一、單選題1.A 2.C 3.C 4.D 5.B 6.D 7.C 8.B9.B 10.D 11.D 12.C 13.B 14.B 15.B 16.B二、填空題1.ACCESS C:\vb6\Students.mdb2.ENABLED INTERVAL3.SHAPE 34.9*E*P（6）*LOG（6）5.*6.17.畫(huà)圓，圓心坐標(biāo)為(1200,1000)，半徑為7508.執(zhí)行CALC.E*E文件，打開(kāi)"計(jì)算器”9.DrivelistBo* DirlistBo* FilelistBo*10.OCZ三、程序填空1.（1）j=6To10（2）Arr(I)=Arr(j)（3）Arr(j)=T（4）I=1To102.（1）Dir1.path=Drive1.Drive（2）File1.Path=Dir1.Path（3）File1.Pattern=bo*1.Te*t（4）File1.Pattern=bo*1.Te*t3.（1）End（2）t*tspeed.Te*t=Str(hsbspeed.Value)+"km/hr"（3）hsbspeed_Change四、編程題1.程序參考答案：OptionE*plicitPrivateSubcmde*it_Click()EndEndSubIfButton=1Thent*tresult.Te*t="鼠標(biāo)左鍵被按下"EndIfIfButton=2Thent*tresult.Te*t="鼠標(biāo)右鍵被按下"EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,*AsSingle,YAsSingle)t*tresult.Te*t=""EndSub2.程序參考答案：OptionE*plicitPrivateSubForm_Load()MNUWHITE.Enabled=FalseMNUSMALL.Enabled=FalseEndSubPrivateSubMNUBLUE_Click()FRMCOLOR.BackColor=QBColor(1)MNUBLUE.Enabled=FalseMNURED.Enabled=TrueMNUWHITE.Enabled=TrueEndSubPrivateSubMNUE*IT_Click()EndEndSubPrivateSubMNULARGE_Click()FRMCOLOR.WindowState=2MNULARGE.Enabled=FalseMNUSMALL.Enabled=TrueEndSubPrivateSubMNURED_Click()FRMCOLOR.BackColor=QBColor(4)MNURED.Enabled=FalseMNUBLUE.Enabled=TrueMNUWHITE.Enabled=TrueEndSubPrivateSubMUNSMALL_Click()FRMCOLOR.WindowState=0MNUSMALL.Enabled=FalseMNULARGE.Enabled=TrueEndSubPrivateSubMNUWHITE_Click()FRMCOLOR.BackColor=QBColor(15)MNUWHITE.Enabled=FalseMNURED.Enabled=TrueMNUBLUE.Enabled=TrueEndSubVB模擬試卷二一、單選題（15分，每小題1分）1.類是對(duì)象的抽象，對(duì)象則是類的具體化。VisualBasic集成開(kāi)發(fā)環(huán)境中的工具箱中各類圖標(biāo)對(duì)應(yīng)的是，而在窗體上建立的一個(gè)控件對(duì)應(yīng)的是。A.對(duì)象，類 B.對(duì)象，實(shí)體 C.類，對(duì)象 D.實(shí)體，類2.下面關(guān)于對(duì)象的描述中，是錯(cuò)誤的。A."對(duì)象就是自定義結(jié)構(gòu)變量”B."對(duì)象代表系統(tǒng)中所創(chuàng)建的的一個(gè)實(shí)體”C."對(duì)象是一個(gè)狀態(tài)和操作（或方法）的封裝體”D."對(duì)象之間通過(guò)消息進(jìn)行通信”3.表達(dá)式"123"+"A"&&100的值是。A.123100 B.123A100 C."123A4.設(shè)Current*=50，CurrentY=100，執(zhí)行指令"Line(100,20)-Step(300,500)”后，CurrentY=。A.400 B.500 C.520 D.6005.若要設(shè)置命令按鈕具有圖形特性可通過(guò)屬性來(lái)進(jìn)行。A.Appearance B.BackStyle C.Bordestyle D.Style6.下面的四個(gè)VisualBasic邏輯表達(dá)式語(yǔ)法中，正確的是。A.*>y.And.*<>y B.*>y~zC.*>yAnd<>z D.*>yAndy<>z7.數(shù)組聲明Dim*(5,-2to3,2)共有個(gè)元素。A.50 B.60 C.90 D.1088.數(shù)據(jù)類型中的變體型可以包括數(shù)值型、日期型、對(duì)象型和字符型等數(shù)據(jù)，此外，它還含4個(gè)特殊的數(shù)據(jù)：和Empty。A.Null、Error、Object B.Null、Error、NothingC.Null、Error、Type D.Null、Error、Data9.從函數(shù)子過(guò)程退出，并返回到主調(diào)過(guò)程，可使用語(yǔ)句。A.E*it B.Return C.E*itSub D.E*itFunction10.下列命令中可實(shí)現(xiàn)對(duì)順序文件的寫操作。A.Print B.LineInput C.Input D.Put11.在VisualBasic中要將一個(gè)窗體從內(nèi)存中釋放，應(yīng)該使用以下語(yǔ)句中的。A.Close B.Hide C.Stop D.UnLoad12.設(shè)置窗體中鼠標(biāo)指針的形狀可通過(guò)屬性來(lái)進(jìn)行。A.Icon B.MouseIcon C.MousePointer D.Picture13.引用列表框List1最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用。A.List1.List(List1.ListCount) B.List1.List(List1.ListCount-1)C.List1.List(ListCount) D.List1.List(ListCount-1)14.Timer控件可用于后臺(tái)進(jìn)程中，可在Timer事件內(nèi)編程，要停止觸發(fā)Timer事件，可通過(guò)以下屬性。A.Enabled=False或Interval=0 B.Visible=False或Interval=0C.Enabled=False或Visible=False D.Enabled=False且Interval=015代數(shù)式Ln(1+tg2*)所對(duì)應(yīng)的VisualBasic表達(dá)式是。A.Log(1+tan(*)^2) B.Log(1+tg(*)^2C.Ln(1+tan(*)^2) D.Ln(1+tg(*)^2)二、填空題（20分，每小題2分）1.窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到文本框Te*t1上，則在設(shè)計(jì)時(shí)需要將Te*t1控件的屬性設(shè)置為。2.當(dāng)單擊滾動(dòng)條的箭頭時(shí)，要使滑塊的移動(dòng)量為50，則需通過(guò)屬性來(lái)控制。3.當(dāng)焦點(diǎn)進(jìn)入文本框Te*t1時(shí)，要自動(dòng)選定文本框開(kāi)始的5個(gè)字符，需要通過(guò)代碼和Te*t1.SelLength=來(lái)實(shí)現(xiàn)。4.選擇通用對(duì)話框的方法，可打開(kāi)另存為對(duì)話框。5.對(duì)于窗體上的菜單按鈕，如果不允許顯示，應(yīng)通過(guò)屬性進(jìn)行設(shè)置。6.對(duì)于正在使用的動(dòng)態(tài)數(shù)組d()，要增加2個(gè)單元，則應(yīng)使用語(yǔ)句。7.格式輸出函數(shù)Format(6543.21,"##,###.000")的顯示結(jié)果為。8.繪制圓心坐標(biāo)為(1000,500)，半徑為300的圓，其代碼為。9.在VisualBasic中聲明靜態(tài)變量的關(guān)鍵字是。10.表達(dá)式Str(Int(-2.3)+Sgn(6)+Sqr(25))的值為。三、程序填空（20分，每格2分）1.本程序隨機(jī)產(chǎn)生N（15）個(gè)1到5的數(shù)字，按數(shù)字降序排序后，將連續(xù)出現(xiàn)的數(shù)字用壓縮形式顯示。例如，連續(xù)3個(gè)數(shù)字4，則顯示3*4，參見(jiàn)圖1。圖1PrivateSubmand1_Click()ConstN=15Dima%(1ToN)Dimc%,i%,j%,m%Fori=1ToNa(i)=Int((1))Printa(i);Ne*tiPrint:Print"排序";Fori=1ToN-1 ′選擇法排序m=iForj=(2)Ifa(j)>=a(m)Then(3)Ne*tjt=a(i):a(i)=a(m):a(m)=tNe*tiFori=1ToNPrinta(i);Ne*tiPrint:Print"壓縮顯示";i=1DoWhilei<=N ′相同元素壓縮顯示c=1Ifi<NThenj=i+1DoWhilea(i)=a(j)(4)Ifj<NThenj=j+1ElseE*itDoLoopIfc=1ThenPrinta(i);ElsePrintc;"*";a(i);"";i=(5)LoopEndSub2.DTOH子過(guò)程是將十進(jìn)制整數(shù)轉(zhuǎn)換成十六進(jìn)制整數(shù)，參數(shù)D為要轉(zhuǎn)換的十進(jìn)制整數(shù)，參數(shù)h為轉(zhuǎn)換結(jié)果。PublicSubDTOH(ByValDAsInteger,hAsString)DimtAsInteger,cAsString,rAsIntegerh=""IfD<0Thent=-DElse(1)DoWhile(2)r=t(3)t=t＼16Ifr<10Thenh=r&hElseh=(4)&hEndIfLoopIfD<0Thenh="-"&hEndSubmand1_Click事件用于調(diào)用DTOH函數(shù)，將輸入到文本框Te*t1的十進(jìn)制整數(shù)轉(zhuǎn)換成十六進(jìn)制字符串，并顯示轉(zhuǎn)換結(jié)果。例如，Te*t1中的值為"-171”，轉(zhuǎn)換結(jié)果顯示(-171)10=(-ab)16PrivateSubmand1_Click()Dimhs$(5)Print"("&Te*t1&")"&"10=("&hs&")16"EndSub四、編程題（45分）1.打開(kāi)軟盤根目錄上的d1.vbp工程，補(bǔ)充程序，當(dāng)單擊命令按鈕時(shí)，可在文本框顯示出100～999之間的水仙化數(shù)的個(gè)數(shù)（其各位數(shù)字立方和等于該數(shù)），并將統(tǒng)計(jì)結(jié)果以隨機(jī)文件形式存入A:＼d1.dat文件中。（10分）2.編一個(gè)完整的程序，要求如下（35分）：（1）參見(jiàn)圖2、圖3，在Form1窗體上放置一個(gè)標(biāo)簽框、一個(gè)命令按鈕。窗體的標(biāo)題設(shè)置（2）選擇快捷菜單的"產(chǎn)生”菜單項(xiàng)時(shí)，利用隨機(jī)函數(shù)產(chǎn)生10個(gè)大寫字母的回文詞，每個(gè)回文詞長(zhǎng)度在2～10之間（所謂回文詞就是組成字符串的字母左右對(duì)稱）并按行顯示在標(biāo)簽內(nèi)。（10分）圖2圖3（3）選擇快捷菜單的"窗體2”菜單項(xiàng)，打開(kāi)Form2窗體；選擇"結(jié)束”菜單項(xiàng)，停止程序的運(yùn)行。（5分）（4）單擊Form2窗體上的"繪圖”按鈕，用Line方法繪制0～2π之間參數(shù)方程*=asin3θsin2θ，y=asin3θcos2θ圖形，其中a為圖形框的高度的一半，當(dāng)單擊"返回”按鈕，回到Form1窗體。（7分）（5）在軟盤根目錄下將工程保存為D2.VBP、Form1窗體為D21.FRM、Form2窗體為D22.FRM，并且通過(guò)"文件|生成...e*e”命令將工程生成A:＼D2.e*e文件。（5分）VB模擬試卷二參考答案一、單選題1.C 2.A 3.C 4.C 5.D 6.D 7.D 8.B9.D 10.A 11.D 12.C 13.B 14.A 15.A二、填空題1.Tabinde* 02.Smallchange3.Te*t1.SelStart=0 54.ShowSave5.Visible6.ReDimd(Ubound(d)+2)7.6,543.2108.Circle(1000,500),8009.Static10.3三、程序填空1.（1）Rnd*5+1（2）i+1ToN（3）m=j（4）c=c+1（5）i+c2.（1）t=D（2）t>0（3）Mod16（4）Chr(r+55)（5）CallDTOH(Te*t1,hs)四、編程題1.程序參考答案：PrivateSubmand1_Click()Dimi,a,b,cAsIntegerTe*t1.Te*t="Themunberof水仙花"n=0Fori=100To999a=i\100b=i\10-a*10c=i-a*100-b*10If(i=a*a*a+b*b*b+c*c*c)Thenn=n+1EndIfNe*tTe*t1.Te*t=nfilenum=FreeFileOpen"a:\a1.dat"ForOutputAsfilenumPrint#filenum,Te*t1.Te*tClosefilenumEndSub2.程序參考答案：（1）Form1：PrivateSubbo1_DblClick()List1.AddItembo1.SelTe*tbo1.Te*t=""EndSubPrivateSubmntDing_Click()Dimi,l,kAsIntegerDimstrAsStringDima(1To10)AsStringList1.ClearFork=1To10l=Rnd*8+2Fori=1Tol/2+1c=Rnd*25+65a(i)=Chr(c)a(l+1-i)=Chr(c)Ne*tstr=""Fori=1Tol+1str=str&a(i)Ne*tFori=1To10a(i)=""Ne*tList1.AddItemstrNe*tEndSubPrivateSubmntE*it_Click()EndEndSubPrivateSubmntWindows2_Click()Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubmand1_Click()Dim*0,y0,*,y,r,aPicture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Width=Picture1.HeightPicture1.Scale(-3.14159,-3.14159)-(3.14159,3.14159)a=Picture1.ScaleWidth/2*0=0y0=0Fors=0To2*3.14159Step0.001*=a*sin(3*s)*sin(2*s)y=a*sin(3*s)*cos(2*s)Picture1.Line(*0,y0)-(*,y)*0=*y0=yNe*tsEndSubPrivateSubmand2_Click()UnloadMeLoadForm1Form1.ShowEndSubVB模擬試卷三一、單選題1.下列不是VisualBasic的對(duì)象。A.命令按鈕 B.變量 C.正文框 D.窗體2.下列方法可在程序執(zhí)行時(shí)移動(dòng)對(duì)象。A.LINE B.MOVE C.CIRCLE D.PSET3.在情況下，"FORM_MOUSEMOVE()”過(guò)程會(huì)執(zhí)行。A.單擊窗體可用區(qū)域 B.放開(kāi)鼠標(biāo)按鍵時(shí)C.在窗體可用區(qū)域中移動(dòng)鼠標(biāo) D.按下鼠標(biāo)右鍵4.在情況下，"FORM_DRAGDROP()”過(guò)程會(huì)執(zhí)行。A.拖拽對(duì)象并放開(kāi)鼠標(biāo)按鍵時(shí) B.移動(dòng)鼠標(biāo)時(shí)C.拖拽對(duì)象到窗體外時(shí) D.按下鼠標(biāo)左鍵5.MONDIALOG1.ACTION=4代碼，打開(kāi)對(duì)話框。A.OPEN B.另存為 C.字型 D.打印機(jī)6.屬性是縮放圖片的大小。A.AUTOSIZE B.STRETCH C.VISIBLE D.ENABLE7."POINT”方法的作用是。A.繪制點(diǎn) B.繪制線C.顯示象素色彩 D.繪制圓8.打印窗體使用方法。A.POINT B.PAINTPICTUREC.PRINTFORM D.PSET9.下列程序代碼，以方式傳遞數(shù)據(jù)。FunctionResult(ByValMyData)…EndFunctionA.ByVal（數(shù)值） B.Byreference（參考）C.條件不足，視程序代碼而定 D.遞歸10.以下語(yǔ)句執(zhí)行的結(jié)果為。PrivateSubForm_Click()StaticSumAsIntegerForI=1To100Sum=Sum+INe*tIPrintSumEndSubA.5000 B.5050 C.1200 D.506511.Active*控件的擴(kuò)展名為。A.FRM B.VBP C.OC* D.VBA12.ListBo*和boBo*的STYLE屬性的取值種類為。A.2，2 B.2，3 C.3，2 D.3，313.ToolBar控件通常和控件一起使用創(chuàng)建工具欄。A.DBGRID B.LISTBO*C.TE*T D.IMAGELIST14.以下代碼實(shí)現(xiàn)功能。FillStyle=0Circle(600,1000),800,,,,3A.圓 B.實(shí)心橢圓C.空心橢圓 D.橢圓15.不屬于打印字體屬性。A.FontItalic B.FontUnderlineC.FontTransparent D.FontColor16.控件的功能類似與資源瀏覽器，也可訪問(wèn)WEB頁(yè)。A.WINSOCK B.WEBBROWSERC.DATA D.PROGRESSBAR二、填空題1.激活屬性窗口，可按鍵。2.代數(shù)式8e3ln2的VisualBasic表達(dá)式為。3.窗體中有三個(gè)命令按鈕和兩個(gè)文本框，要將焦點(diǎn)定位到第二個(gè)文本框，必須設(shè)置該控件的屬性為。4.通過(guò)數(shù)據(jù)控件Data1連接C:\vb6\Parts.mdb數(shù)據(jù)庫(kù)，則需設(shè)置Connect為，DatabaseName為。5.Timer定時(shí)器控件的屬性以為單位。6.Listbo*控件和boBo*控件相同的重要方法是、、。7.ProgressBar控件的進(jìn)度顯示方式為分段，應(yīng)設(shè)置屬性數(shù)值為。8.語(yǔ)句FORN=1TO50STEP3的循環(huán)次數(shù)為。9.設(shè)置通用對(duì)話框的屬性為，可打開(kāi)顏色對(duì)話框。10.控件只能使用無(wú)聲的AVI動(dòng)畫(huà)；控件可以播放有聲的.avi文件。三、程序填空1.編寫代碼用于實(shí)現(xiàn)以下功能：建立并輸出一個(gè)10×10的矩陣，該矩陣對(duì)角線元素為1，其余元素均為0。PrivateSubForm_Click()Dimmat(10,10)ForI=1to10Forj=1to10If(1)Then(2)Else(3)EndIfNe*tjNe*tIForI=1to10Forj=1to10(4)Ne*tjPrintNe*tIEndSub2.編寫程序，打印如下所示的"數(shù)字金字塔”：1121123211234321………………12345678987654321PrivateSubForm_Click()ForI=1to9Forj=1to30-3*I(1)Ne*tjFork=1toI(2)Ne*tkFor(3)PrintkNe*tkPrintNe*tIEndSub3.用隨機(jī)數(shù)模擬旋轉(zhuǎn)的硬幣，正面用字母F表示，反面用字母B表示。PrivateSubForm_Click()N=InputBo*("請(qǐng)輸入模擬次數(shù)")F=0B=0RandomizePrintPrint"模擬次數(shù)為：";nForI=1tonIf(1)ThenPrint"B"(2)Else(3)(4)If((f+b)Mod20)=0thenPrintEndIfEndIfNe*tIPrintPrint(5)EndSub四、編程題1.編寫程序，如圖1所示實(shí)現(xiàn)相應(yīng)功能。所用控件：標(biāo)簽、文本框、命令按鈕、垂直滾動(dòng)條（MA*：1000；MIN：1）。垂直滾動(dòng)條在1~1000之間變化，標(biāo)簽顯示相應(yīng)數(shù)值，單擊"數(shù)字和”按鈕，在文本框中顯示從1+2+3+……的和。單擊"結(jié)束”按鈕，退出程序運(yùn)行。2.編寫程序，如圖2所示實(shí)現(xiàn)相應(yīng)功能。所用控件：標(biāo)簽、水平滾動(dòng)條、命令按鈕、SHAPE形狀。水平滾動(dòng)條滾動(dòng)改變圖形線條寬度。單擊"結(jié)束”按鈕退出程序。圖1圖2VB模擬試卷三參考答案一、單選題1.B 2.B 3.C 4.A 5.C 6.B 7.C 8.C9.A 10.B 11.C 12.B 13.D 14.B 15.D 16.B二、填空題1.F42.8*E*p(3)*Log(2)3.TABINDE* 04.ACCESS C:\vb6\Parts.mdb5.INTERVAL 毫秒6.ADDITEM REMOVEITEM CLEAR7.SCROLLING 08.179.ACTION 310.ANIMATION MULTIMEDIA（MCI）三、程序填空1.（1）I=j（2）Mat(I,j)=1（3）Mat(I,j)=0（4）PrintMat(I,j)2.（1）Print""（2）Printk（3）K=I-1To1Step-13.（1）Rnd<0.5（2）f=f+1（3）Print"F"（4）b=b+1（5）"F=";f,"B=";b四、編程題1.程序參考答案：OptionE*plicitPrivateSubCMDE*IT_Click()EndEndSubPrivateSubCMDSUMNUMBER_Click()DimnDimmForn=1ToVSBSUM.ValueStep1m=m+nNe*tT*TRESULT.Te*t=Str(m)EndSubPrivateSubVSBSUM_Change()lblnum="選取的數(shù)字："+Str(VSBSUM.Value)EndSubPrivateSubVSBSUM_Scroll()VSBSUM_ChangeEndSub2.程序參考答案：OptionE*plicitPrivateSubCMDCIRCLE_Click()shpgetshape.Shape=3EndSubPrivateSubCMDE*IT_Click()EndEndSubPrivateSubCMDOVAL_Click()shpgetshape.Shape=2EndSubPrivateSubCMDRECTANGLE_Click()shpgetshape.Shape=0EndSubPrivateSubCMDRNDREC_Click()shpgetshape.Shape=4EndSubPrivateSubCMDRNDSQR_Click()shpgetshape.Shape=5EndSubPrivateSubCMDSQUARE_Click()shpgetshape.Shape=1EndSubPrivateSubhsbbar_Change()shpgetshape.BorderWidth=hsbbar.ValueEndSubPrivateSubhsbbar_Scroll()shpgetshape.BorderWidth=hsbbar.ValueEndSubVB模擬試卷四一、單選題（15分，每小題1分）1.類是對(duì)象的抽象，對(duì)象則是類的具體化。VisualBasic集成開(kāi)發(fā)環(huán)境中的工具箱中各類圖標(biāo)對(duì)應(yīng)的是，而在窗體上建立的控件對(duì)應(yīng)的是。A.對(duì)象，類 B.對(duì)象，實(shí)體 C.類，對(duì)象 D.實(shí)體，類2.VisualBasic程序設(shè)計(jì)語(yǔ)言中，響應(yīng)對(duì)象的外部動(dòng)作稱為，而對(duì)象可以執(zhí)行的動(dòng)作或?qū)ο蟊旧淼男袨閯t稱為。A.過(guò)程，事件 B.屬性，方法 C.方法，事件 D.事件，方法3.表達(dá)式"123"+"100"+100的值是。A.123200 B.323 C."123100100" D.1231001004.設(shè)Current*=400，CurrentY=200，執(zhí)行指令"Line－(300,500),,BF”后，CurrentY=。A.500 B.700 C.400 D.3005.按照VisualBasic默認(rèn)規(guī)定，數(shù)組聲明Dimc(3,4,2to5)共有個(gè)元素。A.36 B.80 C.60 D.486.聲明一個(gè)長(zhǎng)度為256個(gè)字節(jié)的字符串變量mstr，應(yīng)使用。A.Dimmstr B.Dimmstr(256)AsStringC.DimmstrAsString*256 D.DimmstrAsString[256]7.數(shù)據(jù)類型中的數(shù)值數(shù)據(jù)類型可以包括：Integer、、Currency和Byte。A.Double、Long、Single B.Double、Long、DataC.Double、Single、Object D.Double、Long、Variant8.從子過(guò)程退出，并返回到主調(diào)過(guò)程，可使用語(yǔ)句。A.E*it B.Return C.E*itSub D.StopSub9.下列命令中可實(shí)現(xiàn)對(duì)隨機(jī)文件的讀操作。A.Write B.Get C.Input D.Put10.在VisualBasic中將一個(gè)窗體從內(nèi)存中釋放時(shí)，允許用戶進(jìn)行控制，一般應(yīng)該在事件中編程處理。A.LostFocus B.QueryUnload C.Click D.UnLoad11.設(shè)置窗體標(biāo)題欄上的圖標(biāo)可通過(guò)屬性來(lái)實(shí)現(xiàn)。A.Icon B.Image C.MouseIcon D.Picture12.引用組合框Bo1最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用。A.bo1.List(bo1.ListCount)B.bo1.List(bo1.ListCount-1)C.bo1.List(ListCount)D.bo1.List(ListCount-1)13.Timer控件可用于后臺(tái)進(jìn)程中，可在Timer事件內(nèi)編程，要觸發(fā)Timer事件，必須通過(guò)以下屬性。A.Enabled、Interval B.Visible、IntervalC.Enabled、Visible D.Tag、Interval14.下列說(shuō)法正確的是。A.Move屬性用于移動(dòng)窗體或控件，并可改變其大小B.Move屬性用于移動(dòng)窗體或控件，但不可改變其大小C.Move方法用于移動(dòng)窗體或控件，但不可改變其大小D.Move方法用于移動(dòng)窗體或控件，并可改變其大小15.代數(shù)式所對(duì)應(yīng)的VisualBasic表達(dá)式是。A.E*p(-2.3)+Sqr(***+y*y)/Abs(*+y)B.E*p^(-2.3)+Sqr(***+y*y)/Abs(*+y)C.E*p(-2.3)+Sqr(**2+y*2)/Abs(*+y)D.E*p(-2.3)+Sqr(*^2+y^2/Abs(*+y))二、填空題（20分，每小題2分）1.窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到命令按鈕mand1上，則在設(shè)計(jì)時(shí)需要將mand1控件的屬性設(shè)置為。2.當(dāng)單擊垂直滾動(dòng)條的箭頭時(shí)，要使滑塊的移動(dòng)量為15，則需通過(guò)屬性來(lái)控制。3.當(dāng)焦點(diǎn)進(jìn)入文本框Te*t1時(shí)，要自動(dòng)選定文本框第1到第6個(gè)位置上的6個(gè)字符，則需要通過(guò)代碼和Te*t1.SelLength=來(lái)實(shí)現(xiàn)。4.對(duì)通用對(duì)話框選擇方法，可顯示"打開(kāi)”對(duì)話框。5.對(duì)于窗體上的命令按鈕，如果不允許進(jìn)行操作，應(yīng)通過(guò)屬性進(jìn)行設(shè)置。6.對(duì)于正在使用的動(dòng)態(tài)數(shù)組C()，要增加1個(gè)單元，則應(yīng)使用語(yǔ)句。7.格式輸出函數(shù)Format(1234.56,"##,##0.000")的顯示結(jié)果為。8.為了使一個(gè)Picture控件能自動(dòng)根據(jù)裝入的圖片調(diào)整大小，應(yīng)設(shè)置該控件的屬性為True。9.要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動(dòng)排序，應(yīng)設(shè)置該控件的屬性為True。10.在VisualBasic中要為對(duì)象變量賦值的關(guān)鍵字是。三、程序填空（20分，每小格2分）圖1PrivateSubmand1_Click()ConstN=15Dima(1ToN)AsString*1,cDimcount%,i%,j%,k%Fori=1ToNa(i)=Chr(Int((1)))Printa(i);Ne*tiPrintFori=1ToN-1 ′選擇法排序k=iForj=(2)Ifa(j)>a(k)Then(3)Ne*tjc=a(i):a(i)=a(k):a(k)=cNe*tiFori=1ToN ′輸出排序結(jié)果Printa(i);"";Ne*tiPrinti=1DoWhilei<=N ′壓縮顯示相同元素count=1Ifi<NThenj=i+1DoWhilea(i)=a(j)count=(4)Ifj<NThenj=j+1ElseE*itDoLoopIfcount=1ThenPrinta(i);"";ElsePrintcount;"*";a(i);"";i=(5)LoopEndSub2.HTOD函數(shù)是將十六進(jìn)制整數(shù)字符串轉(zhuǎn)換成十進(jìn)制整數(shù)，參數(shù)Hsr為要轉(zhuǎn)換的十六進(jìn)制整數(shù)字符串。PublicFunctionHTOD(ByValHsrAsString)AsIntegerDimthsrAsString,iAsInteger,dAsInteger,fAsString,cAsStringthsr=UCase(Trim(Hsr))d=0IfLeft(thsr,1)="-"Thenf="-"thsr=Mid(thsr,2)EndIfFori=(1)c=Mid(thsr,i,1) ′字母i與數(shù)字1Ifc>="A"Thend=(2)-Asc("A")+10Elsed=d*16+Val(c)EndIfNe*tiIff="-"Thend=(3)(4)EndFunctionmand1_Click事件用于調(diào)用HTOD函數(shù)，將輸入到文本框Te*t1中的十六進(jìn)制字符串轉(zhuǎn)換成十進(jìn)制整數(shù)，并顯示轉(zhuǎn)換結(jié)果。例如，Te*t1中的值為"-ab”，轉(zhuǎn)換結(jié)果顯示(-ab)16=(-171)10。PrivateSubmand1_Click()Dim*AsInteger*=(5)Print"("&Te*t1&")"&"16=("&*&")10"EndSub四、編程題（45分）1.打開(kāi)軟盤根目錄上的c1.vbp工程，補(bǔ)充程序，當(dāng)單擊命令按鈕時(shí)，可在文本框顯示出十位數(shù)為5且能被5整除的四位數(shù)的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果以隨機(jī)文件形式存入A:＼c1.dat文件中。（10分）2.編一個(gè)完整程序，要求如下（35分）：（1）參見(jiàn)圖2、圖3，在Form1窗體上放置一個(gè)列表框，并用你的**和**號(hào)在窗體上建立兩項(xiàng)菜單，在**號(hào)菜單下有名為"應(yīng)用”與"結(jié)束”的兩個(gè)子菜單；在Form2窗體上放置一個(gè)圖形框，建立可通過(guò)鼠標(biāo)右鍵彈出的菜單（快捷菜單），含有"畫(huà)圖”和"返回”兩個(gè)菜單項(xiàng)，F(xiàn)orm2窗體的標(biāo)題為你的**號(hào)。（8分）圖2圖3（2）當(dāng)單擊"”菜單，利用隨機(jī)函數(shù)自動(dòng)在列表框產(chǎn)生10個(gè)長(zhǎng)度在2～10之間小寫字母的字符串，每個(gè)字符串的組成字母左右對(duì)稱。（10分）（3）單擊"”菜單的"應(yīng)用”菜單項(xiàng)，打開(kāi)Form2窗體；單擊"結(jié)束”菜單項(xiàng)時(shí)，停止程序的運(yùn)行。（5分）（4）單擊Form2窗體上的"畫(huà)圖”菜單，用Pset方法繪制參數(shù)方程*=rCos4αCosα，y=rCos4αSinα在0～2π之間的圖形，其中r為半徑，取圖形框的高度（或?qū)挾龋┑囊话?；?dāng)單擊"返回”按鈕，回到Form1窗體。（7分）（5）Form1窗體、Form2窗體以及工程文件名分別設(shè)置為C21.FRM、C22.FRM和C2.VBP，保存在軟盤根目錄下，并且通過(guò)"文件|生成...e*e”命令將工程生成C2.e*e文件保存在軟盤根目錄下。（5分）VB模擬試卷四參考答案一、單選題1.C 2.D 3.B 4.A 5.B 6.C 7.A 8.C9.B 10.B 11.A 12.B 13.A 14.A 15.A二、填空題1.Tabinde* 02.Smallchange3.Te*t1.SelStart=0 64.ShowOpen5.Enabled6.ReDimC(Ubound(C)+1)7.1,234.5608.AutoSize9.Sorted10.Set三、程序填空1.（1）Rnd*10+65（2）i+1ToN（3）k=j（4）count+1（5）i+count2.（1）1ToLen(thsr)（2）d*16+Asc(c)（3）-d（4）HTOD=d（5）HTOD(Te*t1)四、編程題1.程序參考答案：PrivateSubmand1_Click()Dimi,a,b,c,dAsIntegerTe*t1.Te*t="Themunberof題意要求"n=0Fori=1000To9999a=i\1000b=i\100-a*10c=i\10-a*100-b*10d=i-a*1000-b*100-c*10If(c=5And(d=0Ord=5))Thenn=n+1EndIfNe*tTe*t1.Te*t=nfilenum=FreeFileOpen"a:\a1.dat"ForOutputAsfilenumPrint#filenum,Te*t1.Te*tClosefilenumEndSub2.程序參考答案：（1）Form1：PrivateSubbo1_DblClick()List1.AddItembo1.SelTe*tbo1.Te*t=""EndSubPrivateSubbo1_KeyPress(KeyAsciiAsInteger)Ifbo1.Te*t<>""AndKeyAscii=13Thenbo1.AddItembo1.Te*tbo1.Te*t=""EndIfEndSubPrivateSubmntDing_Click()Dimi,l,kAsIntegerDimstrAsStringDima(1To10)AsStringList1.ClearFork=1To10l=Rnd*8+2Fori=1Tol/2+1c=Rnd*25+97a(i)=Chr(c)a(l+1-i)=Chr(c)Ne*tstr=""Fori=1Tol+1str=str&a(i)Ne*tFori=1To10a(i)=""Ne*tList1.AddItemstrNe*tEndSubPrivateSubmntE*it_Click()EndEndSubPrivateSubmntWindows2_Click()Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubmand1_Click()Dim*,y,r,aPicture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Width=Picture1.HeightPicture1.Scale(-3.14159,-3.14159)-(3.14159,3.14159)r=Picture1.ScaleWidth/2Fora=0To2*3.14159Step0.001*=r*Cos(4*a)*Cos(a)y=r*Cos(4*a)*Sin(a)Picture1.PSet(*,y)Ne*taEndSubPrivateSubmand2_Click()UnloadMeLoadForm1Form1.ShowEndSubVB模擬試卷五一、單選題（15分，每小題1分）1.VisualBasic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，面向?qū)ο笙到y(tǒng)所包含的三要素是。A.屬性、事件、方法 B.控件、屬性、事件C.窗體、控件、過(guò)程 D.窗體、控件、模塊2.VisualBasic的一個(gè)應(yīng)用程序通常至少包含一個(gè)文件，該文件存貯窗體上使用的所有控件對(duì)象和有關(guān)的、對(duì)象相應(yīng)的過(guò)程和代碼。A.模塊、方法、事件、程序 B.窗體、屬性、事件、程序C.窗體、程序、屬性、事件 D.程序、屬性、事件、模塊3.表達(dá)式"321"&100+"200"的值是。A.321300 B.321100200 C."321300" D.6214.設(shè)Current*=200，CurrentY=350，執(zhí)行指令"Line-Step(300,600),,B”后，Current*=。A.200 B.300 C.500 D.6005.按照VisualBasic默認(rèn)規(guī)定，數(shù)組聲明Dimmarray(2,1to3,5)共有個(gè)元素。A.20 B.30 C.54 D.726.聲明一個(gè)長(zhǎng)度為20個(gè)字節(jié)的字符串變量mstr，應(yīng)使用。A.Dimmstr=20 B.Dimmstr(20)AsStringC.DimmstrAsString*20 D.DimmstrAsString(20)7.數(shù)據(jù)類型中的數(shù)值數(shù)據(jù)類型可以包括：、Double、Currency和Byte。A.Integer、Long、Single B.Integer、Long、DataC.Integer、Object、Single D.Integer、Long、Variant8.從循環(huán)體Do…Loop中退出并繼續(xù)執(zhí)行程序，可使用語(yǔ)句。A.E*it B.E*itLoop C.E*itSub D.E*itDo9.下列命令中可實(shí)現(xiàn)對(duì)二進(jìn)制文件的寫操作。A.Write B.Get C.Input D.Put10.在VisualBasic中要將一個(gè)窗體裝載到內(nèi)存中進(jìn)行預(yù)處理，但不顯示，應(yīng)該使用語(yǔ)句。A.Show B.Hide C.Load D.UnLoad11.設(shè)置窗體最小化時(shí)的圖標(biāo)可通過(guò)屬性來(lái)實(shí)現(xiàn)。A.Icon B.Image C.MouseIcon D.Picture12.如果列表框List1中已有10項(xiàng)數(shù)據(jù)，應(yīng)使用語(yǔ)句將數(shù)據(jù)"Mydata”插入到列表框的第3項(xiàng)。A.List1.AddItem"Mydata",3 B.List1.Insert"Mydata",3C.List1.AddItem"Mydata",2 D.List1.Insert"Mydata",213.Timer控件可用于后臺(tái)進(jìn)程中，要使Timer事件每1秒鐘觸發(fā)一次，則需設(shè)置Interval屬性為。A.1 B.10 C.100 D.100014.下面子過(guò)程語(yǔ)句合法的是。A.Subs1(ByValn%()) B.Subs1(nAsInteger)AsIntegerC.Functionf1%(f1AsInteger) D.Functionf1(ByValnAsInteger)15.代數(shù)式(a+b)÷(5÷c+d÷2)的VisualBasic表達(dá)式是。A.(a+b)/5/c+d/2 B.a+b/(5/c+d/2)C.(a+b)/(5/c+0.5d) D.(a+b)/(5/c+d/2)二、填空題（20分，每小題2分）1.窗體上放置了若干個(gè)文本框和列表框，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到List1上，則在設(shè)計(jì)時(shí)需要將List1控件的屬性設(shè)置為。2.當(dāng)單擊水平滾動(dòng)條上的空白區(qū)域時(shí)，要使滑塊的移動(dòng)量為230，則需通過(guò)屬性來(lái)控制。3.當(dāng)焦點(diǎn)進(jìn)入文本框Te*t1時(shí)，要自動(dòng)選定文本框第3到第8個(gè)位置上的6字符，則需要通過(guò)代碼Te*t1.SelStart=和來(lái)實(shí)現(xiàn)。4.對(duì)通用對(duì)話框選擇方法，可顯示字體對(duì)話框。5.對(duì)于窗體上的復(fù)選按鈕，如果不允許進(jìn)行操作，應(yīng)通過(guò)屬性進(jìn)行設(shè)置。6.對(duì)于正在使用的動(dòng)態(tài)數(shù)組B()，要增加3個(gè)單元，則應(yīng)使用語(yǔ)句。7.格式輸出函數(shù)Format(1234.00,"###.###")的顯示結(jié)果。8.繪制圓心坐標(biāo)為(1000,1000)，半徑為800的圓，其代碼為。9.若調(diào)用過(guò)程時(shí)，采用值傳遞方式，則應(yīng)在形參說(shuō)明前添加關(guān)鍵字。10.為了使目錄列表框Dir1和驅(qū)動(dòng)器列表框Drive1之間能產(chǎn)生同步效果，必須在事件過(guò)程中加入語(yǔ)句。三、程序填空（20分，每小格2分）1.下面的程序按從小到大的順序隨機(jī)產(chǎn)生不超過(guò)20個(gè)介于100到400（包括100、400）的數(shù)，每次產(chǎn)生的一個(gè)數(shù)總大于它前面已產(chǎn)生的數(shù)，然后求產(chǎn)生的數(shù)的平均值。數(shù)組b(20)用于存放所產(chǎn)生的隨機(jī)數(shù)，運(yùn)行結(jié)果圖1所示。圖1PrivateSubmand1_Click()Dimb(20),iAsInteger,jAsInteger,sumAsSinglej=1Dore:b(j)=Int((1))Ifb(j)=400Orj=20ThenE*itDoElseIfb(j)<=b(j-1)Then′控制新產(chǎn)生的數(shù)總大于前面已產(chǎn)生的數(shù)(2)EndIf(3)Loopsum=(4)Fori=1TojPrintb(i);sum=sum+b(i)Ne*tiPrint"aver=",(5)EndSub2.新的**號(hào)由18位組成，最低位（右邊）為校驗(yàn)位，其算法是：10－（前17位之和關(guān)于10的模）。函數(shù)foe用于對(duì)18位的**號(hào)進(jìn)行校驗(yàn)。參數(shù)mstr存放**號(hào)，md為產(chǎn)生的校驗(yàn)位，若校驗(yàn)正確，函數(shù)返回"True”，否則返回"False”。PublicFunctionfoe(ByValmstr$,md%)AsBooleanDimmpAsString,msumAsIntegermsum=0(1)mp=Mid(mstr,i,1)msum=msum+Val(mp)Ne*timd=10-(2)Ifmd=(3)Thenfoe=TrueElsefoe=FalseEndIfEndFunctionmand1_Click事件用于調(diào)用foe函數(shù)，對(duì)輸入到文本框Te*t1的**號(hào)進(jìn)行校驗(yàn)，如果校驗(yàn)正確，顯示"True”，否則顯示"False”和校驗(yàn)碼值。PrivateSubmand1_Click()DimmmAsIntegerIfLen(Te*t1)<>18OrNotIsNumeric(Te*t1)ThenMsgBo*"非法數(shù)據(jù)，請(qǐng)重新輸入！"Te*t1=""(4)E*itSubEndIfIffoe(Te*t1,mm)=TrueThenPrintTrueElse(5)EndIfEndSub四、編程題（45分）1.打開(kāi)軟盤根目錄上的b1.vbp工程，補(bǔ)充程序，當(dāng)單擊命令按鈕時(shí)可在文本框顯示出700～800中所有素?cái)?shù)的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果以隨機(jī)文件形式存入A:＼b1.dat文件中。（10分）2.編一個(gè)完整的程序，要求如下（35分）：（1）參見(jiàn)圖2、圖3，在Form1窗體上放置組合框bo1、列表框List1，標(biāo)簽Label1和Label2；用你的**號(hào)建立一項(xiàng)菜單，包含兩個(gè)菜單項(xiàng)：分別為"窗體2”和"結(jié)束”，之間有分隔線。在Form2窗體上放置一個(gè)時(shí)鐘控件和圖形框，窗體的標(biāo)題設(shè)置為你的**號(hào)。（8分）（2）當(dāng)在Form1窗體的組合框中輸入新的課程名按回車后，可使該課程名加入到組合框中；當(dāng)雙擊組合框中*課程名，可使該課程加入到List1中。（7分）圖2圖3（3）當(dāng)單擊"窗體2”菜單項(xiàng)時(shí)，打開(kāi)Form2窗體，單擊"結(jié)束”菜單項(xiàng)時(shí)，停止程序的運(yùn)行。（5分）（4）在Form2窗體中建立可通過(guò)鼠標(biāo)右鍵彈出的菜單（快捷菜單）。含有"裝入圖”、"移動(dòng)”和"返回”三個(gè)菜單項(xiàng)。選擇"裝入圖”菜單項(xiàng)，在圖形框裝入clouds.bmp圖形文件；選擇"移動(dòng)”菜單項(xiàng)，圖形框按每0.1秒頻率在窗體上右向左移動(dòng)20單位；選擇"返回”菜單項(xiàng)關(guān)閉Form2窗體，顯示Form1窗體。（10分）（5）在軟盤根目錄下將工程保存為B2.VBP、Form1窗體為B21.FRM、Form2窗體為B22.FRM，并且通過(guò)"文件|生成...e*e”命令將工程生成A:＼B2.e*e文件。（5分）VB模擬試卷五參考答案一、單選題1.A 2.B 3.C 4.C 5.C 6.C 7.A 8.D9.D 10.C 11.A 12.C 13.D 14.A 15.D二、