全国计算机等级考试二级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月笔试试卷参考答案（网友提供）..............................96

2002年9月全国计算机等级考试二级VB语言笔试试题

一、单选题(每题2分，共70分)

(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是

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

0代码窗口D)属性窗口

(2)以下叙述中正确的是

A)窗体的Name属性指定窗体的名称，用来标识一个窗体

B)窗体的Name属性的值是显示在窗体标题栏中的文本

O可以在运行期间改变对象的Name属性的值

D)对象的Name属性值可以为空

(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是

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)整数B)大于0的整数

0等于0的整数D)小于0的数

(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(“输入数值”，“0”，“示例”)

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是

A)变量X的值是数值10

第1页共97页

B)在InputBox对话框标题栏中显示的是“示例”

0。是默认值

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

(9)从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第一

个字符串中起始位置的函数是

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)以下能够触发文本框Change事件的操作是

A)文本框失去焦点B)文本框获得焦点

0设置文本框的焦点D)改变文本框的内容

(12)在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl,要

求每一秒钟在文本框中显示一次当前的时间。程序为：

PrivateSubTimer1_()

TxtTime.text=Time

EndSub

在下划线上应填入的内容是

A)EnabledB)VisibleC)IntervalD)Timer

(13)在窗体上画两个单选按钮，名称分别为0ptionl、0ption2,标题分别为“宋体”和“黑

体”；一个复选框，名称为Checkl,标题为“粗体”；一个文本框，名称为Textl,Text属

性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗

体外观如下图)，则能够实现上述要求的语句序列是

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键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个

属性设置为True,这个属性是

A)ValueB)DefaultC)CancelD)Enabled

(15)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：

PrivateSubCommand1Click()

For1=1To4

ForJ=0To1

PrintChr$(65+I);

NextJ

Print

NextI

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A)BBB)AC)BD)AA

CCCBBCCBBB

DDDDCCCDDDCCCC

EEEEEDDDDEEEEDDDD

第2页共97页

(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是

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)在调用过程时，所有周部变量被系统初始化为。或空字符串

(23)在窗体上画一个命令按钮，名称为Commandio程序运行后，如果单击命令按钮，则显示一个

输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断

所输入的整数是否是奇数，如果是奇数，过程F1返回1,否则返回0。能够正确实现上述功能的代

码是

A)PrivateSubCommandl_Click()

x=InputBox("请输入整数”)

a=Fl(Vai(x))

Printa

EndSub

FunctionFl(ByRefbAsInteger)

第4页共97页

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B)PrivateSubCommand1_C1ick()

x=InputBox(“请输入整数”)

a=Fl(Val(x))

Printa

EndSub

FunctionFI(ByRefbAsInteger)

IfbMod2=0Then

Fl=0

Else

Fl=l

EndIf

EndFunction

C)PrivateSubCommandl_Click()

x=InputBox(“请输入整数”)

Fl(Vai(x))

Printa

EndSub

FunctionFl(ByRefbAsInteger)

IfbMod2=0Then

Fl=l

Else

Fl=0

EndIf

EndFunction

D)PrivateSubCommand1_C1ick()

x=InputBox(“请输入整数”)

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

程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A)0B)12C)Str(z)D)没有显示

(25)以下叙述中错误的是

A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B)Sub过程中不能嵌套定义Sub过程

0Sub过程中可以嵌套调用Sub过程

D)事件过程可以像通用过程一样由用户定义过程名

(26)以下叙述中错误的是

A)在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的

KeyCode)

B)在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字

(具有不同的KeyCode)

0KeyPress事件中不能识别键盘上某个键的按下与释放

D)KeyPress事件中可以识别键盘上某个键的按下与释放

(27)以下叙述中错误的是

A)在同一窗体的菜单项中，不允许出现标题相同的菜单项

B)在菜单的标题栏中，所引导的字母指明了访问该菜单项的访问键

0程序运行过程中，可以重新设置菜单的Visible属性

D)弹出式菜单也在菜单编辑器中定义

(28)设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单项，应使用的语

句是

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

(29)以下叙述中错误的是

A)在程序运行时，通用对话框控件是不可见的

B)在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同

的作用

0调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框

(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出

的文件类型是文本文件(即.txt文件)，则正确的描述格式是

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

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

(31)以下叙述中错误的是

A)一个工程中只能有一个SubMain过程

B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

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

第6页共97页

D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

(32)以下叙述中错误的是

A)一个工程中可以包含多个窗体文件

B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用

0在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件

D)全局变量必须在标准模块中定义

(33)设在工程中有一个标准模块，其中定义了如下记录类型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

在窗体上画一个名为Commandl的命令按钮。要求当执行事件过程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)一个记录中所包含的各个元素的数据类型必须相同

第7页共97页

B)随机文件中每个记录的长度是固定的

0Open命令的作用是打开一个已经存在的文件

D)使用Input#语句可以从随机文件中读取数据

(35)目录列表框的Path属性的作用是

A)显示当前驱动器或指定驱动器上的目录结构

B)显示当前驱动器或指定驱动器上的某目录下的文件名

O显示根目录下的文件名

D)显示该路径下的文件

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

(1)在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为“数值”及空白;

然后画一个名称为Hscolll的水平滚动条，其Min的值为0,Max的值为100。程序运行后，如果单

击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在[1]和[2]处填入适

当的内容，将程序补充完整。

PrivateSubHScrolll_[1]()

Labl2.Caption=HScrolll.[2]

EndSub

(2)在窗体上画一个名称为Command1.标题为“计算”的命令按钮；画两个文本框，名称分别为

Textl和Text2；然后画4个标签，名称分别为Label!.Label2>Labe13和Labe14,标题分别为“操

作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为

Optionl,标题分别为“+”、和。程序运行后，在Textl.Text2中输入两个数

值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4,程序运行情况如图所示。

请在[3]、[4]和[5]处填入适当的内容，将程序补充完整。

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变为可用。请在[6]处

填入适当的内容，将程序补充完整。

PrivateSubForm_Load()

Command1.Enabled=False

EndSub

第8页共97页

PrivateSubTextl_[6]()

Command1.Enabled=True

EndSub

(4)在菜单编辑器中建立了一个菜单.，名为pmenu,用下面的语句可以把它作为弹出式菜单弹出，

请填空。

Forml.[7]Pmenu

(5)以下程序的功能是：从键盘上输入若干个学牛的考试分数，当输入负数时结束输入，然后输出

其中的最高分数和最低分数。请在[8]和[9]处填入适当的内容，将程序补充完整。

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

程序运行后，在文本框中显示的内容是[10],而在图片框中显示的内容是[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]处填入适当的内容将程序补充完整。

PrivateSubForm_load()

ListLAdditem”北京”

Listl.Additemw上海”

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)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中

B)窗体的load事件在加载窗体时发生

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)函数String(n,"str”)的功能是

A)把数值型数据转换为字符串

第10页共97页

B)返回由n个字符组成的字符串

0从字符串中取出n个字符

D)从字符串中第n个字符的位置开始取子字符串

(6)将数学表达式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。单击命令按钮时，执行如下事件过程：

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)执行如下语句:

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

将显示一个输入对话框，在对话框的输入区中显示的信息是

A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday

(9)表示滚动条控件取值范围最大值的属性是

A)MaxB)LargeChangeC)ValueD)Max—Min

(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示

若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是

A)PrivateSublistl_Click()B)PrivateSubListl_Click()

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

EndSub•EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A)空白B)错误提示C)北京D)上海

(15)假定有以下函数过程：

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)执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

(17)以下叙述中错误的是

A)用Shell函数可以调用能够在Windows下运行的应用程序

B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数

C)调用Shell函数的格式应为：<变量g>=Shell(……)

D)用Shel1函数不能执行DoS命令

(18)以下关于过程及过程参数的描述中，错误的是

A)过程的参数可以是控件名称

B)用数组作为过程的参数时，使用的是“传地址”方式

c)只有函数过程能够将过程中处理的信息传回到调用的程序中

D)窗体可以作为过程的参数

(19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

PrivateSubTxtaKeyPress(keyasciiasinteger)

EndSub

若焦点位于文本框中，则能够触发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)参数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

程序运行后，单击命令按钮，则两个标签中显示的内容分别是

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

程序运行后，单击命令按钮，则标签中显示的内容是

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

运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

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

(26)设在窗体上有一个名称为Command］的命令按钮，并有以下事件过程：

PriVateSubCommandl_Click()

StaticbAsVariant

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

EndSub

此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,Do为实现此功能，省

略号处的程序段应该是

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

中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是

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

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是

A)上述三个过程都可以在工程中的任何窗体或模块中被调用

B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用

O上述三个过程都只能在各自被定义的模块中调用

D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为

Textl.Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如

下的类型声明

TypePerson

nameAsString*8

majorAsString*20

EndType

第15页共97页

当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.datH」。设文本框

中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

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提供的对数据文件的三种访问方式为随机访问方式和二进制访问方式。

(3)执行下面的程序段后，变量S的值为o

S=5

Fori=2.6To4.9Step0.6

$=S十1

Nexti