2022年4月全國計算機等級考試二級VB筆試試卷

精品文檔-下載后可編輯年4月全國計算機等級考試二級VB筆試試卷2022年4月全國計算機等級考試二級VB筆試試卷

一、選擇題（（1）～（20）每小題2分，（21）～（30）每小題3分，共30題，70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確選項涂在答題卡的相應(yīng)位置上，答在試卷上不得分。

1.以下不能在"工程資源管理器"窗口中列出的文件類型是[2分]

A..bas

B..res

C..frm

D..ocx

2.以下關(guān)于窗體的描述中，錯誤的是[2分]

A.執(zhí)行UnloadForm1語句后，窗體Form1消失，但仍在內(nèi)存中

B.窗體的Load事件在加載窗體時發(fā)生

C.當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止

D.窗體的Height、Width屬性用于設(shè)置窗體的高和寬

3.下列可作為VisualBasic變量名的是[2分]

A.A#A

B.4A

C.?xy

D.constA

4.設(shè)有如下的記錄類型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType則正確引用該記錄類型變量的代碼是[2分]

A.S="張紅"

B.DimsAsS="張紅"

C.DimsAsTypeS="張紅"

D.DimsAsT="張紅"

5.函數(shù)String（n,"str"）的功能是[2分]

A.把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串

B.返回由n個字符組成的字符串

C.從字符串中取出n個字符

D.從字符串中第n個字符的位置開始取子字符串

6.將數(shù)學(xué)表達式Cos2(a+b)+5e2寫成VisualBasic的表達式，其正確的形式是[2分]

A.Cos(a+b)^2+5*exp(2)

B.Cos^2(a+b)+5*exp(2)

C.Cos(a+b)^2+5*ln(2)

D.Cos^2(a+b)+5*ln(2)

7.在窗體上畫一個命令按鈕，名稱為Command1。單擊命令按鈕時，執(zhí)行如下事件過程：PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是[2分]

A.softwareandhardware

B.software

C.hardware

8.執(zhí)行如下語句：a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是[2分]

A.Today

B.Tomorrow

C.Yesterday

D.Daybeforeyesterday

9.表示滾動條控件取值范圍最大值的屬性是[2分]

A.Max

B.LargeChange

C.Value

D.Max-Min

10.在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個城市名時，在標(biāo)簽中顯示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是[2分]

A.PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSub

B.PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSub

C.PrivateSubList1_Click()Label1.Name=List1.TextEndSub

D.PrivateSubList1_Click()Label1.Caption=List1.TextEndSub

11.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=0n=InputBox("")Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序運行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是[2分]

12.以下關(guān)于菜單的敘述中，錯誤的是[2分]

A.在程序運行過程中可以增加或減少菜單項

B.如果把一個菜單項的Enabled屬性設(shè)置為False，則可刪除該菜單項

C.彈出式菜單在菜單編輯器中設(shè)計

D.利用控件數(shù)組可以實現(xiàn)菜單項的增加或減少

13.在窗體上畫三個單選按鈕，組成一個名為chkOption的控件數(shù)組。用于標(biāo)識各個控件數(shù)組元素的參數(shù)是[2分]

A.Tag

B.Index

C.ListIndex

D.Name

14.在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("北京","上海","天津","重慶")Printcity(1)EndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是[2分]

A.空白

B.錯誤提示

C.北京

D.上海

15.假定有以下函數(shù)過程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox("請輸入一個字符串")Str2=Fun(Str1)PrintStr2EndSub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcdefg"，則單擊"確定"按鈕后在窗體上的輸出結(jié)果為[2分]

A.abcdefg

B.ABCDEFG

C.gfedcba

D.GFEDCBA

16.設(shè)有語句Open"c:\Test.Dat"ForOutputAs#1則以下錯誤的敘述是[2分]

A.該語句打開C盤根目錄下一個已存在的文件Test.Dat

B.該語句在C盤根目錄下建立一個名為Test.Dat的文件

C.該語句建立的文件的文件號為1

D.執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息

17.以下敘述中錯誤的是[2分]

A.用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應(yīng)用程序

B.用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù)

C.調(diào)用Shell函數(shù)的格式應(yīng)為：變量名=Shell(……)

D.用Shell函數(shù)不能執(zhí)行DOS命令

18.以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是[2分]

A.過程的參數(shù)可以是控件名稱

B.用數(shù)組作為過程的參數(shù)時，使用的是"傳地址"方式

C.只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中

D.窗體可以作為過程的參數(shù)

19.在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：PrivateSubTxtA_KeyPress(keyasciiasinteger)……EndSub若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是[2分]

A.單擊鼠標(biāo)

B.雙擊文本框

C.鼠標(biāo)滑過文本框

D.按下鍵盤上的某個鍵

20.目錄列表框的Path屬性的作用是[2分]

A.顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的路徑

B.顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名

C.顯示根目錄下的文件名

D.只顯示當(dāng)前路徑下的文件

21.假定有如下事件過程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenupopFormEndIfEndSub則以下描述中錯誤的是[3分]

A.該過程的功能是彈出一個菜單

B.popForm是在菜單編輯器中定義的彈出式菜單的名稱

C.參數(shù)X、Y指明鼠標(biāo)的當(dāng)前位置

D.Button=2表示按下的是鼠標(biāo)左鍵

22.以下能夠正確計算n!的程序是[3分]

A.PrivateSubCommand1_Click()n=5:x=1Dox=x*ii=i+1LoopWhilei

B.PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei

C.PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei=nPrintxEndSub

D.PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhileinPrintxEndSub

23.在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱分別為Label1、Label2的標(biāo)簽，然后編寫如下程序代碼：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:Y=3Callproc(X,Y)Label1.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByValbAsInteger)X=a*aY=b+bEndSub程序運行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)容分別是[3分]

A.5和3

B.25和3

C.25和6

D.5和6

24.在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1的標(biāo)簽，然后編寫如下事件過程：PrivateSubCommand1_Click()s=0Fori=1To15x=2*i-1IfxMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序運行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是[3分]

C.27

D.45

25.在窗體上畫一個名稱為Command1的命令按鈕和三個名稱分別為Label1、Label2、Label3的標(biāo)簽，然后編寫如下代碼：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub運行程序，連續(xù)三次單擊命令按鈕后，則三個標(biāo)簽中顯示的內(nèi)容分別是[3分]

A.101010

B.303030

C.303010

D.103030

26.設(shè)在窗體上有一個名稱為Command1的命令按鈕，并有以下事件過程：PrivateSubCommand1_Click()StaticbAsVariantb=Array(1,3,5,7,9)……EndSub此過程的功能是把數(shù)組b中的5個數(shù)逆序存放（即排列為9,7,5,3,1）。為實現(xiàn)此功能，省略號處的程序段應(yīng)該是[3分]

A.Fori=0To5-1\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext

B.Fori=0To5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext

C.Fori=0To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext

D.Fori=1To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext

27.在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框，兩個名稱分別為Label1、Label2，標(biāo)題分別為空白和"共有文件"的標(biāo)簽。編寫程序，使得驅(qū)動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標(biāo)簽Label1中顯示當(dāng)前文件夾中文件的數(shù)量。如圖所示。能夠正確實現(xiàn)上述功能的程序是[3分]

A.PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveLabel1.Caption=File1.ListCountEndSub

B.PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveLabel1.Caption=File1.ListEndSub

C.PrivateSubDir1_Change()File1.Path=Dir1.PathLabel1.Caption=File1.ListCountEndSubEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveLabel1.Caption=File1.ListCountEndSub

D.PrivateSubDir1_Change()File1.Path=Dir1.PathLabel1.Caption=File1.ListPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveLabel1.Caption=File1.ListEndSub

28.一個工程中包含兩個名稱分別為Form1、Form2的窗體，一個名稱為mdlFunc的標(biāo)準(zhǔn)模塊。假定在Form1、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：Form1中定義的過程：PrivateSubfrmFunction1()……EndSubForm2中定義的過程：PublicSubfrmFunction2()……EndSubmdlFunc中定義的過程：PublicSubmdlFunction()……EndSub在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是[3分]

A.上述三個過程都可以在工程中的任何窗體或模塊中被調(diào)用

B.frmFunction2和mdlFunction過程能夠在工程中各個窗體或模塊中被調(diào)用

C.上述三個過程都只能在各自被定義的模塊中調(diào)用

D.只有mdlFunction過程能夠被工程中各個窗體或模塊調(diào)用

29.窗體上有兩個名稱分別為Text1、Text2的文本框，一個名稱為Command1的命令按鈕。運行后的窗體外觀如圖所示。設(shè)有如下的類型聲明TypePersonnameAsString*8majorAsString*20EndType當(dāng)單擊"保存"按鈕時，將兩個文本框中的內(nèi)容寫入一個隨機文件Test29.dat中。設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量p。則能夠正確地把數(shù)據(jù)寫入文件的程序段是[3分]

A.Open"c:\Test29.dat"ForRandomAs#1Put#1,1,pClose#1

B.Open"c:\Test29.dat"ForRandomAs#1Get#1,1,pClose#1

C.Open"c:\Test29.dat"ForRandomAs#1Len=Len(p)Put#1,1,pClose#1

D.Open"c:\Test29.dat"ForRandomAs#1Len=Len(p)Get#1,1,pClose#1

30.在窗體上畫一個名稱為CommonDialog1的通用對話框，一個名稱為Command1的命令按鈕。要求單擊命令按鈕時，打開一個保存文件的通用對話框。該窗口的標(biāo)題為"Save"，缺省文件名為"SaveFile"，在"文件類型"欄中顯示*.txt。則能夠滿足上述要求的程序是[3分]

A.PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2EndSub

B.PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2EndSub

C.PrivateSubCommand1_Click()CommonDialog1.FileName="Save"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="SaveFile"CommonDialog1.Action=2EndSub

D.PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=1EndSub

二、填空題（每空2分，共30分）

1.VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是___。[每空2分]

2.VisualBasic提供的對數(shù)據(jù)文件的三種訪問方式為隨機訪問方式、___和二進制訪問方式。[每空2分]

3.執(zhí)行下面的程序段后，變量S的值為___。S=5Fori=2.6To4.9Step0.6S=S+1Nexti[每空2分]

4.為了在運行時把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picture1，所使用的語句為___。[每空2分]

5.計時器控件能有規(guī)律的以一定時間間隔觸發(fā)___事件，并執(zhí)行該事件過程中的程序代碼。[每空2分]

6.以下程序的功能是：生成20個200到300之間的隨機整數(shù)，輸出其中能被5整除的數(shù)并求出它們的和。請?zhí)羁铡rivateSubCommand1_Click()Fori=1To20x=Int(___*200+100)If___=0ThenPrintxS=S+___EndIfNextiPrint"Sum=";SEndSub[每空2分]

7.設(shè)有如下程序PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50p1a,bp2a,bp3a,bPrint"a=";a,"b=";bEndSubSubp1(xAsInteger,ByValyAsInteger)x=x+10y=y+20EndSubSubp2(ByValxAsInteger,yAsInteger)x=x+10y=y+20EndSubSubp3(ByValxAsInteger,ByValyAsInteger)x=x+10y=y+20EndSub該程序運行后，單擊窗體，則在窗體上顯示的內(nèi)容是：a=___和b=___。[每空2分]

8.在窗體上畫一個名稱為Command1的命令按鈕，編寫如下事件過程PrivateSubCommand1_Cl