本文格式為Word版，下載可任意編輯——2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷

（考試時(shí)間90分鐘，總分值100分）

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

(1)設(shè)窗體上有一個(gè)文本框，名稱(chēng)為text1,程序運(yùn)行后，要求該文本框只能顯示信息，不能接受輸入的信息，以下能實(shí)現(xiàn)該操作的語(yǔ)句是

A)Text1.MaxLength=0B)Text1.Enabled=Flase

C)Text1.Visible=FlaseD)Text1.Width=0

(2)以下能在窗體Form1的標(biāo)題欄中顯示“VisualBasic窗體的語(yǔ)句是

A)=VisualBasic窗體

B)Form1.Title=VisualBasic窗體

C)Form1.Caption=VisualBasic窗體

D)Form1.Text=VisualBasic窗體〞

(3)在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后畫(huà)一個(gè)名稱(chēng)為HScroll1的滾動(dòng)條，其Min和Max屬性分別為0和100。程序運(yùn)行后，假使移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，如下圖。

以下能實(shí)現(xiàn)上述操作的程序段是

A)PrivateSubHscroll1_Change()

Text1.Text=HScroll1.Value

EndSub

B)PrivateSubHscroll1_Click()

Text1.Text=HScroll1.Value

EndSub

C)PrivateSubHscroll1_Change()

Text1.Text=Hscroll1.Caption

EndSub

D)PrivateSubHscroll1_Click()

Text1.Text=Hscroll1.Caption

EndSub

(4)設(shè)菜單中有一個(gè)菜單項(xiàng)為Open。若要為該菜單命令設(shè)置訪問(wèn)鍵，即按下Alt及字母O時(shí)，能夠執(zhí)行Open命令，則在菜單編輯器中設(shè)置“Open命令的方式是

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

A)把Caption屬性設(shè)置為Open

B)把Caption屬性設(shè)置為Open

C)把Name屬性設(shè)置為Open

D)把Name屬性設(shè)置為Open

(5)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

x=InputBox(Input)

SelectCasex

Case1,3

Print分支1

CaseIs4

Print分支2

CaseElse

PrintElse分支

EndSelect

EndSub

程序運(yùn)行后，假使在輸入對(duì)話框中輸入2，則窗體上顯示的是

A)分支1B)分支2C)Else分支D)程序出錯(cuò)

(6)以下關(guān)于MsgBox的表達(dá)中，錯(cuò)誤的是

A)MsgBox函數(shù)返回一個(gè)整數(shù)

B)通過(guò)MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類(lèi)型

C)MsgBox語(yǔ)句沒(méi)有返回值

D)MsgBox函數(shù)的其次個(gè)參數(shù)是一個(gè)整數(shù),該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量

(7)在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是

A)Timer1.Interval=0.5B)Timer1.Interval=5

C)Timer.Interval=50D)Timer1.Interval=500

(8)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是

A)42B)1218C)1230D)46

(9)以下關(guān)于多重窗體程序的表達(dá)中，錯(cuò)誤的是

A)用Hide方法不但可以隱蔽窗體,而且能清除內(nèi)存中的窗體

B)在多重窗體程序中,各窗體的菜單是彼此獨(dú)立的

C)在多重窗體程序中,可以根據(jù)需要指定啟動(dòng)窗體

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

D)對(duì)于多重窗體程序,需要單獨(dú)保存每個(gè)窗體

(10)以下關(guān)于文件的表達(dá)中，錯(cuò)誤的是

A)順序文件中的記錄一個(gè)接一個(gè)地順序存放

B)隨機(jī)文件中記錄的長(zhǎng)度是隨機(jī)的

C)執(zhí)行開(kāi)啟文件的命令后,自動(dòng)生成一個(gè)文件指針

D)LOF函數(shù)返回給文件分派的字節(jié)數(shù)

(11)以下表達(dá)中錯(cuò)誤的是

A)事件過(guò)程是響應(yīng)特定事件的一段程序

B)不同的對(duì)象可以具有一致名稱(chēng)的方法

C)對(duì)象的方法是執(zhí)行指定操作的過(guò)程

D)對(duì)象事件的名稱(chēng)可以由編程者指定

(12)以下合法的VisualBasic標(biāo)識(shí)符是

A)ForLoopB)ConstC)9abcD)a#x

(13)當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是

A)3B)2C)1D)0

(14)表達(dá)式5Mod3+3\5*2的值是

A)0B)2C)4D)6

(15)設(shè)x=4,y=8,z=7，以下表達(dá)式的值是

xyAnd(Notyz)Orzx

A)1B)-1C)TrueD)False

(16)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

a$=VisualBasic

PrintString(3,a$)

EndSub

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是

A)VVVB)VisC)sicD)11

(17)設(shè)有如下程序段：

x=2

Fori=1To10Step2

x=x+i

Next

運(yùn)行以上程序后，x的值是

A)26B)27C)38D)57

(18)以下表達(dá)中錯(cuò)誤的是

A)在KeyPress事件過(guò)程中不能識(shí)別鍵盤(pán)的按下與釋放

B)在KeyPress事件過(guò)程中不能識(shí)別回車(chē)鍵

C)在KeyDown和KeyUp事件過(guò)程中,將鍵盤(pán)輸入的A和a視作一致的字母

D)在KeyDown和KeyUp事件過(guò)程中,從大鍵盤(pán)上輸入的1和從右側(cè)小鍵盤(pán)上輸入的1被視作不同的字符

(19)執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是

a=9.8596

PrintFormat(a,$00,00.00)

A)0,009.86B)$9.86C)9.86D)$0,009.86

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

(20)在窗體上畫(huà)一個(gè)名稱(chēng)為CommandDialog1的通用對(duì)話框，一個(gè)名稱(chēng)為Command1的命令按鈕。然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

CommonDialog1.FileName=

CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle=VBTest

CommonDialog1.Action=1

EndSub

對(duì)于這個(gè)程序，以下表達(dá)中錯(cuò)誤的是

A)該對(duì)話框被設(shè)置為“開(kāi)啟〞對(duì)話框

B)在該對(duì)話框中指定的默認(rèn)文件名為空

C)該對(duì)話框的標(biāo)題為VBTest

D)在該對(duì)話框中指定的默認(rèn)文件類(lèi)型為文本文件(*.Txt)

(21)設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱(chēng)分別為Form1和Form2，在Form1上有一個(gè)名稱(chēng)為Command1的命令按鈕。窗體Form1的程序代碼如下：

PrivateSubCommand1_Click()

DimaAsInteger

a=10

Callg(Form2,a)

EndSub

PrivateSubg(fAsForm,xAsInteger)

y=IIf(x10,100,-100)

f,Show

f.Caption=y

EndSub

運(yùn)行以上程序，正確的結(jié)果是

A)Form1的Caption屬性值為100

B)Form2的Caption屬性值為-100

C)Form1的Caption屬性值為-100

D)Form2的Caption屬性值為100

(22)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，并編寫(xiě)如下程序：PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1(x,y)

Printx,y

EndSub

PrivateSubf1(ByRefx1AsInteger,y1AsInteger)

x1=x1+2

y1=y1+2

EndSub

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是

A)105B)125C)107D)127

(23)設(shè)有如下程序

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger

DimnAsInteger

n=InputBox(輸入數(shù)據(jù))

Ifn10Then

CallGetArray(a,n)

EndIf

EndSub

PrivateSubGetArray(b()AsInteger,nAsInteger)

Dimc(10)AsInteger

j=0

Fori=1Ton

b(i)=CInt(Rnd()*100)

Ifb(i)/2=b(i)\2Then

j=j+1

c(j)=b(i)

EndIf

Next

Printj

EndSub

以下表達(dá)中錯(cuò)誤的是

A)數(shù)組b中的偶數(shù)被保存在數(shù)組c中

B)程序運(yùn)行終止后,在窗體上顯示的是c數(shù)組中元素的個(gè)數(shù)

C)GetArray過(guò)程的參數(shù)n是按值傳送的

D)假使輸入的數(shù)據(jù)大于10，則窗體上不顯示任何顯示

(24)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：OptionBase1

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4,5)

Fori=1ToUBound(a)

a(i)=a(i)+i-1

Next

Printa(3)

EndSub

程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是

A)4B)5C)6D)7

(25)閱讀程序

OptionBase1

PrivateSubForm_Click()

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

Dimarr,Sum

Sum=0

arr=Array(1,3,5,7,9,11,13,15,17,19)

Fori=1To10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

程序運(yùn)行后，單擊窗體，輸出結(jié)果為

A)13B)14C)27D)15

(26)在窗體上畫(huà)一個(gè)名稱(chēng)為File1的文件列表框，并編寫(xiě)如下程序：PrivateSubFile1_DblClick()

x=Shell(File1.FileName,1)

EndSub

以下關(guān)于該程序的表達(dá)中，錯(cuò)誤的是

A)x沒(méi)有實(shí)際作用，因此可以將該語(yǔ)句寫(xiě)為：CallShell(File1,FileName,1)

B)雙擊文件列表框中的文件，將觸發(fā)該事件過(guò)程

C)要執(zhí)行的文件的名字通過(guò)File1.FileName指定

D)File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件

(27)在窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)abel1、標(biāo)題為“VisualBasic考試〞的標(biāo)簽，兩個(gè)名稱(chēng)分別為Command1和Command2、標(biāo)題分別為“開(kāi)始〞和“中止〞的命令按鈕，然后畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500，如下圖。

編寫(xiě)如下程序：

PrivateSubForm_Load()

Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click()

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer()

IfLabel1.LeftWidthThen

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

程序運(yùn)行后單擊“開(kāi)始〞按鈕，標(biāo)簽在窗體中移動(dòng)。

對(duì)于這個(gè)程序，以下表達(dá)中錯(cuò)誤的是

A)標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?/p>

B)單擊“中止〞按鈕后再單擊“開(kāi)始〞按鈕，標(biāo)簽從中止的位置繼續(xù)移動(dòng)

C)當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)

D)標(biāo)簽按指定的時(shí)間間隔移動(dòng)

(28)執(zhí)行以下程序段

a$=abbacddcba

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(XYz)

Nexti

Printz

輸出結(jié)果為

A)ABAB)BBABBAC)ABBABAD)AABAAB

(29)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：OptionBase1

PrivateSubCommand1_Click()

DimaAsVariant

a=Array(1,2,3,4,5)

Sum=0

Fori=1To5

Sum=sum+a(i)

Nexti

x=Sum/5

Fori=1To5

Ifa(i)xThenPrinta(i);

Nexti

EndSub

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是

A)12B)123C)345D)45

(30)假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件Model1及Model2組成。

Model1代碼如下：

PublicxAsInteger

PublicyAsInteger

SubS1()

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代碼如下：

SubMain()

S1

EndSub

其中SubMain被設(shè)置為啟動(dòng)過(guò)程。程序運(yùn)行后，各模塊的執(zhí)行順序是

A)Form1→Model1→Model2B)Model1→Model2→Form1

C)Model2→Model1→Form1D)Model2→Form1→Model1

二、填空題(每空2分，共30分)

請(qǐng)將每空的正確答案寫(xiě)在答題卡～序號(hào)的橫線上，答在試卷上不得分。

(1)設(shè)有如下程序段：

a$=BeijingShanghai

b$=Mid(a$,InStr(a$,g)+1)

執(zhí)行上面的程序段后，變量b$的值為。

(2)以下程序段的輸出結(jié)果是。

num=0

Whilenum=2

num=num+1

Wend

Printnum

(3)窗體上有一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，一個(gè)名稱(chēng)為T(mén)ext1的文本框，一個(gè)名稱(chēng)為L(zhǎng)abel1、Caption屬性為“Sum〞的標(biāo)簽，一個(gè)名稱(chēng)為Command1、標(biāo)題為“計(jì)算〞的命令按鈕。程序運(yùn)行后，將把1～100之間能夠被7整除的數(shù)添加到列表框中。假使單擊“計(jì)算〞按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如下圖。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>

PrivateSubForm_Load()

Fori=1To100

IfiMod7=0Then

EndIf

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

EndSub

PrivateSubCommand1_Click()

Sum=0

Fori=0To

Sum=Sum+

Next

Text1.Text=Sum

EndSub

(4)本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于一次投幣，1代表正面，0代表反面。在窗體上有三個(gè)文本框，名稱(chēng)分別是Text1、Text2、Text3，分別用于顯示用戶(hù)輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如下圖。程序運(yùn)行后，在文本框Text1中輸入總次數(shù)，然后單擊“開(kāi)始〞按鈕，依照輸入的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

Randomize

n=CInt(Text1.Text)

n1=0

n2=0

ForI=1To

r=Int(Rnd*2)

Ifr=Then

n1=n1+1

Else

n2=n2+1

EndIf

Next

Text2.Text=n1

Text3.Text=n2

EndSub

(5)閱讀程序：

OptionBase1

PrivateSubForm_Click()

Dima(3)AsInteger

Print輸入的數(shù)據(jù)是：;

Fori=1To3

a(i)=InputBox(輸入數(shù)據(jù))

2023年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷(含參考答案)

Printa(i);

Next

Print

Ifa(1)a(2)Then

t=a(1)

a(1)=a(2)

a(2)=

EndIf

Ifa(2)a(3)Then

m=a(2)

ElseIfa(1)a(3)Then

m=

Else

m=

EndIf

Print中間數(shù)是：;m

EndSub

程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中分別輸入三個(gè)整數(shù)，程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù)，如下圖。請(qǐng)?zhí)羁铡?/p>

(6)在窗體上畫(huà)一個(gè)名稱(chēng)為“Command1〞，標(biāo)題為“計(jì)算〞的命令按鈕，再畫(huà)7個(gè)標(biāo)簽，其中5個(gè)標(biāo)簽組成名稱(chēng)為L(zhǎng)abel1的控件數(shù)組;名稱(chēng)為L(zhǎng)abel2的標(biāo)簽用于顯示計(jì)算結(jié)果，其Caption屬性的初始值為空；標(biāo)簽Label3的標(biāo)題為“計(jì)算結(jié)果〞。運(yùn)行程序時(shí)會(huì)自動(dòng)生成5個(gè)隨機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中，如下圖。單擊“計(jì)算〞按鈕，則將標(biāo)簽數(shù)組各元素的值累加，然后計(jì)算結(jié)果顯示在Label2。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

Sum=0

Fori=0To4

Sum=