VB程序設計試卷1

▼一赳屯峰―、優(yōu)秀資源,一t《VB程序設計》試卷試卷十五一、判斷題(共10分，每題1分，在答題卡上回答，A表示正確，B表示錯誤).窗體中只能有一個命令按鈕設置Default屬性為True,在任何情況下，按＜Enter＞鍵，就相當于執(zhí)行該命令按鈕的Click()事件。.直線控件沒有Left和Top屬性。.在VB工具箱中雙擊控件圖標，可以在窗體中添加控件，但不能直接將控件引入到框架中。.Style屬性為0和2的組合框由于下拉，故不能多選，但Style屬性為1的組合框不是下拉的，所以可以多選。.單選按鈕和復選框都沒有雙擊事件。.Cls方法能清除窗體中用Line和Circle方法畫的直線、矩形和圓形，但不能清除窗體中用直線控件和形狀控件產(chǎn)生的直線、矩形和圓形。.“打開”對話框和“另存為”對話框,除了標題欄上的文字不同之外,其他內(nèi)容與用法均相同,因此,也可以用“另存為”對話框來指定要打開的文件。.當圖片框的AutoSize屬性為True，而影像框的Stretch屬性為False時，兩者顯示圖片的效果相同。.Pset(X,Y)方法在(X,Y)處畫一個點，而Point(X,Y)函數(shù)返回(X,Y)點的顏色值。.若要用鼠標在文本框中右擊能彈出mnuEdit的快捷菜單，只要在該文本框的Mouse_Down()事件中，添加一條PopupMenumnuEdit語句便可。二、單選題(共20分，每題2分).VB提供了許多目錄和文件操作語句，其中刪除文件夾語句的關鍵詞是。[A]ChDir[B]RmDir[C]KillDir[D]DelDir.標簽的WordWrap=True可以固定標簽寬度來顯示多行文本，它必須和屬性一起設置。[A]MultiLine[B]AutoSize[C]Alignment[D]WidthTOC\o"1-5"\h\z.表達式4+5\4*9/8Mod3的值是。[A]7[B]5[C]6[D]9.在默認的情況下，由Dimaxyz(3,2To4)AsString*2語句定義的數(shù)組占用字節(jié)的內(nèi)存空間。[A]24[B]18[C]9[D]48.以下敘述中錯誤的是。[A]以.BAS為擴展名的文件是標準模塊文件，是一個純代碼性質(zhì)的文件。編程人員不能改變窗體或控件的事件名稱，但是可以改變控件的名稱[C]在VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性[D]用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體.要使得文件列表框File1中，只顯示文件后綴名為bmp和jpg的圖片文件，應設置其Pattern屬性為。[A]"*.bmp|*.jpg"[B]"*.bmp","*.jpg"[C]"*.bmp;*.jpg"[D]"*.bmp,*.jpg".執(zhí)行以下代碼后，窗體上打印出的結(jié)果是。a=1:b=5:c=-1Printc=b＞a[A]True[B]False[C]-1[D]出錯名則整理―一優(yōu)秀資源.在文本框Textl中用鼠標拖動選中文本塊時，如果Textl.SelStart=15,Textl.SelLength=10,那么Textl.SelText的屬性值與的函數(shù)值相同。[A]Mid(Text1,14,10)[B]Mid(Text1,15,10)[C]Mid(Text1,16,10)[D]Mid(Text1,10,15).當驅(qū)動器列表框Drivel中的驅(qū)動器符改變時，為使文件夾列表框Dir1中顯示的路徑也作相應的改變，應當在的Change事件中添加代碼。[A]Drive1,Dir1.Path=Drive1.Drive[B]Dir1,Dir1.Path=Drive1.Drive[C]Drive1,Drive1.Drive=Dir1.Path[D]Dir1,Drive1.Drive=Dir1.Path.Sub過程與Function過程最根本的區(qū)別是一。[A]前者可以使用Call或直接使用過程名調(diào)用，后者不可以后者可以有參數(shù),前者不可以兩種過程參數(shù)的傳遞方式不同后者可通過函數(shù)名返回值,但前者不能通過過程名返回三、程序填空選擇題(共20分，每空2分)閱讀下列程序說明和相應的程序,在每小題提供的若干可選答案中,挑選一個正確答案。1.單擊命令按鈕cmd2,由隨機函數(shù)產(chǎn)生50個100—300之間(包括100和300)的隨機整數(shù)。放入第一個數(shù)組中,將它們中的偶數(shù)放入另一個數(shù)組,再對偶數(shù)數(shù)組按從大到小的順序進行排序,先后將這三組數(shù)值顯示在窗體中。PrivateSubcmd2_Click()DimN%(50),M%(),I%,J%,T%,P%ClsPrint"原始數(shù)組："ForI=1To50N(I)=___(21)___PrintN(I),IfIMod5=0ThenPrintIfN(I)Mod2=0ThenJ=J+1:ReDimPreserveM(J):M(J)=N(I)NextIPrint"偶數(shù)數(shù)組："ForI=1ToJPrintM(I),IfIMod5=0ThenPrintNextIPrint:Print"排序后的偶數(shù)數(shù)組："ForI=1ToJ-1P=IForK=___(22)___If___(23)___ThenP=KNextKIfI<>PThen___(24)___PrintM(I),IfIMod5=0ThenPrintNextIPrintM(I)名則整理―一優(yōu)秀資源名則整理―一優(yōu)秀資源EndSub[A]Int(100EndSub[A]Int(100+Rnd()*201)[C]Int(101+Rnd()*199)[A]K=I+1To50[B]J=I+1To50[A]M(I)<M(K)[B]M(I)>M(K)[A]T=M(P):M(I)=M(P):M(I)=T[C]M(I)=T:T=M(P):M(P)=M(I)Int(200+Rnd()*101)[D]Int(100+Rnd()*200)J=I+1ToK[D]K=I+1ToJM(P)<M(K)[D]M(K)<M(P)[B]T=M(I):M(P)=M(I):M(P)=TT=M(I):M(I)=M(P):M(P)=T2.窗體上有一個列表框Listl和一個文本框Textl,在屬性窗口已設置文本框的MultiLine屬性為True,ScrollBars屬性為2-Verticle。程序啟動或單擊窗體后，隨機生成20個二位數(shù)，作為列表項添加到列表框Listl中，單擊選擇Listl的一個列表項，求出選中的二位數(shù)的全部因子(包括1和該數(shù)本身)，在文本框Text1中逐行顯示。PrivateSubForm_Load()Randomize___(25)___EndSubPrivateSubForm_Click()DimIAsInteger___(26)___Text1=""ForI=0To19List1.AddItemInt(Rnd*90+10)NextIEndSubPrivateSubList1_Click()DimIAsInteger,XAsIntegerX=Val(List1.Text)Text1=""ForI=1ToXIfXModIForI=1ToXIfXModI=0NextIEndSub[A]CallForm1_Click[A]List1.Clear0[A]I&vbCrLfvbCrLfThenText1=___(27)___[B]Form_Click()List1.ClsText1&I&vbCrLfForm1_Click[C]List1=""X&vbCrLf[D]Form_ClickList1.ListCount=[D]Text1&X&3.下列FindStr過程是用于在一個字符串變量中查找"red"，并用輸出對話框給出找到的個數(shù)或"沒有找到"的查找結(jié)果。OptionExplicitPublicSubFindStr()DimStr1AsString,LengthAsInteger,SumAsInteger,IAsIntegerStr1=InputBox("請輸入一個字符串”)

Length=___(28)I=1Sum=0DoWhile___(29)___If___(30)___ThenSum=Sum+1I=I+1LoopIfSum=0ThenMsgBox"沒有找到！"ElseMsgBox"找到了"&Str(Sum)&"個"EndIfEndSub[C]Chr(Str1)I<Length[C]Chr(Str1)I<Length-1[B]Str1="red"Mid(Str1,I,3)="red"[D]Str(Str1)[D]I=Length[A]I=Length-1[B]I>Length-1[A]Left(Str1,3)="red"[C]Mid(Text1,I,3)=Str1四、程序閱讀題(共20分，每題5分)1.請寫出從鍵盤輸入”1.2"，"Ab"和"FGfg”后，窗體的輸出結(jié)果。PrivateSubForm_Click()DimsHexAsString,XAsString*1DimnDecAsLong,NAsInteger,IAsInteger,AiAsIntegersHex=UCase(InputBox("請輸入一個字符串"))N=Len(sHex)nDec=0DoWhileI<NX=Mid$(sHex,N-I,1)SelectCaseXCase"A"To"F":Ai=Asc(X)-Asc("A")+10Case"0"To"9":Ai=Val(X)CaseElseAi=0:N=N-1sHex=Left(sHex,N-I)+Right(sHex,I)I=I-1EndSelectnDec=nDec+Ai*16AII=I+1LoopPrintsHex;"H=";nDecEndSub2．請寫出以下程序運行后兩次單擊命令按鈕的輸出結(jié)果。DimxAsIntegerPrivateSubCommand1_Click()DimyAsIntegerStaticzAsIntegerx=x+1:y=y+1:z=z+1Callabc(x,y,z+y)Printx,y,zEndSubStaticSubabc(a,b,c)a=a+1:b=b+1:c=c+1:x=x+1EndSubPrivateSubForm_Load()x=1:y=1:z=1EndSub.已知水平滾動條HScrollI的有關屬性已經(jīng)在屬性窗口進行了如下的設置：Min為1Max為10SmallChange為1LargeChange為2Value為5寫出連續(xù)3次單擊水平滾動條HScroll1右端箭頭后，窗體上顯示的結(jié)果。PrivateSubHScroll1_Change()StaticyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValuePrint"y=";yEndIfEndSub.請寫出在文本框中輸入“小李”(2個漢字)并按下回車鍵后，窗體上顯示的結(jié)果。PrivateSubText1_Change()PrintText1.Text;"，你好！"EndSub名則整理―一優(yōu)秀資源五、程序設計題(本題共30分，每題10分)注意：在做程序設計題時，務必在窗體和模塊的通用部位寫上“OptionExplicit”語句。1.試用Form_Click()事件過程計算下列求和式，在窗體顯示結(jié)果。S=1+12+123+1234+12345+……+12345…n例如n=7，S=1+12+123+1234+12345+123456+1234567n通過輸入框輸入，其值為1—9；如果輸入不在此范圍，再次彈出輸入框重輸。2.編寫一個繪制“餅圖”的子程序BingTu()。調(diào)用時，傳遞3個實際參數(shù)X、Y、Z，子程序就在圖片框Picture1中畫出內(nèi)切圓，按3個實參的比例分為3個扇形，并用三種不同的顏色(X-紅，Y-綠，Z-黃)填充，如右圖所示。下面是已經(jīng)完成的“餅圖”按鈕Command1_Click()事件中調(diào)用子程序BingTu()的代碼。試按上述要求完成“餅圖”的子程序BingTu()的代碼編寫。2.PrivateSubCommand1_Click()DimX!,Y!,Z!X=Val(InputBox("X="))Y=Val(InputBox("Y