計算機二級VB考試題含答案

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