計(jì)算機(jī)二級(jí)VB考試題含答案

計(jì)算機(jī)二級(jí)VB考試題含答案計(jì)算機(jī)二級(jí)VB考試題及答案1.以下能判斷指針是否指向文件尾的函數(shù)是(D)(單)A.BOFB.LOCC.LOFD.EOF2.如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是(B)(單)A.如果工程中含有SubMain過(guò)程，則程序一定首先執(zhí)行該過(guò)程B.不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C.用Hide方法只是隱藏一個(gè)窗體,不能從內(nèi)存中清除該窗體D.任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體3.窗體的過(guò)程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)，有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是(D)(單)A.通過(guò)Button參數(shù)判定當(dāng)前按下的是鍵盤上哪一個(gè)鍵B.Shift參數(shù)只能用來(lái)確定是否按下Shift鍵C.Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵D.參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)4.設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是(B)(單)A.Combo1.RemoveItemTextB.Combo1.RemoveItem2C.Combo1.RemoveItem3D.Combo1.RemoveItemCombo1.Listcount5.以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是(A)(單)A.如果文本框的Enabled屬性為False，能接收從鍵盤上輸入的數(shù)據(jù)B.當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件C.當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用D.可以用TabIndex屬性改變Tab順序6.如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為(D)(單)A.=B.*C.&D.-7.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕和兩個(gè)名稱分別為Text1、Text2的文本框，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()n=val(Text1.Text)SelectCasenCase1To20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序運(yùn)行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是(A)(單)A.10B.20C.30D.408.設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile<條件>則以下敘述中錯(cuò)誤的是(A)(單)A.若"條件"是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B."條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C.循環(huán)體中可以使用ExitDo語(yǔ)句D.如果"條件"總是為True，則不停地執(zhí)行循環(huán)體9.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(B)(單)A.13.45.8B.135C.147D.無(wú)數(shù)據(jù)輸出10.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(C)(單)A.79B.340C.97D.死循環(huán)11.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：有如下通用過(guò)程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是(C)(單)A.105B.205C.2040D.104012.設(shè)有如下通用過(guò)程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextIEndSub在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=iNextIn=10CallFun(arr(),n)Text1.Text=nEndSub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是(A)(單)A.10B.15C.25D.2413.在窗體上畫(huà)一個(gè)名稱為Command1的`命令按鈕，然后編寫(xiě)如下代碼：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為(C)(單)A.89B.99C.23D.7714.在窗體上畫(huà)兩個(gè)滾動(dòng)條，名稱分別為Hscroll1、Hscroll2;六個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label4、Label6分別顯示"A"、"B"、"A*B"等文字信息，標(biāo)簽Label1、Label2分別顯示Hscroll1、Hscroll2滾動(dòng)條的數(shù)值，Label3顯示A*B的計(jì)算結(jié)果。當(dāng)移動(dòng)滾動(dòng)條時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊命令按鈕"計(jì)算"時(shí)，對(duì)標(biāo)簽Label1、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過(guò)程是(C)(單)A.PrivateSubCommand1_Click()Label3.Caption==Str(Val(Label1.Caption)*Val(Label2.Caption))EndSubB.PrivateSubCommand1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEndSubC.PrivateSubCommand1_Click()Label3.Caption=HScroll1*HScroll2EndSubD.PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub15.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n3NextnPrintnEndSub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是(C)(單)A.15B.18C.21D.2416.在窗體上畫(huà)一個(gè)名稱為Text1的文本框，并編寫(xiě)如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"程序設(shè)計(jì)"EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic";EndSub程序運(yùn)行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是(A)(單)A.VisualBasicB.程序設(shè)計(jì)C.A程序設(shè)計(jì)D.VisualBasic程序設(shè)計(jì)17.設(shè)有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是(C)(單)A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+3/4C.1/2+2/3+3/4+4/5D.1+1/2+1/3+1/4+1/518.以下有關(guān)數(shù)組定義的語(yǔ)句序列中，錯(cuò)誤的是(D)(單)A.Staticarr1(3)：arr1(1)="100"：arr1(2)="Hello"：arr1(3)="123.45"B.Dimarr2(),sizeAsIntegerPrivateSubCommand2_Click()size=InputBox("輸入：")ReDimarr2(size)......EndSubC.OptionBase1PrivateSubCommand3_Click()Dimarr3(3)AsInteger......EndSubD.DimnAsIntegerPrivateSubCommand4_Click()Dimarr4(n