全國計算機等級考試二級VB真題(2024-2025)

2024年4月全國計算機等級考試二級——VB筆試真題

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

一、選擇題((1)~(35)每小題2分，共70分)

(I)數(shù)據(jù)的存儲結(jié)構(gòu)是指

A)存儲在外存中的數(shù)據(jù)B)數(shù)據(jù)所占的存儲空間量

C)數(shù)據(jù)在計算機中的依次存儲方式D)數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的表示

(2)下列大于找的描述中錯誤的是

A)棧是先進后出的線性表B)棧只能依次存儲

C)棧具有記憶作用D)對棧的插入與刪除操作中，不須要變更棧底指針

(3)對于長度為n的線性表，在最壞狀況下，下列各排序法所對應(yīng)的比較次數(shù)中正確的是

A)冒泡排序為n/2B)冒泡排序為nC)快速排序為nD)快速排序為n(n-l)/2

(4)對于長度為n的線性表進行依次查找，在最壞狀況下所須要的比較次數(shù)為

A)log2nB)n/2C)nD)n+1

(5)下列對于線性鏈表的描述中正確的是

A)存儲空間不確定是連續(xù)，且各元素的存儲依次是隨意的

B)存儲空間不確定是連續(xù)，且前件元素確定存儲在后件元素的前面

C)存儲空間必需連續(xù)，且前件元素確定存儲在后件元素的前面

D)存儲空間必需連續(xù)，且各元素的存儲依次是隨意的

(6)下列對于軟件測試的描述中正確的是

A)軟件測試的目的是證明程序是否正確B)軟件測試的目的是使程序運行結(jié)果正確

C)軟件測試的目的是盡可能多地發(fā)覺程序中的錯誤D)軟件測試的目的是使程序符合結(jié)構(gòu)化原則

(7)為r使模塊盡可能獨立，要求

A)模塊的內(nèi)聚程度要盡量高,且各模塊間的耦合程度要盡量強

B)模塊的內(nèi)聚程度要盡量高,且各模塊間的耦合程度要盡量弱

C)模塊的內(nèi)聚程度要盡量低,且各模塊間的耦合程度要盡量弱

D)模塊的內(nèi)聚程度要盡量低,且各模塊間的耦合程度要盡量強

(8)下列描述中正確的是

A)程序就是軟件C)軟件既是邏輯實體，又是物理實體

B)軟件開發(fā)不受計算機系統(tǒng)的限制D)軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合

(9)數(shù)據(jù)獨立性是數(shù)據(jù)庫技術(shù)的重要特點之一。所謂數(shù)據(jù)獨立性處指

A)數(shù)據(jù)與程序獨立存放C)不同的數(shù)據(jù)只能被對應(yīng)的應(yīng)用程序所運用

B)不同的數(shù)據(jù)被存放在不同的文件中D)以上三種說法都不對

(10)用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模型是

A)關(guān)系模型B)網(wǎng)狀模型C)層次模型D)以上三個都是

(II)在窗體(名稱為Fonnl)上畫一個名稱為Tcxil的文本框和一個名稱為Command1的吩咐按鈕，然后編寫一個事

務(wù)過程。程序運行以后，假如在文本框中輸入一個字符，則把吩咐按鈕的標(biāo)題設(shè)置為“計算機等級考試工以下能

實現(xiàn)上述操作的事務(wù)過程是：

A)PrivateSubTcx(1_Changc()B)PrivateSubCommandl_Click()

叩計算玩等級考試”

CommandI.Caption="計算機等級考試”Ciion="

EndSubEndSub

C)PrivateSubForml_Click()D)PrivateSubCommandl_Click()

計算機等級考試

Tcxil.C叩lion="計算機等級考試”Tcxll.Tcxl="

EndSubEndSub

(12)設(shè)a=5,b=4,c=3,d=2,卜一列表達式的值是3>2*bOra=cAndhocOrc>d

A)1B)TrueC)FalseD)2

(13)設(shè)a="MicrosoftVisualBasic",則以下使變量b的值為“VisualBasic”的語句是

A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,IO)D)b=Mid(a,li,10)

(14)假定有如卜.的窗體事務(wù)過程，程序運行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：

PrivateSubForm_Click()

aS="MicrosoftVisualBasic"

bS=Right(a5,5)

c=Mid(a$,1,9)

MsgBoxa$.34,b$,c$,5

EndSub

A)MicrosoftVisualB)MicrosoftC)BasicD)5

-1-

2024年4月全國計算機等級考試二級一一VB筆試真題

(15)設(shè)a="a"，b="b"，c="c"，d="d"，執(zhí)行?語句x=Hf((a〈d)A"JB”)后，x的值為：

A)“a“B)”b“C)”B“D)“A"

(16)為了使吩咐按鈕(名稱為Command1)右移200,應(yīng)運用的語句是

A)Command1.Move-200B)CommandI.Move200

C)Command1.Left=Command1.Left+200D)CommandiLeft=CommandI.Left-200

(17)在窗體上畫一個文本框，然后編寫如下事務(wù)過程，程序運行時，在文本框中輸入456,然后單擊他體，在輸入對

話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：

PrivateSubFonn_Click()

x=InputBox("請輸入一*個整數(shù)”)

Printx+Text1.Text

EndSub

A)123B)456C)579D)123456

(18)在窗體匕曲一個文本框和一個計時器控件，名稱分別為lexll和hmeH.在屬性窗I」中把計時瑞的Interval屬性設(shè)

置為1000,Enabled屬性設(shè)置為False,程序運行后，假如單擊吩咐按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的

時間。以下是實現(xiàn)上述操作的程序，在處應(yīng)填入的內(nèi)容是

PrivateSubCommandl_Click()

Timer1.____________

EndSub

PrivateSubTimerl_Timer()

Text).Text=Time

EndSub

A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False

(19)假定在圖片框Piclurel中裝入了一個圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采納的正確方法是：

A)選擇圖片框，然后按Deli建

B)執(zhí)行語句Picturel.Picturc=LoudPicturc(“

C)執(zhí)行語句Piclurel.Picture-"

D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵

(20)在窗體上畫一個Listl的列表框，一個名稱為LabeH的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個

項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正的確現(xiàn)二述操作的程序是

A)PrivateSubListl_Click()C)PrivateSubListl_Click()

Label1.Caption=Lisi1.ListindexLabel1.Name=Listl.Text

EndSubEndSuh

B)PrivateSubListl_Click()D)PrivateSubListl_Click()

Label1.Name=Listl.ListindexLabel1.Caption=ListI.Text

EndSubEndSub

(21)在窗體上畫一個吩咐按鈕，名稱為Command1,然(22)在窗體上畫一個名稱為Command1的吩咐按鈕，然

后編寫如下事務(wù)過程：后編寫如下事務(wù)過程：

PrivateSubCommand1_CIick()PrivateSubCommandl_Click()

DimiAsInteger,xAsIntegerc="ABCD"

Fori=1To6Forn=1To4

Ifi=1Thenx=iPrint____________

Ifi<=4ThenNext

x=x+iEndSub

Else程序運行后，單擊吩咐按鈕，要求在窗體上顯示如

x=x+2下內(nèi)容：

EndIfD

NextiCD

PrintxBCD

EndSubARCD

程序運行后，單擊吩咐按鈕，其輸出結(jié)果為則在—處應(yīng)填入的內(nèi)容為

A)9B)6A)Left(c,n)B)Right(c,n)

C)12D)15C)Mid(c,n,l)D)Mid(c.n,n)

(23)執(zhí)行以下程序段后，x的值為

DimxAsInteger,iAsInteger

x=0

Fori=20ToiStep-2

x=x+i\5

NextI

A)16B)17C)18D)19

(24)在VisualBas沁工程中，可以作為啟動對象的程序是

A)任何窗體或標(biāo)準(zhǔn)模塊B)任何窗體或過程

2024年4月全國計算機等級考試二級一一VB筆試真題

C)SubMain過程或其他任何模塊D)SubMain過程或任何窗體

(25)假定建立「?個名為Commardl的吩咐按鈕數(shù)組，則以下說法中錯誤的是

A)數(shù)組中每個吩咐按鈕的名稱(名稱屬性)均為Command1

B)數(shù)組中每個吩咐按鈕的標(biāo)趣(C叩lion屬性)都?樣

O數(shù)組中全部吩咐按鈕可以運用同一個H務(wù)過程

D)用名稱Commands下標(biāo))可以訪問數(shù)組中的每個吩咐按鈕

(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事務(wù)過程：

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(di))

PrintChr(KeyAscii+2)

EndSub

程序運行后.按鍵盤上的“A”鍵，則在窗體上顯示的內(nèi)容是

A)AB)BC)CD)D

(27)在窗體上畫?個吩咐按鈕和?個文本框，名稱分別為Commandl和Textl,然后編寫如下程序：

PrivateSubCommandi_Click()

a=InputBox(”請輸入日期(1~31)")

t="旅游景點:"&IIf(a>0Anda<=10."長城&IIf(a>10Anda<=20,“故宮_

&IIf(a>20Anda<=30,"頤和園)

Text1.Text=t

EndSub

程序運行后,假如從鍵盤輸入16,則在文本框中顯示的內(nèi)容是：

A)旅游景點：長城故宮B)旅游景點：長城頤和園

C)旅游景點：頤和園D)旅游景點：故宮

(28)在窗體上畫一個名稱為Labell的標(biāo)簽，然后編寫如下事務(wù)過程，程序運行后，單擊窗體，在標(biāo)簽中顯示的內(nèi)容是

PrivateSubForm_Click()

Dimarr(IO.10)AsInteger

DimiAsInteger,]AsInteger

Fori=2To4

Forj=2To4

arr(i.j)=i*j

Nextj

Nexti

Label1.Caplion=Str(arr(2,2)+arr(3,3))

EndSub

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

(29)在窗體上畫一個名稱為Comamndl的吩咐按鈕，然(30)閱讀程序：

后編寫如卜通用過程和吩咐按鈕的事務(wù)過程：OptionBase1

PrivateFunctionfun(ByValmAsInteger)Dimarr()AsInteger

IfmMod2=0ThenPrivateSubFonn_Click()

fun=2DimiAsInteger,jAsInteger

ElseReDimarr(3,2)

fun=1Fori=1To3

EndIfForj=!To2

EndFunctionaiT(i,j)=i*2+j

PrivateSubCommand1_Click()Nextj

DimiAsInteger,sAsIntegerNexti

s=0ReDimPreservearr(3,4)

Fori=1To5Forj=3To4

s=s+fun(i)arr(3.j)=j+9

NextNextj

PrintsPrintarr(3,2)+arr(3,4)

EndSub

EndSub

程序運行后，單擊吩咐按鈕,則窗體上顯示的是：程序運行后，單擊窗體,輸出結(jié)果為：

A)6B)7C)8D)9

A)21B)13C)8D)25

31)在窗體上畫一個名稱為Command1的吩附按鈕.然后編寫如下程序:

OptionBaseI

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

d=0:c=6

x=Array(2,4,6,8,10,12)

3

2024年4月全國計算機等級考試二級一一VB筆試真題

For1=IIob

Ifx(i)>cThen

d=d+x(i):c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運行后，假如單擊吩咐按鈕，則在窗體上輸入的內(nèi)容為

A)1()B)16

C)12D)20

(32)設(shè)有如下程序:

PrivateSubCommandI_Chck()

DimcAsInteger,dAsInteger

c=4

d=InpulBox，'請輸入一個整數(shù)")

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InpulBox(“請輸入一個整數(shù)")

Loop

Printc+d

EndSub

程序運行后，單擊吩咐按鈕假如在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結(jié)果是：

A)12B)II

C)10D)9

(33)在窗體上畫一個名稱為Commandl的吩咐按鈕和一個名稱為Texil的文本框，在文本框中輸入以下字符串:

MicrosoftVisualBasicProgramming,然后編寫如下事務(wù)過程:

PrivateSubCommandl_Chck()

Open"d:\temp\outf.txt"ForOutputAs#1

Fori=1ToLen(Text1.Text)

c=Mid(Tex(l.Text,i,1)

Ifc>="A"Andc<="Z"Then

Print#1,LCase(c)：

EndIf

Nexti

Close

EndSub

程序運行后,單擊吩咐按鈕，文件outf.txt中的內(nèi)容是：

A)MVBPB)mvbp

C)MD)m

Vv

Bb

PP

(34)在窗體上畫一個名稱為Commandl的吩咐按鈕然后編寫如下程序：

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunction

PrivateSubCommandl_Click()

DimintNumAsInteger

intNum=InputBox("")

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouscDo\vn(ButtonAsInteger,ShiftAsInteger.XAsSingle,YAsSingle)

SW=False

4

2024年4月全國計算機等級考試二級一一VB筆試真題

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger.XAsSingle.YAsSingle)

SW=Truc

EndSub

程序運行后,單擊吩咐按鈕,將顯示一個輸入對話框，假如在對話框中輸入25,則程序的執(zhí)行結(jié)果是：

A)輸出0B)輸出25C)輸出45D)無任何輸出

(35)設(shè)有如下通用過程：

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫一個名稱為Tcxtl的文木框和一個名稱為「cmmandl的吩咐按鈕然后編寫如下事務(wù)過程

PrivateSuhCommandl_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=i+i

Next

funaiT.n

Text1.Text=Str(n)

EndSub

程序運行后，單擊吩咐按鈕,則在文本框中顯示的內(nèi)容是

A)30B)25C)20D)15

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

請將每一個空的正確答案寫在答題卡【I】?［15］序號的橫線上，答在試卷上不得分。留意：以吩咐關(guān)鍵字填空

的必需拼法完整。

(I)某二叉樹中度為2的結(jié)點有18個，則該二樹中有【I】個葉子結(jié)點。

(2)在面對時象方法中，類的實例稱為【2】o

(3)診斷和改正程序中錯誤的工作通常稱為【3】?

(4)在關(guān)系數(shù)據(jù)庫中，把數(shù)據(jù)表示成二維表，每一個二維表稱為【4】o

(5)問題處理方案的正確而完整的描述稱為【5】。

(6)以下語句PriniIni(12345.6789*100+0.5)/I00的輸出結(jié)果是：【6】

(7)在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事務(wù)過程：

PrivateSubFonn_Click()

Text1.Text="VB程序設(shè)計”

EndSub

PrivateSubTextl_Change()

Picture1.Print"VBProgramming"

EndSub

程序運行后,單擊窗體.在文本框中顯示的內(nèi)容是【7］，而在圖片框中顯示的內(nèi)容是［8】

(8)閱讀下面的程序，程序運行后，單擊窗體,輸出結(jié)果是【9】

PrivateSubForm_Click()

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+I

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

(9)設(shè)有如下程序：

PrivateSubForm_Click()

DimaAsInteger,sAsInteger

n=8

s=0

Do

5

2024年4月全國計算機等級考試二級一一VB筆試真題

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是【10】，程序運行后，單擊窗體，輸出結(jié)果為[II]

(10)設(shè)有如下程序:

OptionBase1

PrivateSubCommandI_Click()

Dimarrl

DimMinAsInteger,iAsInteger

arrl=Array(l2.435.76.-24.78,54,866,43)

Min=[12]

Fori=2To8

Ifarrl(i)<MinThen[13]

Nexti

Print"最小值是:";Min

EndSub

以上程序的功能是用Array函數(shù)建立一個含有8個元素的數(shù)組，然后先找并輸出該數(shù)組中的最小值,請?zhí)羁?/p>

(11)在名稱為Form1的窗體上畫一個文本框，其名稱為Tcxll,在屬性窗口中把文本框的MulliLinc屬性設(shè)苴為True,然后

編寫如下事務(wù)過程：

PrivateSubForm_Click()

Open"d:\test\smtextl.txt"ForInputAs#l

DoWhileNot[14]

LineInput#1.aspects

wholeS=whole$-+aspects+Chr(13)+Chr(l0)

Loop

Text1.Text=wholeS

Close#I

Open"d:\tesl\smtext2.ixt"ForOutputAs#1

Print#1,[15]

Close#1

EndSub

上述程序的功能是，把磁盤文件smtexll.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁

盤文件smtexl2.txt.請?zhí)羁铡?/p>

2024年4月全國計算機等級考試二級VB筆試參考答案

選擇題：

1—5DBDCA6—10CBDDC

11-15ABBCD16-20CDABD

21-25ABCDB26-30CDBBA

31-35CDBDA

填空題：

[1]19(9]10

對

象

(2J[10]求1-8的和

程

序

[3]關(guān)[II]36

系

(算

4]法[12]arrl(l)

(5][13]min=arrl(i)

[6]12345.68[14]EOF(l)

[7]VB程序設(shè)計[15]lexiI.text(或whole$)

[8]VBProgramming

6

2024年9月全國計算機等級考試二級一一VB筆試真題

2024年9月全國計算機等級考試二級VB筆試試卷

一、選擇題（每小題2分，共70分）

下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應(yīng)位置匕答在

試卷上不得分。

（I）下列敘述中正確的是

A）程序設(shè)計就是編制程序B）程序的測試必需由程序員自己去完成

C）程序經(jīng)調(diào)試改借后還應(yīng)進行再測試D）程序經(jīng)調(diào)試改借后不必進行再測試

（2）下列數(shù)據(jù)結(jié)構(gòu)中，能用二分法進行查找的是

A）依次存儲的有序線性表B）線性鏈表C）二叉鏈表D）有序線性鏈表

（3）下列關(guān)于棧的描述正確的是

A）在棧中只能插入元素而不能刪除元素

B）在棧中只能刪除元素而不能插入元素

C）棧是特別的線性表，只能在一端插入或刪除元素

D）棧是特別的線性表，只能在一端插入元素，而在另一端刪除元素

（4）下列敘述中正確的是

A）一個邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲結(jié)構(gòu)

B）數(shù)據(jù)的邏輯結(jié)構(gòu)屬于線性結(jié)構(gòu)，存儲結(jié)構(gòu)屬于非線性結(jié)構(gòu)

C）一個邏輯數(shù)據(jù)結(jié)構(gòu)nJ.以有多種存儲結(jié)構(gòu),且各種存儲結(jié)構(gòu)不影響數(shù)據(jù)處理的效率

D）一個邏輯數(shù)據(jù)結(jié)構(gòu)可.以有多種存儲結(jié)構(gòu)，且各種存儲結(jié)構(gòu)影響數(shù)據(jù)處理的效率

（5）卜列描述中正確的是

A）軟件工程只是解決軟件項目的管理問題

B）軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問題

C）軟件工程的主要思想是強調(diào)在軟件開發(fā)過程中須要應(yīng)用工程化原則

D）軟件工程只是解決軟件開發(fā)中的技術(shù)問題

（6）在軟件設(shè)計中，不屬于過程設(shè)計工具的是

A）PDL（過程設(shè)計語言）B)PAD圖C)N-S圖D)DFD圖

（7）下列敘述中正確的是

A）軟件交付運用后還須要進行維護B）軟件一旦交付運用就不須要再進行維護

C）軟件交付運用后其牛.命周期就結(jié)束D）軟件維護是指修復(fù)程序中被破壞的指令

（8）數(shù)據(jù)庫設(shè)計的根本H標(biāo)是要解決

A）數(shù)據(jù)共享問題B）數(shù)據(jù)平安問題C）大量數(shù)據(jù)存儲問題D）簡化數(shù)據(jù)維護

（9）設(shè)有如下關(guān)系表：

RST

ABCABCABC

1123I3112

223223

313

則下列操作中正確的是

A)T=RASB)T=RUSC)T=RxSD)T=R/S

（10）數(shù)據(jù)庫系統(tǒng)的核心是

A）數(shù)據(jù)模型B）數(shù)據(jù)庫管理系統(tǒng)C）數(shù)據(jù)庫D）數(shù)據(jù)庫管理員

（II）假定一個VisualRasic應(yīng)用程序由一個窗體模塊和一個標(biāo)準(zhǔn)模塊構(gòu)成.為保存該應(yīng)用程序，以下正確的操作是

A）只保存窗體模塊文件C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件

B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件D）只保存工程文件

（12）為了清除窗體上的一個控件，卜列正確的操作是

A）按同車鍵C）選擇（單擊）要清除的控件，然后按Del鍵

B）按Esc健D）選擇（單擊）要清除的控件，然后按回車鍵

（13）以卜敘述中錯誤的是

A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件

B）當(dāng)程序運行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick事務(wù)

C）VisualBasic應(yīng)用程序只能以說明方式執(zhí)行

D）事務(wù)可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)

（14）設(shè)a=2.b=3,c=4,d=5,下歹煤達式Nota<=cOr4*c=bA2Andb<>a+c的值是

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

(15)設(shè)a=5,b=10,則執(zhí)行c=lnt((b-a)*Rnd+a)+1后，c值的范圍為

7

2024年9月全國計算機等級考試二級一一VB筆試真題

A)5?10B)6?9C)6?10D)5?9

(16)在窗體上畫一個吩咐按鈕,名稱為Command1,然后編寫如下事務(wù)過程:

PrivateSubCommandI_Click()

a$="softwareandhardware"

b$=Right(a5,8)

c$=Mid(a5,1.8)

MsgBoxa$,,b$,c$,1

EndSub

運行程序，單擊吩咐按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是

A)softwareandhardwareB)softwareC)hardwareD)I

(17)在窗體上畫一個吩咐按鈕和一個文本框，其名稱分別為Command1和Textl,把文本框的Text屬性設(shè)置為空白,

然后編寫如下事務(wù)過程：

PrivateSubCommandI_Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

TextI.Text=b+a

EndSub

程序運行后，單擊吩咐按鈕，限如在輸入對話框中分別輸入8和10,則文本框中顯示的內(nèi)容是

A)108B)18C)810D)出錯

(18)在窗體上畫兩個文本框，其名稱分別為Texll和Texl2,然后編寫如下程序：

PrivateSubForm_Lo<id()

Show

Text!.Text=MM:Text2.Text=,,H:Textl.SetFocus

EndSub

PrivateSubTextl_Change()

Text2.Text=Mid(Textl.Text,8)

EndSub

程序運行后，假如在文木框Texil中輸入BeijingChina,則在文本框Texl2中顯示的內(nèi)容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗體上畫一個列表框和一個吩咐按鈕，其名稱分別為Lisll和Command］，然后編寫如下事務(wù)過程：

PrivateSubForm_【《oad()

ListI.Additem'ItemI"

List1.Additem'Item2"

Listl.Addltem'Item3"

EndSub

PrivateSubCommandl_Click()

Listl.List(ListlListCount)="AAAA"

EndSub

程序運行后，單擊吩咐按鈕，其結(jié)果為

A)把字符串“AAAA”添加到列表框中，但位置不能確定

B)把字符串“AAAA”添加到列表框的最終(即“Item3”的后面)

C)把列表框中原有的最終一項改為“AAAA”

D)把字符串“AAAA”插入到列表框的最前面(即“ItemI”的前面)

(20)假定有如下事務(wù)過程：

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

Loop

Printx,n

EndSub

程序運行后，單擊窗體，輸出結(jié)果是

A)814B)563

C)28ID)2435

(21)有如下程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

8

2024年9月全國計算機等級考試二級一一VB筆試真題

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter.Check

EndSub

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

A)150B)20-1

C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Ciick()

DimiAsInteger,sumAsIntega

sum=0

Fori=2To10

IfiMod2<>0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

A)12B)30C)24D)18

(23)在窗體上畫一個名稱為Text