VB程序設(shè)計(jì)綜合試卷

VisualBasic綜合試卷一、單項(xiàng)選擇題1．與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比，VisualBasuc最突出的特點(diǎn)是（）。A．結(jié)構(gòu)化程序設(shè)計(jì)B．程序開發(fā)環(huán)境C．事件驅(qū)動(dòng)編程機(jī)制D．程序調(diào)試技術(shù)2．在設(shè)計(jì)階段，雙擊窗體上的某個(gè)控件時(shí)，打開的窗體是（）。A．工程資源管理器窗口B．代碼編輯器窗口C．工具箱窗口D．屬性窗口3．當(dāng)需要上下文幫助時(shí)，選擇要幫助的內(nèi)容，希望出現(xiàn)MSDN窗口及顯示所需的幫助信息，應(yīng)按的鍵是（）。A．HelpB．F10C．EscD．F14．對(duì)于定時(shí)器（Timer）控件，設(shè)計(jì)其定時(shí)是否開啟的屬性是（）。A．IndexB．EnabledC．TagD．Left5．表達(dá)式2*3^2+2*8/4+3^2的值是（）。A．31B．42C．49D．646．后綴為.CLS的文件表示（）。A．類模塊文件B．窗體文件C．標(biāo)準(zhǔn)類模塊文件D．窗體二進(jìn)制數(shù)據(jù)文件7.數(shù)字式子Sin30O寫成VB表達(dá)式是（）。A．Sin30B．Sin(30)C．Sin(30O)D．Sin(30*3.14/180)8.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)啟動(dòng)窗體的事件過程是（）。A．LoadB．ClickC．UnloadD．GotFocus9．要退出For…Next循環(huán)，可使用的語(yǔ)句是（）。A．ExitB．ExitForC．EndDoD．ExitDo10．對(duì)于窗體級(jí)變量，下列說法中錯(cuò)誤的是（）。A．所在窗體的各子程序都可以訪問B．其它窗體的子程序不能訪問C．所在窗體的各子程序都不能訪問用Private定義的窗體級(jí)變量D．一定要在所在窗體的通用區(qū)內(nèi)定義11．用下面的語(yǔ)句所定義的數(shù)組的元素個(gè)數(shù)是（）。DimA（-1To3）AsIntegerA．2B．3C．4D．512.下列敘述正確的是（）。A．Load語(yǔ)句與Show語(yǔ)句功能完全相同B．UnLoad語(yǔ)句與Hide語(yǔ)句功能完全相同C．Load語(yǔ)句與Unload語(yǔ)句功能完全相反D．三者都對(duì)13.當(dāng)一個(gè)工程中含有多個(gè)窗體時(shí)，則啟動(dòng)對(duì)象是（）。A.啟動(dòng)VB時(shí)建立的窗體B.第一個(gè)添加的窗體C.最后一個(gè)添加的窗體D.在“工程屬性”對(duì)話框中通過“啟動(dòng)對(duì)象”指定的窗體14.VB程序中設(shè)置斷點(diǎn)的按鍵是（）。A.F5鍵B.F6鍵C.F9鍵D.F10鍵15.對(duì)象的三要素是()A.屬性,事件,方法B.屬性,過程,方法C.元素,事件,過程D.元素,過程,方法16、在運(yùn)行程序時(shí)，在文本框中輸入新的內(nèi)容，或在程序代碼中改變Text的屬性值，相應(yīng)會(huì)觸發(fā)到什么事件？A)GotFocusB)ClickC)ChangeD)DblClick17、如果一個(gè)變量未經(jīng)定義就直接使用，則該變量的類型為AIntegerBByteCBooleanDVariant18、根據(jù)變量的作用域，可以將變量分為3類，分別為A局部變量、模塊變量和全局變量B局部變量、模塊變量和標(biāo)準(zhǔn)變量C局部變量、模塊變量和窗體變量D局部變量、標(biāo)準(zhǔn)變量和全局變量19、下面的數(shù)組聲明語(yǔ)句中正確的是ADimgg［1,5］AsStringBDimgg［1To5,1To5］AsStringCDimgg(1To5)AsStringDDimgg［1:5,1:5］AsString20、下列程序段的執(zhí)行結(jié)果為I=4x=5DoI=I+1x=x+2LoopUntilI>=7Print"I=";IPrint"x=";xAI＝4x＝5BI＝7x＝15CI＝6x＝8DI＝7x＝1121、以下各表達(dá)式中,計(jì)算結(jié)果為0的是AINT(12.4)+INT(-12.6)BCINT(12.4)+CINT(-12.6)CFIX(13.6)+FIX(-12.6)DFIX(12.4)+FIX(-12.6)22、要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的屬性是APathBDriveCDirDPattern23、當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)AKeyUp事件BKeyPress事件CScroll事件DChange事件24、設(shè)已經(jīng)在"菜單編輯器"中設(shè)計(jì)了窗體的快捷菜單，其頂級(jí)菜單為Bs，取消其"可見"屬性，運(yùn)行時(shí)，在以下事件過程中，可以使快捷菜單響應(yīng)鼠標(biāo)右鍵菜單的是APrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenPopupMenuBs,2EndSubB)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBsEndSubC)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBs,0EndSubD)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)If(Button=vbLeftButton)Or(Button=vbRightButton)ThenPopupMenuBsEndSub25、要將名為MyForm的窗體顯示出來(lái)，正確的使用方法是AMyForm.ShowBShow.MyFormCMyFormLoadDMyFormShow26、下列語(yǔ)句中，獲得列表框List1中項(xiàng)目個(gè)數(shù)的語(yǔ)句是Ax=List1.ListCountBx=ListCountCx=List1.ListIndexDx=ListIndex27、在窗體上畫一個(gè)命令按鈕，然后編寫下列程序PrivateSubCommand3_Click()Tcl2Tcl3Tcl4EndSubSubTcl(aAsInteger)StaticxAsIntegerx=x+aPrintx;EndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為A234B259C354D24328、下列各種形式的循環(huán)中，輸出"*"的個(gè)數(shù)最少的循環(huán)是Aa=5:b=8DoPrint"*"a=a+1LoopWhilea<bBa=5:b=8DoPrint"*"a=a+1LoopUntila<bCa=5:b=8DoUntila-bPrint"*"b=b+1LoopDa=5:b=8DoUntila>bPrint"*"a=a+1Loop29、設(shè)置命令按鈕的屬性時(shí)，只有將何屬性設(shè)置為1，Picture屬性才有效，否則無(wú)效?AStyleBCaptionCEnabledDDefault30、能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是ATextBLengthCSeltextDSelStart31.要在垂直位置上移動(dòng)控件，應(yīng)利用控件的屬性。

A.LeftB.WidthC.TopD.Height

32.要使文本框中的文本顯示掩碼（密碼）符，在屬性設(shè)置時(shí)，首先必須設(shè)置屬性為False。

A.TextB.EnabledC.VisibleD.Multiline

33.用鍵盤的光標(biāo)鍵選中某一菜單項(xiàng)，并按回車將觸發(fā)菜單的的事件。

A.KeyPressB.KeyDownC.ClickD.KeyUp

34.以下對(duì)象不具有Clear方法。

A.列表框B.組合框C.剪貼板D.圖片框

35.在文件列表框中設(shè)定“文件列表”中顯示文件類型應(yīng)個(gè)性該控件的屬性。

A.PathB.FileNameC.NameD.Pattern

36.組合框有三種風(fēng)格，它們由Style屬性所決定，其中為簡(jiǎn)單組合框時(shí)，Style屬性值應(yīng)為。

A．0B.1C.2D.3

37.下列可調(diào)整圖片框的大小以適合圖片的屬性是

A.stretchB.autosizeC.pictureD.oledropmode

38.要想清除文本框中的內(nèi)容則可利用(8)進(jìn)行。

A.CaptionB.TextC.ClearD.Cls

39.下列表達(dá)式中,其值為0的是

A.7/9B.7mod15C.7\9D.15mod9

40.求以10為底X的常用對(duì)數(shù)的表達(dá)式為

A.LOG(X)/LOG(10)B.LN(X)C.LOG(X)/LOG(E)41．一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為。

A、事件、方法B、方法、事件C、屬性、方法D、過程、事件

42．在窗體Form1的Click事件過程中有以下語(yǔ)句：

Label1.Caption=”VisualBasic”

若本語(yǔ)句執(zhí)行之前，標(biāo)簽控件的Caption屬性為默認(rèn)值，則標(biāo)簽控件的Name屬性和Caption屬性在執(zhí)行本語(yǔ)句之前的值分別為（12）。

A．”Label”、”Label”B、”Label1”、”VisualBasic”

C、”Label1”、”Label1”D、”Caption”、”Label”

43．對(duì)象不具有Caption屬性。

A、LabelB、OptionC、FormD、Timer

44．Interger類型的變量可存的的最大整數(shù)是。

A、250B、256C、32768D、32767

45．下列數(shù)據(jù)類型中，占用內(nèi)存最小的是。

A、BooleanB、ByteC、IntegerD、Single

46．對(duì)象不能作為控件的容器。

A、FormB、PictureBoxC、ShapeD、Frame

47、為了確定窗體的位置，需要設(shè)置的屬性是A、top和leftB、top和bottomC、top和rightD、right和bottom

48．已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形三條邊長(zhǎng)的邏輯表達(dá)式是。

A、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0

C、(A+C)>=CAndA-C<=C)AndC>0D、A+B>CAndA-B>CAndC>0

49．下面是日期型常量。

A、”12/19/99”B、12/19/99C、#12/19/99#D、{12/19/99}

50.如果在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框的屬性不會(huì)對(duì)該圓的外觀產(chǎn)生影響。

A、BackColorB、ForeColorC、DrawWidth二、填空題1.定時(shí)器（Timer）控件可識(shí)別的事件是，發(fā)生該事件的時(shí)間間隔由定時(shí)器的屬性設(shè)置，其單位為。2.要想在代碼中給名為text1的文本框賦予文本：GOODWORK！時(shí)，應(yīng)當(dāng)編寫的語(yǔ)句是。3.以下語(yǔ)句的輸出結(jié)果是。s$=“Beijing”s$=“china”Prints$4、要使標(biāo)簽控件Label1中顯示“單擊此處”，所使用的語(yǔ)句是___________。5.設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從-1到5，第二維下標(biāo)從2到6，則相應(yīng)的數(shù)組聲明語(yǔ)句為。6事件就是在對(duì)象上所發(fā)生的事情，VisualBasic中的事件如、、等。一個(gè)對(duì)象可響應(yīng)個(gè)事件。事件過程是指響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼，假如某一事件過程如下：PrivateSubcmd1_click()Form1.Caption=“VB示例”EndSub則響應(yīng)該過程的對(duì)象名是，事件名是。7.一個(gè)VB工程之中能有個(gè)MDI父窗體。8.要將某窗體定義為一個(gè)MDI子窗體，需要將其屬性值設(shè)置為True。9.若已建立了Form1和Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Form1。通過菜單菜單項(xiàng)，可將啟動(dòng)窗體設(shè)置為Form2。在程序中若要顯示Form1窗體，則執(zhí)行語(yǔ)句。。10.Sub過程與Function過程最根本的區(qū)別是。11、請(qǐng)?zhí)顚懴铝锌瞻?，?shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線上元素值為1，其他元素為0的6×6階矩陣。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Forj=1To6Ifi=jThenElseEndIfPrintNextjPrintNextiEndSub12、在窗體上加上一個(gè)文本控件PCSTextBox，畫一個(gè)命令按鈕，當(dāng)單擊命令按鈕的時(shí)候?qū)@示"打開文件"對(duì)話框，設(shè)置該對(duì)話框只用于打開文本文件，然后在文本控件中顯示打開的文件名。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()CommonDialog1.Filter=CommonDialog1.ShowOpenPCSTextBox.Text=EndSub13、隨機(jī)文件使用Put語(yǔ)句寫數(shù)據(jù)，使用語(yǔ)句讀數(shù)據(jù)。14、下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒有意義。請(qǐng)?zhí)羁铡rivateSubCommand1_Click() DimxAsSingle x=InputBox("請(qǐng)輸入x的值！") CaseIs<50y=0.8*xCase50To100y=0.7*xPrint"輸入的數(shù)據(jù)出界！"EndSelectPrintx,yEndSub15、以下程序的功能是從鍵盤輸入若干個(gè)學(xué)生的考試成績(jī)，統(tǒng)計(jì)并輸出最高分和最低分，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，輸出結(jié)果。請(qǐng)補(bǔ)充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhileIfx>amaxThenamax=xEndIfIfThenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";amin16、有一個(gè)事件過程，其功能是：從已存在于磁盤上的順序文件NM1.txt中讀取數(shù)據(jù)，計(jì)算讀出數(shù)據(jù)的平方值，將該數(shù)據(jù)及其平方值存入新的順序文件NM2.txt中。請(qǐng)?zhí)羁铡rivateSubForm_Click()DimxAsSingle,yAsSingleOpen"NM1.txt"ForInputAs#1Open"NM2.txt"ForInputAs#2DoWhileNotEOF(1)Printxy=x^2PrintyLoopClose#1,#2EndSub17、在窗體上有一個(gè)命令按鈕，然后編寫如下程序：FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumk=k*(numMod10)num=num＼10LoopTrans=kPrintTransEndFunctionPrivateSubCommand1_Click()DimmAsLongDimsAsLongm=InputBox("請(qǐng)輸入一個(gè)數(shù)")s=Trans(m)EndSub程序運(yùn)行時(shí)，單擊命令按鈕，在輸入對(duì)話框中輸入"789"，輸出結(jié)果為,在輸入對(duì)話框中輸入"987"輸出,在輸入對(duì)話框中輸入"879"，輸出結(jié)果為。18.設(shè)x=2,y=4,a=4,b=6,表達(dá)式（a>xXorb<x）ORx<yIMPy<b的結(jié)果為。

19．a(chǎn)和b中有僅只有一個(gè)不為1，相應(yīng)的VisualBasic邏輯表達(dá)式為。

20.把條件為1≤x≤5寫成VB表達(dá)式為：。

21．用隨機(jī)函數(shù)產(chǎn)生10個(gè)100～500的整數(shù)，其表達(dá)可為：。

22．當(dāng)x=2時(shí)，語(yǔ)句ifx=2thenPrintx=2的結(jié)果值是。

23.StaticPrivateSubcmdSum_Click()

DimSumasinteger

Sum=2*Sum+1

EndSub

問：第三次單擊命令按鈕cmdSum后，Sum的值為：。

24．聲明單精度常量g(重力加速度)代表9．8可寫成：。

25．欲使在自己設(shè)計(jì)VB程序運(yùn)行過程中，不中止本程序的運(yùn)行，同時(shí)又可調(diào)用系統(tǒng)中已有的應(yīng)用程序c:\windows\notepad.exe,可在程序代碼窗口必要的地方添加語(yǔ)句：。三、閱讀程序題閱讀下列程序并寫出運(yùn)行結(jié)果1.OptionExplicitPrivateSubCommand1_Click()DimSAsIntegerDimiAsIntegerS=1Fori=1To5S=S*iNextiPrintSEndSub結(jié)果：2.DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj>5Thenk=k+4:ExitFork=k+1NextjPrinti,kIfi>8ThenExitForNextiPrinti,k結(jié)果：3.PrivateSubform_Click()A=1b=ADoUntilA>=5X=A*bPrintStr(A)&"*";Str(b)&"=";Str(X)A=A+bb=b+ALoopEndSub結(jié)果：4.Fori=1To3Forj=1ToiFork=jTo3A=A+1NextkNextjNextiPrintA結(jié)果：5.PrivateSubCommand1_Click()DimA(1To4)AsIntegerDimbAsIntegerForb=1To4A(b)=bNextbText1.Text=A(b-1)EndSub6.C=InputBox(“請(qǐng)輸入字符串：”)p=””ForL=Len(c)To2Step–2P=Mid(C,L–1,2)+PNextLPrintP如果輸入：ABCDEFG，則結(jié)果：7.DimYAsIntegerPrivateSubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger),;Y=Z+,XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction結(jié)果：8.PrivateSubCommand1_Click()DimSAsInteger,IAsIntegerS=0ForI=1To10IfZS(I)ThenIfI*2<=10ThenPrintStr(I*2)S=S+1ElseExitForEndIfEndIfNextIPrirt“S=”＆Str(S)EndSubPublicFunctionZS(ByValXAsInteger)ASBooleanDimJAsIntegerJ=2DoWhileJ<XIfInt(X/J)=X/JThenExitDoJ=J+1LoopIfJ=XThenZS=TrueElseZS=FalseEndIfEndFunction結(jié)果：9.DimYAsInteger

PrivateStubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction結(jié)果：10.PrivatesubForm_click()

N=3

DimA(3，3)AsInteger

ForI=IToN

ForJ=IToN