歷年計算機二級vb筆試真題及公共基礎知識

歷年計算機二級筆試試題匯編

全國計算機考試二級筆試試卷

VisualBasic語言程序設計

（考試時間90分，滿分100分）

2005年4月

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

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

位置上，答在試卷上不得分。

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

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

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

（2）下列關于棧的描述中錯誤的是

A）棧是先進后出的線性表

B）棧只能順序存儲

C）棧具有記憶作用

D）對棧的插入與刪除操作中，不需要改變棧底指針

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

A）冒泡排序為n/2B）冒泡排序為n

C）快速排序為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）軟件測試的目的是使程序運行結果正確

C）軟件測試的R的是盡可能多地發(fā)現(xiàn)程序中的錯誤

D）軟件測試的目的是使程序符合結構化原則

（7）為了使模塊盡可能獨立，要求

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

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

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

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

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

A)程序就是軟件

B)軟件開發(fā)不受計算機系統(tǒng)的限制

C)軟件既是邏輯實體，又是物理實體

D)軟件是程序、數(shù)據(jù)與相關文檔的集合

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

A)數(shù)據(jù)與程序獨立存放

B)不同的數(shù)據(jù)被存放在不同的文件中

C)不同的數(shù)據(jù)只能被對應的應用程序所使用

D)以上三種說法都不對

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

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

(11)在窗體(名稱為Forml)上畫?個名稱為Tbxtl的文本框和一個名稱為Command1的命令按鈕，然

后編寫一個事件過程。程序運行后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機

等級考試”。以下能實現(xiàn)上述操作的事件過程是

A)PrivateSublextl_Change0

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

EndSub

B)PrivateSubCommand1_Click()

Caption二”計算機等級考試”

EndSub

C)PrivateSubForml_Click()

Textl.Tbxt二”計算機等級考試”

EndSub

D)PrivateSubCommandl_Click()

Text1.lbxt="計算機等級考試”

EndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FasleD)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,llJO)

(14)假定有如下的窗體事件代碼：

PrivateSubForm_Click()

a$=uMicrosoftVisualBasic"

b$=Right(a$,5)

c$=Mid(a$,l,9)

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

EndSub

程序運行后，單擊窗體，則在彈出的信息框的標題欄中顯示的信息是

A)MicrosoftVisualB)Microsoft

C)BasicD)5

(15)設a二“a"，b="b",c="cn,d="d",執(zhí)行語句x=HF((avB)Or(c>D)后，x的值為

A)"a1'B)"b“C)”B”D)"A"

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

A)ComandI.Move-200

B)Comand1.Move200

C)Command1.Left=Command1.Left+200

D)Command1.Left=Command1.Left-200

(17)在窗體上畫一個文本框，然后編寫如下事件過程：

PrivateSubFomi_Click()

x=lnpulBox(“請輸入一個整數(shù)”)

Printx+Textl.text

EndSub

程序運行時，在文本框輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在窗體

上顯示的內(nèi)容為

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

(18)在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Time”，在屬性窗口中把計時器的

Interval屬性設置為1000,Enabled屬性設置為False。程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文

本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序：

PrivateSubCommand1_Click()

Timer1.__________

EndSub

PrivateSubTimerl_Timer()

lextl.lext=Time

EndSub

在處應填入的內(nèi)容是

A)Enabled=TrueB)Enabled=False

C)Visible=TrueD)Visible=False

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

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

B)執(zhí)行語句Picture1.Picture=LoadPicture("“)

C)執(zhí)行語句Picture].Picture^”'

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

(20)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標簽，列表框中顯示若干個項目。當

單擊列表框中的某個項目時，在標簽中顯示被選中項目的名稱。下列能正確實現(xiàn)上述操作的程序是

A)PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

B)PrivateSubListl_Click()

Label1.Name=List1.Listindex

EndSub

C)PrivateSubListl_Click()

Labell.Namc=Listl.Text

EndSub

D)PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub

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

PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=lTb6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A)9B)6C)12D)15

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

PrivateSubCommand1_Click()

c=''ABCD"

Forn=lTb4

Print_______

Next

EndSub

程序運行吼，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：

D

CD

BCD

ABCD

則在處應填入的內(nèi)容為

A)Left(c,n)B)Right(c,n)C)Mid(c,n,l)D)Mid(c,n,n)

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

DimxAsInteger,!AsInteger

x=0

Fori=20lb1Step-2

x=x+i\5

Nexti

后，x的值為

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

(24)在VisualBisic工程塊中，可以作為“啟動對象”的程序是

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

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

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

A)數(shù)組中每個命令按鈕的名稱(Name屬性)均為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”鍵，則在窗體上顯示的內(nèi)容是

A)AB)BC)CD)D

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

PrivateSubCommandl_Click()

a=InputBox(“請輸入日期(1?31)”)

t=”旅游景點：;

&nf(a>0Anda<=10,”長城"，

&IIf(a>10Anda<=20,”故宮"，

&Hf(a>20Andav=31,“頤和園”，

Text1.lext=t

EndSub

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

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

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

(28)在窗體上畫一個名稱為Labell的標簽，然后編寫如下事件過程：

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsIntegerjAsInteger

Fori=2lb4

Forj=2lb4

arr(i,j)=i*j

Nextj

Nexti

Label1.C叩tion=Str(arr(2,2)+arr(3,3))

EndSub

程序運行后，單擊窗體，在標簽中顯示的內(nèi)容是

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

(29)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下通用過程和命令按鈕

的事件過程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=l

EndIf

EndFunction

PrivateSubCommandl_Click()

DimiAsIntegersAsInteger

s=0

Fori=lTb5

s=s+fun(i)

Next

Prints

EndSub

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

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

(30)閱讀程序：

OptionBaseI

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger,]AsInteger

ReDiinarr(3,2)

Fori=llb3

Forj=lTb2

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

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3lb4

arr(3j)=j+9

Nextj

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

EndSub

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

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

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

OptionBase1

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

d=0

c=6

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

Fori=llb6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容諛

A)10B)16C)12D)20

(32)設有如下程序

PrivateSubCommand1_Click()

DimcAsInteger.dAsInteger

c=4

d二InputBox(“請輸入一個整數(shù)”)

DoWhiled>0

Ifd>cThen

c=c+l

EndIf

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

loop

Printc+d

EndSub

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

則輸出結果是

A)12B)11C)10D)9

(33)在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Ibxtl的文本框，在文本框中輸入以下

字符串：

MicrosoftVisualBasicProgramming

然后編寫如下事件過程：

PrivateSubCommandl_Click()

Open4ld:\temp\outf.txf,ForOutputAs#1

Fori=1lbLen(lextl.lext)

c=Mid(rTextl.Text,iJ)

Ifc>=''A"Andcv=''Z"Then

Print#1,LCase(C)

EndIf

Nexti

Close

EndSub

程序運行后，單擊命令按鈕，文件。utf.txt中的內(nèi)容是

A)MVBPB)mvbpC)MD)m

Vv

Bb

PP

(34)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

Func=Y

EndFunction

PrivateSubFonn_MouseDown(ButtonAsInteger,ShiftAsInteger.XAsSingle,YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

PrivateSubCommandl_Click()

DimintNumAsInteger

intNum=InputBoxCv)

IfSWThen

printfunc(intNum)

EndIf

EndSub

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

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

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

PrivateSubFun(a()AsInteger,xAsInteger)

Fori=llb5

x=x+a(i)

Next

EndSub

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

PrivateSubCommandl_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=lTo5

arr(i)=i+i

Next

Funarr,n

lextl.lext=Str(n)

EndSub

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

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

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

將每空的正確答案寫在答題卡【1】?【15】序號的橫線上，答在試卷上不得分。

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

(2)在面向?qū)ο蠓椒ㄖ?，類的實例稱為【2】0

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

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

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

(6)以下語句的輸出結果是［6】。

PrintInt(12345.6789*1001-0.5)/100

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

PrivateSubForm_Click()

Textl.Text="VB程序設計”

EndSub

PrivateSubTextl_Change()

Picture1.Print"VBProgramming"

EndSub

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

(8)閱讀下面程序：

PrivateSubForm_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】，

（9）設有如下程序:

PrivateSubFonn_Click()

DimaAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

以上程序的功能是【1()】。程序運行后，單擊窗體，輸出結果為【11】。

(10)設有如果程序：

OptionBase1

PrivateSubCommandI_Click(0

Dimarrl

DimMinAsInteger,!AsInteger

arr1=Array(12,435,76,-24,78,54,866,43)

Min=[12]

Fori=2lb8

Ifarrl(i)<MinThen【13】

Nexti

Print"最小值是:“；Min

EndSub

以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組值各元素的最小

值。請?zhí)羁铡?/p>

(11)在名稱為Forml的窗體上畫一個文本框，其名稱為Textl,在屬性窗口值把該文本框的

MultiLine屬性設置為True,然后編寫如下的事件過程：

PrivateSubForm_Click()

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

DoWhileNot【14】

LineInput#l,aspect$

Whole$=wholc$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.lext=whole$

Close#1

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

Print#1,[15]

Close#1

EndSub

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

內(nèi)容存入磁盤文件smtext2.txt.請?zhí)羁铡?/p>

全國計算機等級考試二級筆試試卷

VisualBasic語言程序設計

（考試時間90分，滿分100分）

2（X）5年9月

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

下列各題A）、B）、C）、D）四個選項中，只有一個選項正確的，請將正確選項填涂在答題卡相應位

置上，答在試卷上不得分。

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

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

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

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

A）順序存儲的有序線性表B）線性鏈表

C）二叉鏈表D）有序線性鏈表

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

A）PDL（過程設計語言）B）PAD圖

C）N-S圖D）DFD圖

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

A）軟件交付使用后還需要進行維護

B）軟件一旦交付使用就不需要再進行維護

C）軟件交付使用后其生命周期就結束

D）軟件維護是指修復程序中被破壞的指令

（8）數(shù)據(jù)庫設計的根本目標是要解決

A）數(shù)據(jù)共享問題B）數(shù)據(jù)安全問題

C）大量數(shù)據(jù)存儲問題D）簡化數(shù)據(jù)維護

（9）設有如下關系表

ST

ABCABC

ABC

313112

112

223

223

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ù)庫管理員

（11）假定一個VisualBasic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正

確的操作是

A）只保存窗體模塊文件

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

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

D）只保存工程文件

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

A）按回車鍵

B）按Esc鍵

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

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=bA2Andboa+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,然后編寫如下事件過程：

PrivateSubCommandl_Click()

a$="softwareandhardware"

b$=Right(a$,8)

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

MsgBoxa$,,b$,c$,1

EndSub

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

A)softwareandhardwareB)software

C)hardwareD)1

(17)在窗體上畫一個命令按鈕和?個文本框，其名稱分別為Command1和Ibxtl,把文本框的Tbxt屬性

設置為空白，然后編寫如下事件過程：

PrivateSubCommandl_Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

Textl.lext=b+a

EndSub

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

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

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

PrivateSubForm_Load()

Show

Textl.lext=MU

Text2.1ext=

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

Text2.1ext=Mid(lextl.Text,8)

EndSub

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

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

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

PrivateSubFonn_Load()

Listl.Additem"Item1”

Listl.Additem"Item2"

Listl.Addltem"Item3"

EndSub

PrivateSubCommandl_Click()

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

EndSub

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

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

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

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

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

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

PrivateSubFonn_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

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

A)814B)563C)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-1C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2lb10

IfiMod2o0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

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

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

程：

PrivateSubCommandl_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1lb3

Forj=21b4

arrayl(i,j)=i+j

Nextj

Nexti

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

EndSub

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

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

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

PrivateSubCommandl_Click()

Dima1(4,4),a2(4,4)

Fori=1lb4

Forj=1lb4

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

Dimair,Sum

Sum=0

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

Fori=1lb10

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=1lb5

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

Nexti

ForEachbIna

Printb;

Next

EndSub

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

A)ABCDEB)12345C)abodeD)出錯信息

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

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

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

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

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

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

功能的代碼是

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

IfbMod2=0ThenIfbMod2=0Then

Return0Fl=0

ElseElse

Return1Fl=l

EndIfEndIf

EndFunctionEndFunction

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

lfbMod2=0ThenIfbMod2=0Then

Fl=lReturn0

ElseElse

Fl=0Return1

EndIfEndIf

EndFunctionEndFunction

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

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

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

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

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

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

PrivateSubForm_Load()

Show

Textl.lext=""

Textl.SetFocus

EndSub

PrivateSubFonn_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle.YAsSingle)

Print”程序設計”

EndSub

PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Print"VisualBasic'1

EndSub

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

A)VisualBasicB)程序設計

C)VisualBasic程序設計D)a程序設計

（31）假定有下表所列的菜單結構：

標題名稱層次

顯示appear1（主菜單）

大圖標bigicon2(子菜單)

小圖標smallicon3(子菜單)

要求程序運行后，如果單擊菜單項“大圖標”，則在該菜單項前面添加一個“V”，以下正確的事件過程是

A)PrivateSubbigicon_Click()B)PrivateSubbigicon_Click()

bigicon.Checked=FlaseMe.appear.bigicon.Checked=Flase

EndSubEndSub

C)PrivateSubbigicon_Click()D)PrivateSubbigicon_Click()

bigicon.Checked=Trueappear.bigicon.Checked=Flase

EndSubEndSub

(32)假定通用對話框的名稱為CommonDialogl,命令按鈕的名稱為Command1，則單擊命令按鈕后，能

使打開的對話框的標題為“New宜成的事件過程是

A)PrivateSubCommandl_Click()

CommonDialogl.DialogTitle="NewTitle"

CommonDialogl.ShowPrinter

EndSub

B)PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialogl.ShowFont

EndSub

C)PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialogl.ShowOpen

EndSub

D)PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialogl.ShowColor

EndSub

(33)如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是

A)任何時刻最多只有一個窗體是活動窗體

B）不能把標準模塊設置為啟動模塊

C）用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體

D）如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程

（34）假定在工程文件中有一個標準模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

要求當執(zhí)行事件過程Commandl_Click時，在順序文件Pcrson.txt中寫入?條記錄。下列能夠完成該操作的

事件過程是

A）PrivateSubCommandl_Click（）

DimBAsBooks

Openuc:\Person.txt"ForOutputAs#1

B.Name=InputBox（"輸入姓名"）

B.TelNum=InputBox（"輸入電話號碼”）

Write#1,B.Name,B.TelNum

Close#!

EndSub

B）PrivateSubCommandl_Click（）

DimBAsBooks

Open"c:\Person.lxtnForInputAs#1

B.Name=InputBox（"輸入姓名”）

B.TelNum=InputBox—輸入電話號碼”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

C）PrivateSubCommandl_Click（）

DimBAsBooks

Open"c:\Pcrson.txtnForOutputAs#1

Name=InputBox（"輸入姓名”）

TelNum=InputBox。輸入電話號碼”）

Write#1,B

Close#I

EndSub

D）PrivateSubCommandl_Click（）

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox（"輸入姓名”）

B.TelNum=InputBox（"輸入電話號碼”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

(35)目錄列表框的Path屬性的作用是

A）顯示當前驅(qū)動器或指定驅(qū)動器上某目錄下的文件名

B）顯示當前驅(qū)動器或指定驅(qū)動器上的目錄結構

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

D）顯示指定路徑下的文件

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

請將每空的正確答案寫在答題卡【1】?【15】序號的橫線上，答在試卷上不得分。

（1）數(shù)據(jù)管理技術發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫系統(tǒng)三個階段，其中數(shù)據(jù)獨立性最高的階段

是【1】,

（2）算法復雜度主要包括時間復雜度和【2】復雜度。

（3）在進行模塊測試時，要為每個被測試的模塊另外設計兩類模塊：驅(qū)動模塊和承接模塊（樁模塊）。其

中【3】的作用是將測試數(shù)據(jù)傳送給被測試的模塊,并顯示被測試模塊所產(chǎn)生的結果。

（4）一棵二叉樹第六層（根結點為第一層）的結點數(shù)最多為【4】結構。

（5）數(shù)據(jù)結構分為邏輯結構和存儲結構，循環(huán)隊列屬于【5】結構。

（6）設有以下函數(shù)過程：

Functionfun（mAsString）AsInteger

DimkAsInteger,sumAsInteger

sum=0

Fork=mlb1Step-2

sum=sum+k

Nextk

fun=sum

EndFunction

若在程序中用語句s=fiin（10）調(diào)用此函數(shù)，則s的值為[6]

（7）在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運行后，在文本

框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字

母，并以大寫方式降序顯示到Textl中。例如，若在Tbxtl中輸入的是abDfdb,則單擊Command1按鈕后

Textl中顯示的字符串是

ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁铡?/p>

PrivateSubCommandl_Click（）

DimstrAsString,sAsString,cAs