-.z.VB模擬試卷一一、單選題1.VisualBasic變量命名不超過個字符。A.255 B.256 C.125 D.1262.跳出FORNE*T循環程序，可使用語句。A.E*IT B.END C.E*ITFOR D.E*ITDO3.表達式"169"+"196"+200的值是。A.169196100 B.565 C.169396 D.3652004.窗體的BORDERSTYLE屬性取值種類為。A.3 B.4 C.5 D.65.利用SHAPE控件可設置種形狀。A.5 B.6 C.7 D.86.以下是"計時器”控件的重要屬性。A.BACKCOLOR B.STRETCHC.TIMER D.INTERVALA.CLICK B.LOADC.SCROLL D.MOUSEMOVE8.結束當前打印作業的方法為。A.ENDDOC B.KILLDOCC.NEWPAGE D.END9.打開"APIVIEWER外接程序”應使用菜單。A.視圖 B.外接程序 C.工具 D.工程10.以下控件不屬于DATA控件綁定的內部控件。A.CHECKBO* B.TE*TBO*C.LABEL D.TIMER11.MOUSEPOINTER屬性取值，可設置鼠標的自定義圖標。A.3 B.8 C.15 D.9912.以下不屬于表達式Chr(Int(89+Rnd*5))的生成*圍。A.\ B.[ C.A D.]13.以下代碼，循環執行次。DimnForn=1To50Step5T*tresult.Te*t=Str(n)Ne*tA.12 B.10 C.50 D.1114.以下各種高級語言中，不是面向對象的程序設計語言。A.VISUALC++ B.PASCALC.DELPHI D.VISUALBASIC15.下列命令中可實現對隨機文件的讀操作。A.WRITE B.GETC.INPUT D.PUT16.VisualBasic中"剪貼板”對象的名稱為。A.COPY B.CLIPBOARDC.CLIP D.BOARD二、填空題1.通過數據控件Data1連接C:\vb6\Students.mdb數據庫，則需設置Connect為，DatabaseName為。2."計時器”控件常用的兩個屬性為、。3.Shape控件的屬性取值為時，形狀為"圓”。4.代數式9e6ln6的VisualBasic表達式為。5.表達式CHR(ASC("*"))的值為。6.以下代碼執行的循環次數為。DimnumNum=200DoT*tresult.te*t=Str(num)Num=num+1LoopWhilenum<1097.代碼Picture1.Circle(1200,1000),750實現的功能為。8.代碼RetVal=Shell("CALC.E*E",1)實現的功能為。9.文件系統控件主要包括、、。10.Active*控件的擴展名為。三、程序填空1.以下代碼用于實現：從鍵盤上輸入10個整數，并放入一個一維數組中，然后將其前5個元素與后5個元素對換，即：第1個元素與第10個元素互換，第2個元素與第9個元素互換……第5個元素與第6個元素互換。分別輸出數組原來各元素的值和對換后各元素的值。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.利用文件系統控件DrivelistBo*、DirlistBo*、FilelistBo*、boBo*控件設計如圖1所示的窗體，要求：改變DrivelistBo*內容，DirlistBo*、FilelistBo*發生相應改變；改變boBo*內容，FilelistBo*發生響應改變。按要求填寫如下代碼：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所示布局控件（圖像、標簽、文本框、命令按鈕）當分別按下鼠標左、右鍵時，在文本框中依次出現"按下鼠標左鍵”，"按下鼠標右鍵”，按"結束”按鈕將退出運行。保存為文件名"按鍵”。2.如圖4、圖5所示建立菜單"色彩”，"大小”以及子菜單。要求：當選擇"紅色”，"藍色”，"白色”時，窗體背景色分別變為紅、藍、白。當選擇"小”，"大”時，窗體在正常和最大化之間切換。當選擇"結束”時，退出程序運行。保存文件名為"顏色”。圖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.畫圓，圓心坐標為(1200,1000)，半徑為7508.執行CALC.E*E文件，打開"計算器”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="鼠標左鍵被按下"EndIfIfButton=2Thent*tresult.Te*t="鼠標右鍵被按下"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.類是對象的抽象，對象則是類的具體化。VisualBasic集成開發環境中的工具箱中各類圖標對應的是，而在窗體上建立的一個控件對應的是。A.對象，類 B.對象，實體 C.類，對象 D.實體，類2.下面關于對象的描述中，是錯誤的。A."對象就是自定義結構變量”B."對象代表系統中所創建的的一個實體”C."對象是一個狀態和操作（或方法）的封裝體”D."對象之間通過消息進行通信”3.表達式"123"+"A"&&100的值是。A.123100 B.123A100 C."123A4.設Current*=50，CurrentY=100，執行指令"Line(100,20)-Step(300,500)”后，CurrentY=。A.400 B.500 C.520 D.6005.若要設置命令按鈕具有圖形特性可通過屬性來進行。A.Appearance B.BackStyle C.Bordestyle D.Style6.下面的四個VisualBasic邏輯表達式語法中，正確的是。A.*>y.And.*<>y B.*>y~zC.*>yAnd<>z D.*>yAndy<>z7.數組聲明Dim*(5,-2to3,2)共有個元素。A.50 B.60 C.90 D.1088.數據類型中的變體型可以包括數值型、日期型、對象型和字符型等數據，此外，它還含4個特殊的數據：和Empty。A.Null、Error、Object B.Null、Error、NothingC.Null、Error、Type D.Null、Error、Data9.從函數子過程退出，并返回到主調過程，可使用語句。A.E*it B.Return C.E*itSub D.E*itFunction10.下列命令中可實現對順序文件的寫操作。A.Print B.LineInput C.Input D.Put11.在VisualBasic中要將一個窗體從內存中釋放，應該使用以下語句中的。A.Close B.Hide C.Stop D.UnLoad12.設置窗體中鼠標指針的形狀可通過屬性來進行。A.Icon B.MouseIcon C.MousePointer D.Picture13.引用列表框List1最后一個數據項應使用。A.List1.List(List1.ListCount) B.List1.List(List1.ListCount-1)C.List1.List(ListCount) D.List1.List(ListCount-1)14.Timer控件可用于后臺進程中，可在Timer事件內編程，要停止觸發Timer事件，可通過以下屬性。A.Enabled=False或Interval=0 B.Visible=False或Interval=0C.Enabled=False或Visible=False D.Enabled=False且Interval=015代數式Ln(1+tg2*)所對應的VisualBasic表達式是。A.Log(1+tan(*)^2) B.Log(1+tg(*)^2C.Ln(1+tan(*)^2) D.Ln(1+tg(*)^2)二、填空題（20分，每小題2分）1.窗體上放置了若干個文本框和命令按鈕，當窗體裝入后，要將焦點自動定位到文本框Te*t1上，則在設計時需要將Te*t1控件的屬性設置為。2.當單擊滾動條的箭頭時，要使滑塊的移動量為50，則需通過屬性來控制。3.當焦點進入文本框Te*t1時，要自動選定文本框開始的5個字符，需要通過代碼和Te*t1.SelLength=來實現。4.選擇通用對話框的方法，可打開另存為對話框。5.對于窗體上的菜單按鈕，如果不允許顯示，應通過屬性進行設置。6.對于正在使用的動態數組d()，要增加2個單元，則應使用語句。7.格式輸出函數Format(6543.21,"##,###.000")的顯示結果為。8.繪制圓心坐標為(1000,500)，半徑為300的圓，其代碼為。9.在VisualBasic中聲明靜態變量的關鍵字是。10.表達式Str(Int(-2.3)+Sgn(6)+Sqr(25))的值為。三、程序填空（20分，每格2分）1.本程序隨機產生N（15）個1到5的數字，按數字降序排序后，將連續出現的數字用壓縮形式顯示。例如，連續3個數字4，則顯示3*4，參見圖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子過程是將十進制整數轉換成十六進制整數，參數D為要轉換的十進制整數，參數h為轉換結果。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事件用于調用DTOH函數，將輸入到文本框Te*t1的十進制整數轉換成十六進制字符串，并顯示轉換結果。例如，Te*t1中的值為"-171”，轉換結果顯示(-171)10=(-ab)16PrivateSubmand1_Click()Dimhs$(5)Print"("&Te*t1&")"&"10=("&hs&")16"EndSub四、編程題（45分）1.打開軟盤根目錄上的d1.vbp工程，補充程序，當單擊命令按鈕時，可在文本框顯示出100～999之間的水仙化數的個數（其各位數字立方和等于該數），并將統計結果以隨機文件形式存入A:＼d1.dat文件中。（10分）2.編一個完整的程序，要求如下（35分）：（1）參見圖2、圖3，在Form1窗體上放置一個標簽框、一個命令按鈕。窗體的標題設置（2）選擇快捷菜單的"產生”菜單項時，利用隨機函數產生10個大寫字母的回文詞，每個回文詞長度在2～10之間（所謂回文詞就是組成字符串的字母左右對稱）并按行顯示在標簽內。（10分）圖2圖3（3）選擇快捷菜單的"窗體2”菜單項，打開Form2窗體；選擇"結束”菜單項，停止程序的運行。（5分）（4）單擊Form2窗體上的"繪圖”按鈕，用Line方法繪制0～2π之間參數方程*=asin3θsin2θ，y=asin3θcos2θ圖形，其中a為圖形框的高度的一半，當單擊"返回”按鈕，回到Form1窗體。（7分）（5）在軟盤根目錄下將工程保存為D2.VBP、Form1窗體為D21.FRM、Form2窗體為D22.FRM，并且通過"文件|生成...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的對象。A.命令按鈕 B.變量 C.正文框 D.窗體2.下列方法可在程序執行時移動對象。A.LINE B.MOVE C.CIRCLE D.PSET3.在情況下，"FORM_MOUSEMOVE()”過程會執行。A.單擊窗體可用區域 B.放開鼠標按鍵時C.在窗體可用區域中移動鼠標 D.按下鼠標右鍵4.在情況下，"FORM_DRAGDROP()”過程會執行。A.拖拽對象并放開鼠標按鍵時 B.移動鼠標時C.拖拽對象到窗體外時 D.按下鼠標左鍵5.MONDIALOG1.ACTION=4代碼，打開對話框。A.OPEN B.另存為 C.字型 D.打印機6.屬性是縮放圖片的大小。A.AUTOSIZE B.STRETCH C.VISIBLE D.ENABLE7."POINT”方法的作用是。A.繪制點 B.繪制線C.顯示象素色彩 D.繪制圓8.打印窗體使用方法。A.POINT B.PAINTPICTUREC.PRINTFORM D.PSET9.下列程序代碼，以方式傳遞數據。FunctionResult(ByValMyData)…EndFunctionA.ByVal（數值） B.Byreference（參考）C.條件不足，視程序代碼而定 D.遞歸10.以下語句執行的結果為。PrivateSubForm_Click()StaticSumAsIntegerForI=1To100Sum=Sum+INe*tIPrintSumEndSubA.5000 B.5050 C.1200 D.506511.Active*控件的擴展名為。A.FRM B.VBP C.OC* D.VBA12.ListBo*和boBo*的STYLE屬性的取值種類為。A.2，2 B.2，3 C.3，2 D.3，313.ToolBar控件通常和控件一起使用創建工具欄。A.DBGRID B.LISTBO*C.TE*T D.IMAGELIST14.以下代碼實現功能。FillStyle=0Circle(600,1000),800,,,,3A.圓 B.實心橢圓C.空心橢圓 D.橢圓15.不屬于打印字體屬性。A.FontItalic B.FontUnderlineC.FontTransparent D.FontColor16.控件的功能類似與資源瀏覽器，也可訪問WEB頁。A.WINSOCK B.WEBBROWSERC.DATA D.PROGRESSBAR二、填空題1.激活屬性窗口，可按鍵。2.代數式8e3ln2的VisualBasic表達式為。3.窗體中有三個命令按鈕和兩個文本框，要將焦點定位到第二個文本框，必須設置該控件的屬性為。4.通過數據控件Data1連接C:\vb6\Parts.mdb數據庫，則需設置Connect為，DatabaseName為。5.Timer定時器控件的屬性以為單位。6.Listbo*控件和boBo*控件相同的重要方法是、、。7.ProgressBar控件的進度顯示方式為分段，應設置屬性數值為。8.語句FORN=1TO50STEP3的循環次數為。9.設置通用對話框的屬性為，可打開顏色對話框。10.控件只能使用無聲的AVI動畫；控件可以播放有聲的.avi文件。三、程序填空1.編寫代碼用于實現以下功能：建立并輸出一個10×10的矩陣，該矩陣對角線元素為1，其余元素均為0。PrivateSubForm_Click()Dimmat(10,10)ForI=1to10Forj=1to10If(1)Then(2)Else(3)EndIfNe*tjNe*tIForI=1to10Forj=1to10(4)Ne*tjPrintNe*tIEndSub2.編寫程序，打印如下所示的"數字金字塔”：1121123211234321………………12345678987654321PrivateSubForm_Click()ForI=1to9Forj=1to30-3*I(1)Ne*tjFork=1toI(2)Ne*tkFor(3)PrintkNe*tkPrintNe*tIEndSub3.用隨機數模擬旋轉的硬幣，正面用字母F表示，反面用字母B表示。PrivateSubForm_Click()N=InputBo*("請輸入模擬次數")F=0B=0RandomizePrintPrint"模擬次數為：";nForI=1tonIf(1)ThenPrint"B"(2)Else(3)(4)If((f+b)Mod20)=0thenPrintEndIfEndIfNe*tIPrintPrint(5)EndSub四、編程題1.編寫程序，如圖1所示實現相應功能。所用控件：標簽、文本框、命令按鈕、垂直滾動條（MA*：1000；MIN：1）。垂直滾動條在1~1000之間變化，標簽顯示相應數值，單擊"數字和”按鈕，在文本框中顯示從1+2+3+……的和。單擊"結束”按鈕，退出程序運行。2.編寫程序，如圖2所示實現相應功能。所用控件：標簽、水平滾動條、命令按鈕、SHAPE形狀。水平滾動條滾動改變圖形線條寬度。單擊"結束”按鈕退出程序。圖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="選取的數字："+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.類是對象的抽象，對象則是類的具體化。VisualBasic集成開發環境中的工具箱中各類圖標對應的是，而在窗體上建立的控件對應的是。A.對象，類 B.對象，實體 C.類，對象 D.實體，類2.VisualBasic程序設計語言中，響應對象的外部動作稱為，而對象可以執行的動作或對象本身的行為則稱為。A.過程，事件 B.屬性，方法 C.方法，事件 D.事件，方法3.表達式"123"+"100"+100的值是。A.123200 B.323 C."123100100" D.1231001004.設Current*=400，CurrentY=200，執行指令"Line－(300,500),,BF”后，CurrentY=。A.500 B.700 C.400 D.3005.按照VisualBasic默認規定，數組聲明Dimc(3,4,2to5)共有個元素。A.36 B.80 C.60 D.486.聲明一個長度為256個字節的字符串變量mstr，應使用。A.Dimmstr B.Dimmstr(256)AsStringC.DimmstrAsString*256 D.DimmstrAsString[256]7.數據類型中的數值數據類型可以包括：Integer、、Currency和Byte。A.Double、Long、Single B.Double、Long、DataC.Double、Single、Object D.Double、Long、Variant8.從子過程退出，并返回到主調過程，可使用語句。A.E*it B.Return C.E*itSub D.StopSub9.下列命令中可實現對隨機文件的讀操作。A.Write B.Get C.Input D.Put10.在VisualBasic中將一個窗體從內存中釋放時，允許用戶進行控制，一般應該在事件中編程處理。A.LostFocus B.QueryUnload C.Click D.UnLoad11.設置窗體標題欄上的圖標可通過屬性來實現。A.Icon B.Image C.MouseIcon D.Picture12.引用組合框Bo1最后一個數據項應使用。A.bo1.List(bo1.ListCount)B.bo1.List(bo1.ListCount-1)C.bo1.List(ListCount)D.bo1.List(ListCount-1)13.Timer控件可用于后臺進程中，可在Timer事件內編程，要觸發Timer事件，必須通過以下屬性。A.Enabled、Interval B.Visible、IntervalC.Enabled、Visible D.Tag、Interval14.下列說法正確的是。A.Move屬性用于移動窗體或控件，并可改變其大小B.Move屬性用于移動窗體或控件，但不可改變其大小C.Move方法用于移動窗體或控件，但不可改變其大小D.Move方法用于移動窗體或控件，并可改變其大小15.代數式所對應的VisualBasic表達式是。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.窗體上放置了若干個文本框和命令按鈕，當窗體裝入后，要將焦點自動定位到命令按鈕mand1上，則在設計時需要將mand1控件的屬性設置為。2.當單擊垂直滾動條的箭頭時，要使滑塊的移動量為15，則需通過屬性來控制。3.當焦點進入文本框Te*t1時，要自動選定文本框第1到第6個位置上的6個字符，則需要通過代碼和Te*t1.SelLength=來實現。4.對通用對話框選擇方法，可顯示"打開”對話框。5.對于窗體上的命令按鈕，如果不允許進行操作，應通過屬性進行設置。6.對于正在使用的動態數組C()，要增加1個單元，則應使用語句。7.格式輸出函數Format(1234.56,"##,##0.000")的顯示結果為。8.為了使一個Picture控件能自動根據裝入的圖片調整大小，應設置該控件的屬性為True。9.要使裝入到列表框中的數據項能自動排序，應設置該控件的屬性為True。10.在VisualBasic中要為對象變量賦值的關鍵字是。三、程序填空（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 ′輸出排序結果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函數是將十六進制整數字符串轉換成十進制整數，參數Hsr為要轉換的十六進制整數字符串。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與數字1Ifc>="A"Thend=(2)-Asc("A")+10Elsed=d*16+Val(c)EndIfNe*tiIff="-"Thend=(3)(4)EndFunctionmand1_Click事件用于調用HTOD函數，將輸入到文本框Te*t1中的十六進制字符串轉換成十進制整數，并顯示轉換結果。例如，Te*t1中的值為"-ab”，轉換結果顯示(-ab)16=(-171)10。PrivateSubmand1_Click()Dim*AsInteger*=(5)Print"("&Te*t1&")"&"16=("&*&")10"EndSub四、編程題（45分）1.打開軟盤根目錄上的c1.vbp工程，補充程序，當單擊命令按鈕時，可在文本框顯示出十位數為5且能被5整除的四位數的個數，并將統計結果以隨機文件形式存入A:＼c1.dat文件中。（10分）2.編一個完整程序，要求如下（35分）：（1）參見圖2、圖3，在Form1窗體上放置一個列表框，并用你的**和**號在窗體上建立兩項菜單，在**號菜單下有名為"應用”與"結束”的兩個子菜單；在Form2窗體上放置一個圖形框，建立可通過鼠標右鍵彈出的菜單（快捷菜單），含有"畫圖”和"返回”兩個菜單項，Form2窗體的標題為你的**號。（8分）圖2圖3（2）當單擊"”菜單，利用隨機函數自動在列表框產生10個長度在2～10之間小寫字母的字符串，每個字符串的組成字母左右對稱。（10分）（3）單擊"”菜單的"應用”菜單項，打開Form2窗體；單擊"結束”菜單項時，停止程序的運行。（5分）（4）單擊Form2窗體上的"畫圖”菜單，用Pset方法繪制參數方程*=rCos4αCosα，y=rCos4αSinα在0～2π之間的圖形，其中r為半徑，取圖形框的高度（或寬度）的一半；當單擊"返回”按鈕，回到Form1窗體。（7分）（5）Form1窗體、Form2窗體以及工程文件名分別設置為C21.FRM、C22.FRM和C2.VBP，保存在軟盤根目錄下，并且通過"文件|生成...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是一種面向對象的程序設計語言，面向對象系統所包含的三要素是。A.屬性、事件、方法 B.控件、屬性、事件C.窗體、控件、過程 D.窗體、控件、模塊2.VisualBasic的一個應用程序通常至少包含一個文件，該文件存貯窗體上使用的所有控件對象和有關的、對象相應的過程和代碼。A.模塊、方法、事件、程序 B.窗體、屬性、事件、程序C.窗體、程序、屬性、事件 D.程序、屬性、事件、模塊3.表達式"321"&100+"200"的值是。A.321300 B.321100200 C."321300" D.6214.設Current*=200，CurrentY=350，執行指令"Line-Step(300,600),,B”后，Current*=。A.200 B.300 C.500 D.6005.按照VisualBasic默認規定，數組聲明Dimmarray(2,1to3,5)共有個元素。A.20 B.30 C.54 D.726.聲明一個長度為20個字節的字符串變量mstr，應使用。A.Dimmstr=20 B.Dimmstr(20)AsStringC.DimmstrAsString*20 D.DimmstrAsString(20)7.數據類型中的數值數據類型可以包括：、Double、Currency和Byte。A.Integer、Long、Single B.Integer、Long、DataC.Integer、Object、Single D.Integer、Long、Variant8.從循環體Do…Loop中退出并繼續執行程序，可使用語句。A.E*it B.E*itLoop C.E*itSub D.E*itDo9.下列命令中可實現對二進制文件的寫操作。A.Write B.Get C.Input D.Put10.在VisualBasic中要將一個窗體裝載到內存中進行預處理，但不顯示，應該使用語句。A.Show B.Hide C.Load D.UnLoad11.設置窗體最小化時的圖標可通過屬性來實現。A.Icon B.Image C.MouseIcon D.Picture12.如果列表框List1中已有10項數據，應使用語句將數據"Mydata”插入到列表框的第3項。A.List1.AddItem"Mydata",3 B.List1.Insert"Mydata",3C.List1.AddItem"Mydata",2 D.List1.Insert"Mydata",213.Timer控件可用于后臺進程中，要使Timer事件每1秒鐘觸發一次，則需設置Interval屬性為。A.1 B.10 C.100 D.100014.下面子過程語句合法的是。A.Subs1(ByValn%()) B.Subs1(nAsInteger)AsIntegerC.Functionf1%(f1AsInteger) D.Functionf1(ByValnAsInteger)15.代數式(a+b)÷(5÷c+d÷2)的VisualBasic表達式是。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.窗體上放置了若干個文本框和列表框，當窗體裝入后，要將焦點自動定位到List1上，則在設計時需要將List1控件的屬性設置為。2.當單擊水平滾動條上的空白區域時，要使滑塊的移動量為230，則需通過屬性來控制。3.當焦點進入文本框Te*t1時，要自動選定文本框第3到第8個位置上的6字符，則需要通過代碼Te*t1.SelStart=和來實現。4.對通用對話框選擇方法，可顯示字體對話框。5.對于窗體上的復選按鈕，如果不允許進行操作，應通過屬性進行設置。6.對于正在使用的動態數組B()，要增加3個單元，則應使用語句。7.格式輸出函數Format(1234.00,"###.###")的顯示結果。8.繪制圓心坐標為(1000,1000)，半徑為800的圓，其代碼為。9.若調用過程時，采用值傳遞方式，則應在形參說明前添加關鍵字。10.為了使目錄列表框Dir1和驅動器列表框Drive1之間能產生同步效果，必須在事件過程中加入語句。三、程序填空（20分，每小格2分）1.下面的程序按從小到大的順序隨機產生不超過20個介于100到400（包括100、400）的數，每次產生的一個數總大于它前面已產生的數，然后求產生的數的平均值。數組b(20)用于存放所產生的隨機數，運行結果圖1所示。圖1PrivateSubmand1_Click()Dimb(20),iAsInteger,jAsInteger,sumAsSinglej=1Dore:b(j)=Int((1))Ifb(j)=400Orj=20ThenE*itDoElseIfb(j)<=b(j-1)Then′控制新產生的數總大于前面已產生的數(2)EndIf(3)Loopsum=(4)Fori=1TojPrintb(i);sum=sum+b(i)Ne*tiPrint"aver=",(5)EndSub2.新的**號由18位組成，最低位（右邊）為校驗位，其算法是：10－（前17位之和關于10的模）。函數foe用于對18位的**號進行校驗。參數mstr存放**號，md為產生的校驗位，若校驗正確，函數返回"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事件用于調用foe函數，對輸入到文本框Te*t1的**號進行校驗，如果校驗正確，顯示"True”，否則顯示"False”和校驗碼值。PrivateSubmand1_Click()DimmmAsIntegerIfLen(Te*t1)<>18OrNotIsNumeric(Te*t1)ThenMsgBo*"非法數據，請重新輸入！"Te*t1=""(4)E*itSubEndIfIffoe(Te*t1,mm)=TrueThenPrintTrueElse(5)EndIfEndSub四、編程題（45分）1.打開軟盤根目錄上的b1.vbp工程，補充程序，當單擊命令按鈕時可在文本框顯示出700～800中所有素數的個數，并將統計結果以隨機文件形式存入A:＼b1.dat文件中。（10分）2.編一個完整的程序，要求如下（35分）：（1）參見圖2、圖3，在Form1窗體上放置組合框bo1、列表框List1，標簽Label1和Label2；用你的**號建立一項菜單，包含兩個菜單項：分別為"窗體2”和"結束”，之間有分隔線。在Form2窗體上放置一個時鐘控件和圖形框，窗體的標題設置為你的**號。（8分）（2）當在Form1窗體的組合框中輸入新的課程名按回車后，可使該課程名加入到組合框中；當雙擊組合框中*課程名，可使該課程加入到List1中。（7分）圖2圖3（3）當單擊"窗體2”菜單項時，打開Form2窗體，單擊"結束”菜單項時，停止程序的運行。（5分）（4）在Form2窗體中建立可通過鼠標右鍵彈出的菜單（快捷菜單）。含有"裝入圖”、"移動”和"返回”三個菜單項。選擇"裝入圖”菜單項，在圖形框裝入clouds.bmp圖形文件；選擇"移動”菜單項，圖形框按每0.1秒頻率在窗體上右向左移動20單位；選擇"返回”菜單項關閉Form2窗體，顯示Form1窗體。（10分）（5）在軟盤根目錄下將工程保存為B2.VBP、Form1窗體為B21.FRM、Form2窗體為B22.FRM，并且通過"文件|生成...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二、