全國計算機等級考試二級VB語言筆試試題

目錄

2002年9月筆試試題.....................................................1

2002年9月筆試試卷參考答案...........................................10

2003年4月筆試試題....................................................10

2003年4月筆試試卷參考答案...........................................19

2003年9月筆試試題....................................................19

2003年9月筆試試卷參考答案...........................................26

2004年4月筆試試題....................................................27

2004年4月筆試試題答案...............................................34

2004年9月筆試試題....................................................35

2004年9月筆試試題參考答案...........................................43

2005年4月筆試........................................................44

2005年4月筆試試卷參考答案...........................................53

2005年9月筆試試題....................................................53

2005年9月筆試試卷參考答案...........................................63

2006年4月筆試試題....................................................63

2006年4月筆試試題參考答案...........................................71

2006年9月筆試試題....................................................75

2006年9月筆試試卷參考答案...........................................84

2007年4月筆試試題....................................................87

2007年4月筆試試卷參考答案...........................................96

2007年9月筆試試題....................................................96

2007年9月筆試試卷參考答案（網(wǎng)友提供）..............................96

2002年9月全國計算機等級考試二級VB語言筆試試題

一、單選題(每題2分，共70分)

(1)在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是

A)工程資源管理器窗口B)工具箱窗口

0代碼窗口D)屬性窗口

(2)以下敘述中正確的是

A)窗體的Name屬性指定窗體的名稱，用來標識一個窗體

B)窗體的Name屬性的值是顯示在窗體標題欄中的文本

O可以在運行期間改變對象的Name屬性的值

D)對象的Name屬性值可以為空

(3)剛建立一個新的標準EXE工程后，不在工具箱中出現(xiàn)的控件是

A)單選按鈕B)圖片框

0通用對話框D)文本框

(4)設有如下變量聲明

DimTestDateAsDate

為變量TestDate正確賦值的表達方式是

A)TextDate=#l/l/2002#

B)TestDate=#"1/1/2002”#

C)TextDate=date(“1/1/2002”)D)TestDate=Format(“m/d/yy”，“1/1/2002")

(5)設有如下聲明:

DimXAsInteger

如果Sgn(X)的值為-1,則X的值是

A)整數(shù)B)大于0的整數(shù)

0等于0的整數(shù)D)小于0的數(shù)

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

PrivateSubCommandl_Click()

StaticXAsInteger

StaticYAsInteger

Cis

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運行時，三次單擊命令按鈕Command1后，窗體上顯示的結果為

A)1516B)156

01515D)56

(7)設a=3,b=5,則以下表達式值為真的是

A)a>=bAndb>10B)(a>b)0r(b>0)

C)(a<0)Eqv(b>0)D)(-3+5>a)And(b>0)

(8)設有語句

x=InputBox(“輸入數(shù)值”，“0”，“示例”)

程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是

A)變量X的值是數(shù)值10

第1頁共97頁

B)在InputBox對話框標題欄中顯示的是“示例”

0。是默認值

D)變量X的值是字符串“10”

(9)從鍵盤上輸入兩個字符串，分別保存在變量strl、str2中。確定第二個字符串在第一

個字符串中起始位置的函數(shù)是

A)LeftB)MidC)StringD)Instr

(10)設a="VisualBasic",下面使b="Basic"的語句是

A)b=Left(a,8,12)B)b=Mid(a,8,5)

C)b=Rigth(a,5,5)D)b=Left(a,8,5)

(11)以下能夠觸發(fā)文本框Change事件的操作是

A)文本框失去焦點B)文本框獲得焦點

0設置文本框的焦點D)改變文本框的內(nèi)容

(12)在窗體上有一個文本框控件，名稱為TxtTime：一個計時器控件，名稱為Timerl,要

求每一秒鐘在文本框中顯示一次當前的時間。程序為：

PrivateSubTimer1_()

TxtTime.text=Time

EndSub

在下劃線上應填入的內(nèi)容是

A)EnabledB)VisibleC)IntervalD)Timer

(13)在窗體上畫兩個單選按鈕，名稱分別為0ptionl、0ption2,標題分別為“宋體”和“黑

體”；一個復選框，名稱為Checkl,標題為“粗體”；一個文本框，名稱為Textl,Text屬

性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復選框被選中(窗

體外觀如下圖)，則能夠實現(xiàn)上述要求的語句序列是

A)Optionl.value=TrueB)Optionl.Value=True

Checkl.Value=FalseCheck1.Value=True

C)0ption2.Value=FalseD)Optionl.Value=True

Checkl.Value=TrueCheckl.Value=l

(14)為了在按下Esc鍵時執(zhí)行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個

屬性設置為True,這個屬性是

A)ValueB)DefaultC)CancelD)Enabled

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

PrivateSubCommand1Click()

For1=1To4

ForJ=0To1

PrintChr$(65+I);

NextJ

Print

NextI

EndSub

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

A)BBB)AC)BD)AA

CCCBBCCBBB

DDDDCCCDDDCCCC

EEEEEDDDDEEEEDDDD

第2頁共97頁

(16)圖像框有一個屬性，可以自動調(diào)整圖形的大小，以適應圖像框的尺寸，這個屬性是

A)AutosizeB)StretchC)AutoRedrawD)Appearance

(17)在窗體上畫兩個名稱分別為Textl>Texte2的文本框和一個名稱為Command1的命令按

鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimxAsInteger,nAsInteger

x=l

n=0

DoWhilex<20

x=x*3

n=n+l

Loop

Textl.Text=Str(x)

Text2.Text=Str(n)

EndSub

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

A)15和1B)27和3C)195和3D)600和4

(18)在窗體上畫一個名稱為Textl的文本框和?個名稱為Command1的命令按鈕,然后編寫

如下事件過程：

PrivateSubCommand1Click()

DimiAsInteger,nAsInteger

For1=0To50

i=i+3

n=n+l

Ifi>10ThenExitfor

Next

Textl.Text=Str(n)

EndSub

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

A)2B)3D)4D)5

(19)在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕，然后編寫

如下事件過程：

PrivateSubCommand1Click()

Dimarray1(10,10)AsInteger

Dimi,jAsInteger

Fori=lTo3

Forj=2To4

arrayl(i,j)=i+j

Nextj

NextI

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

EndSub

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

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

第3頁共97頁

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

PrivateSubCommand1ClickO

DimiAsInteger,jAsInteger

Dima(10,10)AsInteger

Fori=lTo3

Forj=lTo3

a(i,j)=(i-l)*3+j

Printa(i,j);

Nextj

Print

Nextj

EndSub

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

A)123B)234C)147D)123

246345258456

369456369789

(21)設有如下程序：

OptionBase0

PrivateSubForm_Click()

Dima

DimiAsInteger

"Array(1,2,3,4,5,6,7,8,9)

Fori=0To3

Printa(5-i);

Next

EndSub

程序運行后，單擊窗體，則在窗體上顯示的是

A)4321B)543206543D)7654

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

A)在窗體的Form_Load事件過程中定義的變量是全局變量

B)局部變量的作用域可以超出所定義的過程

0在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域

只限于該過程

D)在調(diào)用過程時，所有周部變量被系統(tǒng)初始化為?；蚩兆址?/p>

(23)在窗體上畫一個命令按鈕，名稱為Commandio程序運行后，如果單擊命令按鈕，則顯示一個

輸入對話框，在該對話框中輸入一個整數(shù)，并用這個整數(shù)作為實參調(diào)用函數(shù)過程F1。在F1中判斷

所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程F1返回1,否則返回0。能夠正確實現(xiàn)上述功能的代

碼是

A)PrivateSubCommandl_Click()

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

a=Fl(Vai(x))

Printa

EndSub

FunctionFl(ByRefbAsInteger)

第4頁共97頁

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B)PrivateSubCommand1_C1ick()

x=InputBox(“請輸入整數(shù)”)

a=Fl(Val(x))

Printa

EndSub

FunctionFI(ByRefbAsInteger)

IfbMod2=0Then

Fl=0

Else

Fl=l

EndIf

EndFunction

C)PrivateSubCommandl_Click()

x=InputBox(“請輸入整數(shù)”)

Fl(Vai(x))

Printa

EndSub

FunctionFl(ByRefbAsInteger)

IfbMod2=0Then

Fl=l

Else

Fl=0

EndIf

EndFunction

D)PrivateSubCommand1_C1ick()

x=InputBox(“請輸入整數(shù)”)

Fl(Vai(x))

Printa

EndSub

FunctionFl(ByRefbAsInteger)

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

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

序：

PrivateSubCommandl_Click()

Dimx,y,zAsInteger

第5頁共97頁

x=5

y=7

z=0

Textl.text=""

CallPl(x,y,z)

Textl.Text=Str(x)

EndSub

SubPl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

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

A)0B)12C)Str(z)D)沒有顯示

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

A)如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

B)Sub過程中不能嵌套定義Sub過程

0Sub過程中可以嵌套調(diào)用Sub過程

D)事件過程可以像通用過程一樣由用戶定義過程名

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

A)在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的

KeyCode)

B)在KeyUp和KeyDown事件過程中,將鍵盤上的“1”和右側小鍵盤上的“1”視作不同的數(shù)字

(具有不同的KeyCode)

0KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放

D)KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放

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

A)在同一窗體的菜單項中，不允許出現(xiàn)標題相同的菜單項

B)在菜單的標題欄中，所引導的字母指明了訪問該菜單項的訪問鍵

0程序運行過程中，可以重新設置菜單的Visible屬性

D)彈出式菜單也在菜單編輯器中定義

(28)設在菜單編輯器中定義了一個菜單項，名為menul。為了在運行時隱藏該菜單項，應使用的語

句是

A)menul.Enabled=TrueB)Munul.Enabled=False

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

A)在程序運行時，通用對話框控件是不可見的

B)在同一個程序中，用不同的方法(如ShowOpen或ShowSave等)打開的通用對話框具有不同

的作用

0調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件

D)調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框

(30)在用通用對話框控件建立“打開”或“保存”文件對話框時，如果需要指定文件列表框所列出

的文件類型是文本文件(即.txt文件)，則正確的描述格式是

A)“text(.txt)|(*.txt)"B)”文本文件(.txt)(.txt)”

C)”text(.txt)||(*.txt)"D)utext(.txt)(*.txt)''

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

A)一個工程中只能有一個SubMain過程

B)窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

0窗體的Hide方法和Unload方法的作用完全相同

第6頁共97頁

D)若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體

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

A)一個工程中可以包含多個窗體文件

B)在一個窗體文件中用Private定義的通用過程能被其他窗體調(diào)用

0在設計VB程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件

D)全局變量必須在標準模塊中定義

(33)設在工程中有一個標準模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

在窗體上畫一個名為Commandl的命令按鈕。要求當執(zhí)行事件過程CommandlClick時，在順序

文件Person,txt中寫入一條記錄。下列能夠完成該操作的事件過程是

A)PrivateSubCommandl_Click()

DimBAsBooks

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

B.Name=InputBox("輸入姓名”)

B.TelNum=InputBox("輸入電話號碼”)

Write#1,B.Name,B.TelNum

Close#1

EndSub

B)PrivateSubCommand1Click()

DimBAsBooks

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

B.Name=InputBox("輸入姓名”)

B.TelNunr=InputBox("輸入電話號碼”)

Print#1,B.Name,B.TelNum

Close#1

EndSub

C)PrivateSubCommand1_C1ick()

DimBAsBooks

Open"c:\Person.txt”ForOutputAs#1

B.Name=InputBox(“輸入姓名”)

B.TelNum=InputBox("輸入電話號碼”)

Write#1,B

Close#1

EndSub

D)PrivateSubCommand1_C1ick()

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

岫1116二1呼成80*(“輸入姓名”)

TelNum=InputBox("輸入電話號碼”)

Print#1,Name,TelNum

Close#1

EndSub

(34)以下敘述中正確的是

A)一個記錄中所包含的各個元素的數(shù)據(jù)類型必須相同

第7頁共97頁

B)隨機文件中每個記錄的長度是固定的

0Open命令的作用是打開一個已經(jīng)存在的文件

D)使用Input#語句可以從隨機文件中讀取數(shù)據(jù)

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

A)顯示當前驅動器或指定驅動器上的目錄結構

B)顯示當前驅動器或指定驅動器上的某目錄下的文件名

O顯示根目錄下的文件名

D)顯示該路徑下的文件

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

(1)在窗體上畫兩個標簽,其名稱分別為Label1和Label2,Caption屬性分別為“數(shù)值”及空白;

然后畫一個名稱為Hscolll的水平滾動條，其Min的值為0,Max的值為100。程序運行后，如果單

擊滾動條兩端的箭頭，則在標簽Lable2中顯示滾動條的值，如圖所示。請在[1]和[2]處填入適

當?shù)膬?nèi)容，將程序補充完整。

PrivateSubHScrolll_[1]()

Labl2.Caption=HScrolll.[2]

EndSub

(2)在窗體上畫一個名稱為Command1.標題為“計算”的命令按鈕；畫兩個文本框，名稱分別為

Textl和Text2；然后畫4個標簽，名稱分別為Label!.Label2>Labe13和Labe14,標題分別為“操

作數(shù)1”、“操作數(shù)2”、“運算結果”和空白；再建立一個含有4個單選按紐的控件數(shù)組，名稱為

Optionl,標題分別為“+”、和。程序運行后，在Textl.Text2中輸入兩個數(shù)

值，選中一個單選按鈕后單擊命令按鈕，相應的計算結果顯示在Label4,程序運行情況如圖所示。

請在[3]、[4]和[5]處填入適當?shù)膬?nèi)容，將程序補充完整。

PrivateSubCommand1Click()

Fori=0To3

If[3]=Truethen

opt=0ptionl(i).Caption

EndIf

Next

SelectCase[4]

Case"+”

Result=Val(Textl.Text)+Val(Text2.Text)

Case”-”

Result=Val(Textl.Text)-Vai(Text2.Text)

Case"*”

Result=Val(Text.Text)*Val(Text2.Text)

Case"/"

Result=Vai(Text1.Text)/Vai(Text2.Text)

EndSelect

[5]=Result

EndSub

(3)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Textl的文本框。程序運行后，

Command1為禁用(灰色)。當向文框中輸入任何字符時，命令按鈕Command1變?yōu)榭捎?。請在[6]處

填入適當?shù)膬?nèi)容，將程序補充完整。

PrivateSubForm_Load()

Command1.Enabled=False

EndSub

第8頁共97頁

PrivateSubTextl_[6]()

Command1.Enabled=True

EndSub

(4)在菜單編輯器中建立了一個菜單.，名為pmenu,用下面的語句可以把它作為彈出式菜單彈出，

請?zhí)羁铡?/p>

Forml.[7]Pmenu

(5)以下程序的功能是：從鍵盤上輸入若干個學牛的考試分數(shù)，當輸入負數(shù)時結束輸入，然后輸出

其中的最高分數(shù)和最低分數(shù)。請在[8]和[9]處填入適當?shù)膬?nèi)容，將程序補充完整。

PrivateSubForm_Click()

DimxAsSingle,amaxAsSingle,aminAsSingle

x=InputBox("Enterascore")

amax二x

amin二x

DoWhile[8]

Ifx>amaxThen

Amax=x

EndIf

If[9]Then

Amin=x

EndIf

x=InputBox("Enterascore")

Loop

Print"Max二“；amax,“Min二”;amin

EndSub

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

PrivateSubForm_Load()

Textl.Text=w計算機”

EndSub

PrivateSubTextl_Change()

Picturel.Print“等級考試”

EndSub

程序運行后，在文本框中顯示的內(nèi)容是[10],而在圖片框中顯示的內(nèi)容是[11]O

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

FunctionM(xAsInteger,yAsInteger)AsInteger

M=IIf(x>y,x,y)

EndFunction

PrivateSubcommand1_C1ick()

DimaAsInteger,bAsInteger

a=100

b=200

PrintM(a,b)

EndSub

程序運行后，單擊命令按鈕，輸出結果為[12]o

(8)為了改變計時器控件的時間間隔，應該修改該控件的[13]屬性。

(9)在窗體上畫一個名稱為Lablel的標簽和一個名稱為Listl的列表框。程序運行后，在列表框中

添加若干列表項。當雙擊列表框中的某個項目時.,在標簽Labell中顯示所選中的項目，如圖所示。

第9頁共97頁

請在[14]和[15]處填入適當?shù)膬?nèi)容將程序補充完整。

PrivateSubForm_load()

ListLAdditem”北京”

Listl.Additemw上?！?/p>

Listl.Additem"湖北”

EndSub

PrivateSub[14]()

Label1.Caption=[15]

EndSub

2002年9月全國計算機等級考試二級VB試卷答案

一、選擇題：

1—10CACADBBDDB

11—20DDDCABBBAD

21—30CCBBDCADCA

31—35CBADA

二、填空題：

1、CHANGE2、VALUE3、0PTI0N1(I).VALUE4、OPT

5、LABEL4oCAPTION6、CHANGE7、POPUPMENU8、X>=0

9、X

14、LIST1_DBLCLICK15、LIST1.TXT

2003年4月全國計算機等級考試二級VB語言筆試試題

一、單選題(每題2分，共70分)

(1)以下不能在“工程資源管理器”窗口中列出的文件類型是

A).basB).resC).fnnD).ocx

(2)以下關于窗體的描述中，錯誤的是

A)執(zhí)行UnloadFoMl語句后，窗體Fonnl消失，但仍在內(nèi)存中

B)窗體的load事件在加載窗體時發(fā)生

0當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止

D)窗體的Height、width屬性用于設置窗體的高和寬

(3)下列可作為V2sualBasic變量名的是

A)A#AB)4AC)?xYD)constA

(4)設有如下的記錄類型

TypeStudent

numberAsstring

nameAsString

ageAsInteger

EndType

則正確引用該記錄類型變量的代碼是

A)Student.name二“張紅"B)DimAsStudent

s.name=w張紅”

C)DimsAsTypeStudentD)DimsAsType

S.name二”張紅"s.Dame="張紅”

(5)函數(shù)String(n,"str”)的功能是

A)把數(shù)值型數(shù)據(jù)轉換為字符串

第10頁共97頁

B)返回由n個字符組成的字符串

0從字符串中取出n個字符

D)從字符串中第n個字符的位置開始取子字符串

(6)將數(shù)學表達式Cos2(a+b)+5e2寫成VisualBasic的表達式，其正確的形式是

A)Cos(a+b)A2十5。exp(2)B)Cos2(a+b)+5*exp(2)

C)Cos(a+b)"2十5*ln(2)D)Cos-2(a+b)+5*In(2)

⑺在窗體上畫一個命令按鈕，名稱為Commandl。單擊命令按鈕時，執(zhí)行如下事件過程：

PrlVateSubCommandl-Clicko

a$=，zsoftwareandhardware/7

b$=Right(a$,8)

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

Msgboxa$,,b$,c$,1

EndSub

則在彈出的信息框的標題欄中顯示的信息是

A)softwareandhardwareB)softwareC)hardwafeD)1

(8)執(zhí)行如下語句:

a=inutBox("Today”,“Tomorrow,vYesterday…“Daybeforeyesterday”,5)

將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是

A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday

(9)表示滾動條控件取值范圍最大值的屬性是

A)MaxB)LargeChangeC)ValueD)Max—Min

(10)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標簽。列表框中顯示

若干城市的名稱。當單擊列表框中的某個城市名時，在標簽中顯示選中城市的名稱。

下列能正確實現(xiàn)上述功能的程序是

A)PrivateSublistl_Click()B)PrivateSubListl_Click()

Labell.Caption=listl.listindexLabel1.Nanle=Listl.1istindex

EndSub?EndSub

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

A)空白B)錯誤提示C)北京D)上海

(15)假定有以下函數(shù)過程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=lToLen(S)

sl=UCase(Mid(S,i,1))十si

Nexti

Fun=sl

EndFunction

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

PrivateSubCommmldl_Click()

DimStrlAsString,Str2AsString

Strl=inputbox(,y請輸入一個字符串”)

Str2=Fun(Strl)

PrintStr2

EndSub

程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”

按鈕后在窗體上的輸出結果為

第11頁共97頁

A)abcdefgB)ABCDEFGOgfedcbaD)GFEDCBA

(16)設有語句

open"c：\Test.Dat"ForOutPutAs#l

則以下錯誤的敘述是

A)該語句打開C盤根目錄下一個己存在的文件Test.Dat

B)該語句在C盤根目錄下建立一個名為Test.Dat的文件

C)該語句建立的文件的文件號為1

D)執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息

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

A)用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應用程序

B)用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù)

C)調(diào)用Shell函數(shù)的格式應為：<變量g>=Shell(……)

D)用Shel1函數(shù)不能執(zhí)行DoS命令

(18)以下關于過程及過程參數(shù)的描述中，錯誤的是

A)過程的參數(shù)可以是控件名稱

B)用數(shù)組作為過程的參數(shù)時，使用的是“傳地址”方式

c)只有函數(shù)過程能夠將過程中處理的信息傳回到調(diào)用的程序中

D)窗體可以作為過程的參數(shù)

(19)在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：

PrivateSubTxtaKeyPress(keyasciiasinteger)

EndSub

若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是

A)單擊鼠標B)雙擊文本框

C)鼠標滑過文本框D)按下鍵盤上的某個鍵

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

A)顯示當前驅動器或指定驅動器上的路徑

B)顯示當前驅動器或指定驅動器上的某目錄下的文件名

c)顯示根目錄下的文件名

D)只顯示當前路徑下的文件

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

PriVateSubFormMouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)

IfButton=2then

PopupMenupopForm

Endif

EndSub

則以下描述中錯誤的是

A)該過程的功能是彈出一個菜單

B)popForm是在菜單編輯器中定義的彈出式菜單的名稱

C)參數(shù)X、Y指明鼠標的當前位置

D)Button=2表示按下的是鼠標左鍵

(22)以下能夠正確計算n!的程序是

A)PrivateSubCommandlClicKO

n=5:x=l

Do

X=x*l

i=i十1

第12頁共97頁

LoopWhilei<n

Printx

EndSub

B)PrivateSubCommand1ClickO

n=5:x=l：i=l

Do

X=X*1

i——i-|—]

LoopWhilei<n

Printx

EndSub

C)PrivateSubCommandlClick()

n=5：x=l：i=l

Do

X=X*1

i=i十1

Loopwhilei<=n

Printx

EndSub

D)PrivateSubCommand1_C1ick()

n=5：x=l：i=l

Do

X=X*1

i=i十1

loopWhilei>n

Printx

EndSub

(23)在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱分別為LabelkLabel2的標簽，

然后編寫如下程序代碼：

PrivatexAsInteger

PrivateSubCommandl-Click()

X=5：Y=3

Callproc(x,Y)

Labell.Caption=X

Labe12.Caption=Y

EndSub

PrivateSubproc(ByVaiaAsInteger,ByVaibAshteger)

x=a*a

Y二b十b

EndSub

程序運行后，單擊命令按鈕，則兩個標簽中顯示的內(nèi)容分別是

A)5和3B)25和3C)25和6D)5和6

(24)在窗體上畫一個名稱為Commandl的命令按鈕，一個名稱為Labell的標簽，然后編寫如下事件

過程：

PrivateSubCommandl_Click()

S=0

第13頁共97頁

Fori=lTO15

x=2*i-1

IfxMod3=0Thens=s十1

Nexti

Labell.Caption=s

EndSub

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

A)1B)5C)27D)45

(25)在窗體上畫一個名稱為Command1的命令按鈕和三個名稱分別為Labell>Label2、Label3的標

簽，然后編寫如下代碼：

PrivatexAsInteger

PrivateSubCommand1_C1ick()

StaticyAsInteger

DimzAsInteger

n=10

z=n十z

y=y十z

x=x十z

Labe11.Caption=x

Labe12.Caption=y

Label3.Caption=z

EndSub

運行程序，連續(xù)三次單擊命令按鈕后，則三個標簽中顯示的內(nèi)容分別是

A)101010B)303030C)303010D)103030

(26)設在窗體上有一個名稱為Command］的命令按鈕，并有以下事件過程：

PriVateSubCommandl_Click()

StaticbAsVariant

b=Array(1,3,5,7,9)

EndSub

此過程的功能是把數(shù)組b中的5個數(shù)逆序存放(即排列為9,7,5,3,Do為實現(xiàn)此功能，省

略號處的程序段應該是

A)Fori=0To5-1\2

tmp=b(i)

b(i)=b(5-i-l)

b(5-i-l)=tmp

Next

B)fori=0To5

tmp=b(i)

b(i)=b(5-i-l)

b(5-i-l)=tmp

Next

C)Fori=0TO5\2

tmp=b(i)

b(i)=b(5-i-l)

b(5-iT)；tmp

Next

第14頁共97頁

D)Fori=lTO5\2

tmp=b(i)

b(i)=b(5—i—1)

b(5一i-1)=tmp

Next

(27)在窗體上畫一個名稱為Drivel的驅動器列表框，一個名稱為Dirl的目錄列表框，一個名稱為

Filel的文件列表框，兩個名稱分別為Label!.Label2,標題分別為空白和“共有文件”的標簽。

編寫程序，使得驅動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標簽Labe11

中顯示當前文件夾中文件的數(shù)量。如圖所示。能夠正確實現(xiàn)上述功能的程序是

A)PrivateSubDirlChange()B)PrivateSubDirlChange()

Filel.Path=Dirl.pathFilel.path=dirl.Path

EndSubEndSub

PrivateSubDrivel_Change()PrivateSubDrivel_Change()

Dirl.Path=Drivel.DriveDirl.Path=Drivel.Drive

Labell.Caption=Filel.listCountLabel1.Captlon=filel.list

EndSubEndSub

C)PrivateSubDirlChangeOD)PrivateSubDirl_Change()

Filel.Path=Dirl.Pathfilel.Path=Dirl.Path

Labell.Caption=Filel.ListCountLabell.Caption=Filel.List

EndSubEndSub

PrivateSubDrivel_Change()PrivateSubDrivel_Change()

Dirl.Path=Drivel.DriveDirl.Path=Drivel.DrlVe

Labell.Caption=Filel.ListCountLabell.Caption=Filel.list

EndSubEndSub

(28)?個工程中包含兩個名稱分別為Forml、Form2的窗體，一個名稱為mdlFunc的標準模塊。假定

在Forml、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：

Forml中定義的過程：

PriVateSubfrmfunctionl()

EndSub

Form2中定義的過程：

PublicSubfrmffunction2()

EndSub

mdlFunc中定義的過程：

PublicSubmdlFunctionO

EndSub

在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是

A)上述三個過程都可以在工程中的任何窗體或模塊中被調(diào)用

B)frmfunction2和mdlfunction過程能夠在工程中各個窗體或模塊中被調(diào)用

O上述三個過程都只能在各自被定義的模塊中調(diào)用

D)只有mdlFunction過程能夠被工程中各個窗體或模塊調(diào)用(29)窗體上有兩個名稱分別為

Textl.Text2的文本框，一個名稱為Commandl的命令按鈕。運行后的窗體外觀如圖所示。設有如

下的類型聲明

TypePerson

nameAsString*8

majorAsString*20

EndType

第15頁共97頁

當單擊“保存”按鈕時，將兩個文本框中的內(nèi)容寫入一個隨機文件Test29.datH」。設文本框

中的數(shù)據(jù)已正確地賦值給Person類型的變量p。則能夠正確地把數(shù)據(jù)寫入文件的程序段是

A)Openwc：\Test29.dat"ForRandomAs#l

Put#1,1,p

Close#1

B)Open"c:\Test29.dat"ForRandomAs#1

Get#l,1,p

ClOse#1

C)openz，c\Test29.dat〃ForRandomAs#1Len=Len(p)

Put#1,1,p

Close#1

D)Open\Test29.dat"ForRandomAs#l=Len(p)

Get#1,1,p

CloSe#1

(30)在窗體上畫一個名稱為CommonDialogl的通用對話框，一個名稱為Commandl的命令按鈕。要求

單擊命令按鈕時，打開一個保存文件的通用對話框。該窗口的標題為〃Save〃，缺省文件名為

"SaveFile",在“文件類型”欄中顯示*.txt。則能夠滿足上述要求的程序是

A)PrivateSubCommandClick()

Commondialogl.FileName="Savefile”

Commondialogl.filter=z/AllFiles|*.*|(*.txt)|*.txt|(*.doc).*.doc”

CommonDialogl.Filterindex=2

CommonDialogl.DialOg.title=〃Save〃

CommonDialogl.Action=2

EndSub

B)PrivateSubCommand1—ClickO

CommonDialogl.FileName="SaveFi1

CommonDiaLogl.Filter="AllFiles|*.*|(*.txt)|*.txt!*.doc|*.doc”

COmmonDialogl.Filterlndex=1

CommonDialogl.DialogTitie=^Savez，

CommonDialogl.Action=2

EndSub

C)PrivateSubCmmandl_Click()

COmmonDialogl.FileName=〃Save〃

CommonDialogl.FiLter=/，AllFilesC*|(*.txt)|*.txt|(*.doc)|*.doc”

CommonDialogl.Filterindex=2

COmmonDialogl.DialogTitie=z，SaveFi

CommonDialogl.Action=2

EndSub

D)PrivateSubCommand1_Click()

CommonDialogl.FileName=〃SaveFi16〃

CommonDialogl.Filter=^11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”

CommonDialogl.Filterlndex=l

CommonDialogl.DialogTitle="Save”

CommonDialogl.Action=1

EndSub

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

第16頁共97頁

(DvisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是―

(2)VisualBasic提供的對數(shù)據(jù)文件的三種訪問方式為隨機訪問方式和二進制訪問方式。

(3)執(zhí)行下面的程序段后，變量S的值為o

S=5

Fori=2.6To4.9Step0.6

$=S十1

Nexti