全國計算機等級考試二級VB真題2005-2012年

2005-2012年國二VB真題一唐海

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

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

(1)數(shù)據的存儲結構是指

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

C)數(shù)據在計算機中的順序存儲方式D)數(shù)據的邏輯結構在計算機中的表示

(2)下列關于棧的描述中錯誤的是

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

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

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

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

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

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

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

A)存儲空間不一定是連續(xù)，且各元素的存儲順序是任意的

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

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

D)存儲空間必須連續(xù)，且各元素的存儲順序是任意的

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

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

O軟件測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯誤D)軟件測試的目的是使程序符合結構化原則

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

A)模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量強

B)模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量弱

C)模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量弱

D)模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量強

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

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

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

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

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

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

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

A)關系模型B)網狀模型C)層次模型D)以上三個都是

(11)在窗體(名稱為Forml)上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕，然后編寫一個事件過程。程序運行以后,

如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是:

A)PrivateSubTextl_Change()B)PrivateSubCommandl_Click()

w

Command1.Caption=w計算機等級考試”Caption=計算屬等級考試”

EndSubEndSub

C)PrivateSubForml_Click()D)PrivateSubCommand1_C1ick()

w

Textl.Caption="計算機等級考試”Textl.Text=計至機等級考試”

EndSubEndSub

(12)設a=5,b=4,c=3,d=2,下列表達式的值是3〉2*bOra=cAndbOcOrc>d

A)1B)TrueC)FalseD)2

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

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

(14)假定有如下的窗體事件過程，程序運行后單擊窗體，則在彈出的信息框中的標題欄中顯示的信息是：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic*

b$=Right(a$,5)

c=Mid(a$,1,9)

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

EndSub

A)MicrosoftVisualB)MicrosoftC)BasicD)5

(15)設a="a"，b="b"，c="c"，d="d”，執(zhí)行語句x=Hf((a<d),"A“，"B”)后,x的值為:

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

(16)為了使命令按鈕(名稱為Commandl)右移200,應使用的語句是

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

C)Commandl.Left=Connnandl.Left+200D)Commandl.Left=Command1.Left-200

(17)在窗體上畫一個文本框，然后編寫如下事件過程，程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確

定”按鈕后，在窗體上顯示的內容是：

PrivateSubForm_Click()

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

Printx+Textl.Text

EndSub

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

(18)在窗體上畫一個文本框和一個計時器控件，名稱分別為Textl和Timerl,在屬性窗口中把計時器的Interval屬性設置為1000,Enabled

屬性設置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序，在

處應填入的內容是

PrivateSubCommandl_Click()

Timer1._________

EndSub

PrivateSubTimerl_Tiroer()

Textl.Text=Time

EndSub

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

(19)假定在圖片框Picturel中裝入了一個圖形，為了清除該圖形(不刪除圖片框)，應采用的正確方法是:

A)選楚圖片框，然后按Del鍵

B)執(zhí)行語句Picturel.Picture=LoadPicture(

C)執(zhí)行語句Picturel.Picture="”

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

(20)在窗體上畫一個Listl的列表框，一個名稱為Label1的標簽,列表框中顯示若干個項目，當單擊列表框中的某個項目時，在標簽中顯示

被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是

A)PrivateSubListl_Click()C)PrivateSubListl_Click()

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

EndSubEndSub

B)PrivateSubListl_Click()D)PrivateSubListl_Click()

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

EndSubEndSub

(21)在窗體上畫一個命令按鈕，名稱為Commandl,然后編寫如下(22)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下

事件過程：事件過程：

PrivateSubCommandl_Click()PrivateSubConnnandl_Click()

DimiAsInteger,xAsIntegerc=〃ABCD”

Fori=1To6Forn=1To4

Ifi=1Thenx=iPrint_________

Ifi<=4ThenNext

x=x+1EndSub

Else程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容：

x=x+2D

EndIfCD

NextiBCD

PrintxABCD

EndSub則在處應填入的內容為

程序運行后，單擊命令按鈕，其輸出結果為A)Left(c,n)B)Right(c,n)

A)9B)6C)Mid(c,n,1)D)Mid(c,n,n)

C)12D)15

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

DimxAsInteger,iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextI

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

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

A)任何窗體或標準模塊B)任何窗體或過程

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

(25)假定建立了一個名為Commandl的命令按鈕數(shù)組，則以下說法中錯誤的是

A)數(shù)組中每個命令按鈕的名稱(名稱屬性)均為Commandl

B)數(shù)組中每個命令按鈕的標題(Caption屬性)都一樣

C)數(shù)組中所有命令按鈕可以使用同一個事件過程

D)用名稱Commandl(下標)可以訪問數(shù)組中的每個命令按鈕

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序運行后,按鍵盤上的“A”鍵，則在窗體上顯示的內容是

A)AB)BC)CD)D

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

PrivateSubConmandl_Click()

a=InputBox("請輸入日期(廣3D*)

t="旅游景點:"&IIf(a>0Anda<=10,"長城"，&IIf(a>10Anda<=20,"故宮"，〃”)

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

Textl.Text=t

EndSub

程序運行后,如果從鍵盤輸入16,則在文本框中顯示的內容是：

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

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

(28)在窗體上畫一個名稱為Label1的標簽,然后編寫如下事件過程，程序運行后,單擊窗體,在標簽中顯示的內容是

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

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

(29)在窗體上畫一個名稱為Comamndl的命令按鈕,然后編寫如下(30)閱讀程序：

通用過程和命令按鈕的事件過程：OptionBase1

PrivateFunctionfun(ByVaimAsInteger)Dimarr()AsInteger

IfmMod2=0ThenPrivateSubForm_Click()

fun=2DimiAsInteger,jAsInteger

ElseReDimarr(3,2)

fun=1Fori=1To3

EndIfForj=1To2

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

PrivateSubCommandl_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)

EndSubEndSub

程序運行后,單擊命令按鈕,則窗體上顯示的是：程序運行后，單擊窗體,輸出結果為：

A)6B)7C)8D)9A)21B)13C)8D)25

31)在窗體上畫一個名稱為Commandl的命令按鈕,然后編寫如下程序：

OptionBase1

PrivateSubConmandl_Click()

DimcAsInteger,dAsInteger

d=0:c=6

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

Fori=1To6

Ifx(i)>cThen

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

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運行后,如果單擊命令按鈕,則在窗體上輸入的內容為

A)10B)16

C)12D)20

(32)設有如下程序：

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

c=4

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

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBoxC請輸入一個整數(shù)”)

Loop

Printc+d

EndSub

程序運行后，單擊命令按鈕如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結果是:

A)12B)11

C)10D)9

(33)在窗體上畫一個名稱為Connnandl的命令按鈕和一個名稱為Textl的文本框，在文本框中輸入以下字符串：

MicrosoftVisualBasicProgramming,然后編寫如下事件過程：

PrivateSubComroandl_Click()

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

Fori=1ToLen(Textl.Text)

c=Mid(Text1.Text,i,1)

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

Print#1,LCase(c);

EndIf

Nexti

Close

EndSub

程序運行后,單擊命令按鈕,文件outf.txt中的內容是：

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

PrivateSubCommand1_C1ick()

DimintNumAsInteger

intNum=InputBox(**)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

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

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

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

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕,然后編寫如下事件過程:

PrivateSubCommand1_C1ick()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=i+i

Next

funarr,n

Textl.Text=Str(n)

EndSub

程序運行后,單擊命令按鈕,則在文本框中顯示的內容是

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

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

請將每一個空的正確答案寫在答題卡［1】?【15】序號的橫線上，答在試卷上不得分。注意：以命令關鍵字填空的必須拼寫完整。

z1

\(

2某二叉樹中度為2的結點有18個，則該二樹中有【1】個葉子結點。

(z

\在面向對象方法中，類的實例稱為［2］o

3

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

4

在關系數(shù)據庫中，把數(shù)據表示成二維表，每一個二維表稱為【410

(z5

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

6)

以下語句PrintInt(12345.6789*100+0.5)/100的輸出結果是：［6］

z7)

x(在窗體上畫一個文本框和一個圖片框,然后編寫如下兩個事件過程:

PrivateSubForm_Click()

Textl.Text="VB程序設計,

EndSub

PrivateSubTextl_Change()

Picturel.Print“VBProgramming”

EndSub

程序運行后，單擊窗體，在文本框中顯示的內容是【7］，而在圖片框中顯示的內容是【8】

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

PrivateSubFonn_Click()

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

(9)設有如下程序：

PrivateSubFonn_Click()

DimaAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是【10】，程序運行后，單擊窗體，輸出結果為[111

(10)設有如下程序：

OptionBase1

PrivateSubCommandl_Click()

Dimarrl

DimMinAsInteger,iAsInteger

arrl=Array(12,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)在名稱為Fonnl的窗體上畫一個文本框，其名稱為Textl,在屬性窗口中把文本框的MultiLine屬性設置為True,然后編寫如下事件過程：

PrivateSubForm_Click()

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

DoWhileNot[14]

LineInput#1,aspect$

whole$=whole$+aspects+Chr(13)+Chr(10)

Loop

Textl.Text=whole$

Close#1

Open"d:\test\smtext2.txt"ForOutputAs#1

Print#1,[15]

Close#1

EndSub

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

smtext2.txt.請?zhí)羁铡?/p>

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

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

下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。

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

A）程序設計就是編制程序B）程序的測試必須由程序員自己去完成

C）程序經調試改錯后還應進行再測試D）程序經調試改錯后不必進行再測試

<2）下列數(shù)據結構中，能用二分法進行查找的是

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

（3）下列關于棧的描述正確的是

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

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

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

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

(4)下列敘述中正確的是

A)一個邏輯數(shù)據結構只能有一種存儲結構

B)數(shù)據的邏輯結構屬于線性結構，存儲結構屬于非線性結構

C)一個邏輯數(shù)據結構可以有多種存儲結構，且各種存儲結構不影響數(shù)據處理的效率

D)一個邏輯數(shù)據結構可以有多種存儲結構，且各種存儲結構影響數(shù)據處理的效率

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

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

B)軟件工程主要解決軟件產品的生產率問題

C)軟件工程的主要思想是強調在軟件開發(fā)過程中需要應用工程化原則

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

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

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

(7)下列敘述中正確的是

A)軟件交付使用后還需要進行維護B)軟件一旦交付使用就不需要再進行維護

C)軟件交付使用后其生命周期就結束D)軟件維護是指修復程序中被破壞的指令

A)T=RCISB)T=RUSC)T=RXSD)T=R/S

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

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

(11)假定一個VisualBasic應用程序由一個窗體模塊和一個標準模塊構成。為保存該應用程序，以下正確的操作是

A)只保存窗體模塊文件C)只保存窗體模塊和標準模塊文件

B)分別保存窗體模塊、標準模塊和工程文件D)只保存工程文件

(12)為了清除窗體上的一個控件，下列正確的操作是

A)按回車鍵C)選擇(單擊)要清除的控件，然后按Del鍵

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

(13)以下敘述中錯誤的是

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

B)當程序運行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick事件

C)VisualBasic應用程序只能以解釋方式執(zhí)行

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

(14)設a=2,b=3,c=4,d=5,下列表達式Nota<=cOr4*c=b~2Andb<>a+c的值是

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

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

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

(16)在窗體上畫一個命令按鈕，名稱為CommandL然后編寫如下事件過程：

PrivateSubCommand1_C1ick()

a$=*softwareandhardware*

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBoxa$,,b$,c$,1

EndSub

運行程序，單擊命令按鈕，則在彈出的信息框的標題欄中顯示的是

A)softwareandhardwareB)softwareC)hardwareD)1

(17)在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Commandl和TextL把文本框的Text屬性設置為空白，然后編寫如下事件過程:

PrivateSubCommandl_Click()

a=InputBox(*Enteraninteger*)

b=InputBox("Enteraninteger*)

Textl.Text=b+a

EndSub

程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10,則文本框中顯示的內容是

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

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

PrivateSubForm_Load()

Show

Textl.Text="":Text2.Text="":Textl.SetFocus

EndSub

PrivateSubTextl_Change()

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

EndSub

程序運行后，如果在文本框Textl中輸入BeijingChina,則在文本框Text2中顯示的內容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗體上畫一個列表框和一個命令按鈕，其名稱分別為Listl和Commandl,然后編寫如下事件過程:

PrivateSubForm_Load()

Listl.Additem"Item1*

Listl.Additem"Item2*

Listl.Additem”Item3*

EndSub

PrivateSubConmandl_Click()

Listl.List(Listl.ListCount)="AAAA"

EndSub

程序運行后，單擊命令按鈕，其結果為

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

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

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

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

(20)假定有如下事件過程：

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

程序運行后，單擊窗體，輸出結果是

A)814B)563

C)281D)2435

<21)有如下程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

程序運行后，單擊窗體，輸出結果為

A)150B)20-1

C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序運行后，單擊窗體，輸出結果為

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

(23)在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕，然后編寫如下事件過程:

PrivateSubCommandl_Click()

DimarraylClO,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrayl(i,j)=i+j

Nextj

Nexti

Textl.Text=array1(2,3)+array1(3,4)

EndSub

程序運行后，單擊命令按鈕，在文本框中顯示的值是

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

(24)在窗體上畫一個命令按鈕，其名稱為Command1,然后編寫如下事件過程：

PrivateSubCommandl_Click()

Dimal(4,4),a2(4,4)

Fori=1To4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printal(3,3);a2(3,3)

EndSub

程序運行后，單擊命令按鈕，在窗體上輸出的是

A)66B)105C)721D)612

(25)有如下程序：

OptionBase1

PrivateSubForm_Click()

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

程序運行后，單擊窗體，輸出結果為

A)25B)26C)27D)28

(26)在窗體上畫一個命令按鈕，然后編寫如下事件過程:

PrivateSubCommandl_Click()

Dima(5)AsString

Fori=1To5

a(i)=Chr(Asc("A")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

程序運行后，單擊命令按鈕，輸出結果是

A)ABCDEB)12345

C)abcdeD)出錯信息

(27)以下關于函數(shù)過程的敘述中，正確的是

A)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據類型

B)函數(shù)過程的返回值可以有多個

C)當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以引用方式傳遞

D)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關系

(28)函數(shù)過程F1的功能是：如果參數(shù)b為奇數(shù)，則返回值為L否則返回值為0。以下能正確實現(xiàn)上述功能的代碼是:

A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)

IfbMod2=0ThenIfbMod2=0Then

Return0Fl=0

ElseElse

Return1Fl=1

EndIfEndIf

EndFunctionEndFunction

C)FunctionFl(bAsInteger)D)FunctionFl(bAsInteger)

IfbMod2=0ThenIfbMod200Then

Fl=1Return0

ElseElse

Fl=0Return1

EndIfEndIf

EndFunctionEndFunction

(29)以下關于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是

A)KeyAscii參數(shù)是所按鍵的ASCII碼

B)KeyAscii參數(shù)的數(shù)據類型為字符串

C)KeyAscii參數(shù)可以省略

D)KeyAscii參數(shù)是所按鍵上標注的字符

(30)設窗體上有一個名為Textl的文本框，并編寫如下程序：

PrivateSubForm_Load()

Show

Textl.Text="":Textl.SetFocus

EndSub

PrivateSubFonn_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Print〃程序設,”

EndSub

PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Print*VisualBasic”;

EndSub

程序運行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內容是

A)VisualBa