2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)_第1頁
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)_第2頁
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)_第3頁
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)_第4頁
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)_第5頁
已閱讀5頁,還剩20頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

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

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

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

(考試時(shí)間90分鐘,總分值100分)

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

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

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

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

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

A)=VisualBasic窗體

B)Form1.Title=VisualBasic窗體

C)Form1.Caption=VisualBasic窗體

D)Form1.Text=VisualBasic窗體〞

(3)在窗體上畫一個(gè)名稱為Text1的文本框,然后畫一個(gè)名稱為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è)置訪問鍵,即按下Alt及字母O時(shí),能夠執(zhí)行Open命令,則在菜單編輯器中設(shè)置“Open命令的方式是

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

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

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

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

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

(5)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()

x=InputBox(Input)

SelectCasex

Case1,3

Print分支1

CaseIs4

Print分支2

CaseElse

PrintElse分支

EndSelect

EndSub

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

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

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

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

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

C)MsgBox語句沒有返回值

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

(7)在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件,則以下正確的屬性設(shè)置語句是

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

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

(8)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程: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月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)

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

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

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

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

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

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

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

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

B)不同的對象可以具有一致名稱的方法

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

D)對象事件的名稱可以由編程者指定

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

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)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程: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事件過程中不能識別鍵盤的按下與釋放

B)在KeyPress事件過程中不能識別回車鍵

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

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

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

a=9.8596

PrintFormat(a,$00,00.00)

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

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

(20)在窗體上畫一個(gè)名稱為CommandDialog1的通用對話框,一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過程:

PrivateSubCommand1_Click()

CommonDialog1.FileName=

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

CommonDialog1.DialogTitle=VBTest

CommonDialog1.Action=1

EndSub

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

A)該對話框被設(shè)置為“開啟〞對話框

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

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

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

(21)設(shè)一個(gè)工程由兩個(gè)窗體組成,其名稱分別為Form1和Form2,在Form1上有一個(gè)名稱為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)在窗體上畫一個(gè)名稱為Command1的命令按鈕,并編寫如下程序: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月全國計(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過程的參數(shù)n是按值傳送的

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

(24)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程: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月全國計(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)在窗體上畫一個(gè)名稱為File1的文件列表框,并編寫如下程序:PrivateSubFile1_DblClick()

x=Shell(File1.FileName,1)

EndSub

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

A)x沒有實(shí)際作用,因此可以將該語句寫為:CallShell(File1,FileName,1)

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

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

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

(27)在窗體上畫一個(gè)名稱為Label1、標(biāo)題為“VisualBasic考試〞的標(biāo)簽,兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“開始〞和“中止〞的命令按鈕,然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,并把其Interval屬性設(shè)置為500,如下圖。

編寫如下程序:

PrivateSubForm_Load()

Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click()

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer()

IfLabel1.LeftWidthThen

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

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

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

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

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

B)單擊“中止〞按鈕后再單擊“開始〞按鈕,標(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)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下程序: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月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代碼如下:

SubMain()

S1

EndSub

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

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

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

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

請將每空的正確答案寫在答題卡~序號的橫線上,答在試卷上不得分。

(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è)名稱為List1的列表框,一個(gè)名稱為Text1的文本框,一個(gè)名稱為Label1、Caption屬性為“Sum〞的標(biāo)簽,一個(gè)名稱為Command1、標(biāo)題為“計(jì)算〞的命令按鈕。程序運(yùn)行后,將把1~100之間能夠被7整除的數(shù)添加到列表框中。假使單擊“計(jì)算〞按鈕,則對List1中的數(shù)進(jìn)行累加求和,并在文本框中顯示計(jì)算結(jié)果,如下圖。以下是實(shí)現(xiàn)上述功能的程序,請?zhí)羁铡?/p>

PrivateSubForm_Load()

Fori=1To100

IfiMod7=0Then

EndIf

2023年9月全國計(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è)文本框,名稱分別是Text1、Text2、Text3,分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù),如下圖。程序運(yùn)行后,在文本框Text1中輸入總次數(shù),然后單擊“開始〞按鈕,依照輸入的次數(shù)模擬投幣,分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù),并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序,請?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月全國計(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)行后,單擊窗體,在輸入對話框中分別輸入三個(gè)整數(shù),程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù),如下圖。請?zhí)羁铡?/p>

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

PrivateSubCommand1_Click()

Sum=0

Fori=0To4

Sum=

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論