VB期末考试样题

云南师范大学2010-2011学年下学期统一考试

《计算机技术基础》（VB6.0）期末考试试卷

考试方式（闭卷）考试时量：100分钟试卷编号（A卷）

一、判断题：（每题1分，共10分）

1.工具箱在不用时可以关闭，若要再显示，需重新启动VB。

A.对B.错

2.所谓“事件驱动”就是事件触发后程序段才会运行，没有事件发生，则程序

同样可以处于运行状态。

A.对B.错

3.表达式Fix（-45.69）+Int（-29.32）的值为-74。

A.对B.错

4.利用InputBox函数可以输入字符数据。

A.对B.错

5.利用Array对数组各元素赋值，声明的数组类型只能是Variant»

A.对B.错

6.直观地说，子过程是用来编写完成行为性功能的过程，它没有返回值。

A.对B.错

7.设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设置控

件，在建立框架，然后将已有控件拖动到框架中。

A.对B.错

8.除了Click事件之外，菜单项还能响应其他的事件。（）

A.对B.错

9.在打开或另存为对话框中，用户选择的文件名可以由filetitle属性返回。

A.对B.错

10.动器列表框、目录列表和文件列表框都具有列表框Listbox中的list、

ListCount和Listindex属性。

A.对B.错

二、单选题(在本题的每一小题的被选答案中只有一个正确答案，多选不给分，

每题1分，共40分)

11.对象列表框可存储并显示当前被选中的____0

A.过程名B.窗体和控件名

C.程序代码D.以上都不对

12.下列命令不包括在“工程”菜单中的是o

A.添加窗体B.添加工程C.添加模块D.添加类模块

13..在VB的代码窗口编写程序代码时，当用户输入“对象名.”后，系统会提

供一个下拉列表提供对象的属性和方法，这种特性叫。

A.自动语法检查B.自动列出成员

C.自动缩进D.自动显示快速信息

14.VB主菜单中没有包含的是o

A.文件B.工程

C.打包D.调试

15.VB可分为o

A.试用版、正式版和测试版。B.学生版、专家版和企业版。

C.学习版、专业版和企业版。D.英文版、中文版和法文版。

16.执行下面程序后，变量x的值为____o

PrivateSubCommand1_C1ick()

Forj=lTo5

a=a+j

Nextj

x=j

MsgBoxx

EndSub

A.4B.5

C.6D.17

17.以下程序的循环次数是o

PrivateSubCommand1_C1ick()

Forj=8To35Step3

Printj;

Nextj

EndSub

A.10B.9

C.27D.28

18.执行下面程序段后，变量x的值为

x=5

Fori=lTo20step2

x=x+i\5

Nexti

A.21B.22

C.23D.24

19.下列选项中，合法的变量名是—__________o

A.c%aaaaB.sum_3

C.ElseD.5persons

20.Cis方法可清除窗体或图片框中的信息是_____o

A.Picture属性设置的背景图案B.在设计时放置的控件

C.程序运行时产生的图形和文字D.以上方法都对

21.下面程序段求两个数中的大数，_____不正确。

A.Max=IIf(x>y,x,y)B.Ifx>yThenMax=xElseMax=y

C.Max=xD.Ify>=xThenMax二y

IfY>=xThenMax=yMax=x

22.以下程序的输出结果是_____o

PrivateSubForm_Click()

x=l:y=2:z=3

x=y:y=z:z=x

Printz

EndSub

A.3B.0C.2D.1

23.以下程序的输出结果是0

PrivateSubCommandlClick()

DimsumAsInteger

sum%=19

sum=2.32

Printsum%,sum

EndSub

A.192.32B.1919

C.2.322.32D.22

24.下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为

PrivateSubCommand1_C1ick()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

A,1和0B.2和72

C.3和50D.4和168

25.以下程序的输出结果是o

PrivateSubCommand1_C1ick()

a=100

Do

s=s+a

a二a+1

LoopUntila>100

printa

EndSub

A.100B.120

C.201D.101

26.有以下的语句：

OptionBase0

Dimxscj(3,4,5)AsString

声明的数组xscj有个数组元素。

A.12B.20C.60D.120

27.在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程:

OptionBase0

PrivateSubCommand1_C1ick()

Dimabc()AsInteger

ReDimabc(10)

Fori=1To10

abc(i)=i*i

Next

ReDimabc(15)

Forj=11To15

abc(j)=j

Next

Printabc(13)+abc(8)

EndSub

程序运行后，单击命令按钮，在窗体上输出的是O

A.13B.77C.64D.169

28.有如下程序：

OptionBase0

PrivateSubForm_Click()

Dimab()AsInteger

ReDimab(10)

Fori=1To10

ab(i)=i*i

Next

ReDimPreserveab(15)

Forj=11To15

ab(j)=j

Next

Printab(13)+ab(8)

EndSub

程序运行后，单击窗体，输入结果是______O

A.13B.77C.64D.169

29.有如下程序：

OptionBase0

PrivateSubFormClick()

Dimcj()

cj=Array(65,75,96,85,45,87)

Min=100

Fori=LBound(cj())ToUBound(cj())

IfMin>cj(i)ThenMin=cj(i)

Next

PrintMin

EndSub

程序运行后，单击窗体，输入结果是O

A.45B.65C.87D.96

30.有如下程序：

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

Dimarrl(5,5)AsInteger

Fori=1To3

Forj=2To4

arrl(i,j)=i*j

Nextj

Nexti

Printarrl(2,3)+arrl(3,4)

EndSub

程序运行后，单击窗体，输出结果为

A.12B.14C.16D.18

31.阅读程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=1To3

Forj=1To2

arr(i,j)=i+j

Next

Next

ReDimPreservearr(3,4)

Forj=3To4

arr(3,j)=j

Next

Printarr(3,1)+arr(3,3)

EndSub

程序运行后，单击窗体，输入结果是

A.10B.12C.7D.27

32.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序:

OptionBase1

PrivateSubCommand1_C1ick()

DimaAsVariant

a=Array(1,2,3,4,5)

Sum=0

Fori=1To5

Sum=Sum+a(i)

Next

x=Sum/5

Fori=1To5

Ifa(i)>xThenPrinta(i);

Next

EndSub

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

A.12B.123C.345D.45

33.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:

OptionBase1

PrivateSubCommand1ClickO

Dima

a=Array(1,2,3,4,5)

Fori=1ToUBound(a)

a(i)=a(i)+i-1

Next

Printa(3)

EndSub

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

A.4B.5C.6D.7

34.子过程与函数的最大判别在于o

A.函数可传回值，而子过程不行B.函数需要输入参数，而子过程不用

C,子过程可以用Call语句调用，而函数不行D.两者并无不同

35.不能通过来删除列表框中的表项。

A.Removeritem方法B.Clear方法C.Text属性

36.为了使列表框中的项目分为多列显示，需要设置的属性为o

A.ColumnsB.StyleC.ListD.MultiSelect

37.若要把“XXX”成为List清单中的第二项，则可执行语句0

A.Listl.AddItem"XXX”,2B.Listl.Addltem'XXX",1

C.Listl.Addltem2,"XXX"D.Listl.Addlteml,"XXX”

38.当拖动滚动条中的滚动块时，将触发的滚动条的事件是o

A.MoveB.ChangC.ScollD.SetFocus

39.设计动画时通常用时钟控件属性来控制动画速度。

A.IntervalB.TimerC.MoveD.Enabled

40.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是

A.ListB.ListindexC.TextD.ListCount

41.控制菜单项是否可以复选的属性是o

A.CaptionB.CheckedC.VisibleD.Enabled

42.使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应

把这4个汉字赋给_____属性。

A.FontNameB.FileNameC.FileTitleD.DialogTitle

43.下列关于通用对话框的叙述中，错误的是。

A.在打开或另存为对话框中，用户选择的文件名可以经FileTitle属性返回。

B.CommonDialogl.ShowFont显示字体对话框。

C.在文件打开或另存为对话框中，用户选择的文件名及其路径可以经

FileName属性返回。

D.通用对话框可以用来制作和显示帮助对话框。

44.在VB中最基本的对象是,它是应用程序的基石。

A.文本框B.命令按钮

C.窗体D.标签

45.记录长度最大可取的值是字节。

A、32767B、32768C、65535D、65536

46.Printttl,STR1$中的Print是。

A、顺序文件的写语句B、在窗体上显示的方法

C、子程序名D、打印命令

47.为了把•个记录型变量的内容写入文件中指定的位置，所使用的语句的格式

为。

A、Get文件号，记录号，变量名

B、Get文件号，变量名，记录号

C、Put文件号，变量名，记录号

D、Put文件号，记录号，变量号

48.在下面选项中，不能完成对顺序文件的读操作的是o

A^Lineinput#语句B、Input#语句

C、Input。函数D、Get()语句

49.下列控件中，不属于文件系统控件的是o

A、驱动器列表框B、文件列表框

C、目录列表框D、图象列表框

50.使用驱动器列表框的属性可以返回或设置磁盘驱动器的名称。

A、ChDriveB、Dive

C、ListD、Listindex

三、填空题：(每题2分，共10分)。

1.请用正确的内容填空。下面程序的功能是通过InputBox对话框接受一个二进

制数，并把它转换成一个十进制数，结果显示在窗体中。

PrivateSubForm_Click()

b=InputBox("请输入一个二进制数")

m=Len(b)

Forj=lTom

dec=dec*2+Val(Mid(b,j,1))

Nextj

Printb;”转换后的十进制数为：”;_dec.

EndSub

2.下列是一个求解一元二次方程的程序，请填空。

FunctionEquation(aAsSingle,bAsSingle,cAsSingle,R()AsSingle)As

Integer

DimDAsSingle

D=b*b・4*a*c

IfD>0Then

Equation=2

R(0)=(-b+Sqr(D))/(2*a)

R(l)=(-b-Sqr(D))/(2*a)

EndIf

IfD=0Then

Equation=1

R(0)=-b/(2*a)

EndIf

IfD<0Then

Equation=0

EndIf

EndFunction

PrivateSubCommand1_Click()

DimaAsSingle,bAsSingle,cAsSingle,Result())AsSingle

DimflagAsInteger

a=l：b=4:c=4

flag=equation(a,b,cresult())___________________________

Ifflag=2ThenPrintnxl=n;Resul

t(0),"x2=n;Result(l)

Ifflag=1ThenPrint”xl=x2="；Result(O)

Ifflag=0ThenPrint”方程无实数解”

EndSub

3.在窗体中添加一个名称为Textl的文本框，两个名称分别为Commandl和

Command2的命令按钮。程序运行后，用户向文本框中输入字母，单击Commandl

按钮则文本框中字母—全部转换为大写—；然后单击Command2按钮则文本框

中字母—全部转换为小写o

PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

Textl.Tag=Textl.Text

EndSub

PrivateSubCommand1_Click()

Textl.Text=Ucase(Textl.Tag)

EndSub

PrivateSubCommand2_click()

Textl.Text=Lcase(Textl.Tag)

EndSub

4.运行以下，在文本框Textl、Text2中输入96、40后，单击Commandl时窗

体上的显示结果为8o

PrivateSubCommandl_Click()

DimaAsLong,bAsLong,rAsLong

a=Textl.Text

b=Text2.Text

Whileb_<>0

r=aModb:a=b:b=r

Wend

Printa

EndSub

5.C盘根目录下建立一个名为Student.dat的顺序文件。要求用InputBox函数输

入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。

PrivateSubForm_Load（）

OpentlC:Student.dat"ForOutputAs#1

ForI=to10

StuNo=InputBox（“请输入学号”）

StuName=InputBox（“请输入姓名”）

StuSex=InputBox（“请输入性别”）

Write#1,stuNo,StuName,stuSex

NextI

Close#1

EndSub

五、编程题：（共40分）

1.窗体设计（7分）

请设计如图1所示的界面。各控件和属性参照表1。

图1学生成绩统计

表2窗体控件与属性

控件名称(Name)属性标题(Caption)属性文本(text)属性

窗体forml学生成绩统计无

Frame1学生成绩统计无

框架

Frame2分数段统计无

a，，

Textl无

a，，

Text2无

“，，

Text3无

a，，

Text4无

a，，

Text5无

文本框a，，

Text6无

a，，

Text7无

“，，

Text8无

a，，

Text9无

a，，

Text10无

Label1总人数：无

Label2最高分：无

Label3及格率：无

Label4请输入及格分数线：无

Label5平均分：无

Label6最低分：无

标签

Label7优秀率：无

Label8请输入优秀分数线：无

Label9从第一个到N各学生的成绩：无

Label10各分数段人数：无

Label110--59分人数无

Label1260-100分人数无

列表框Listl无无

Command1统计无

命令按钮

Command2开始无

评分标准:

控件名称(Name)属性标题(Caption)属性文本(text)属性评分标准

窗体forml学生成绩统计无1

Frame1学生成绩统计无

框架1

Frame2分数段统计无

«，，

文本框Textl无1.5

，，，，

Text2无

Text3无U，，

“，，

Text4无

“，，

Text5无

“，，

Text6无

，，，，

Text7无

U，，

Text8无

“，，

Text9无

“，，

TextlO无

Label1总人数：无

Label2最高分：无

Label3及格率：无

Label4请输入及格分数线：无

Label5平均分：无

Label6最低分：无

标签Label7优秀率：无1.5

Label8请输入优秀分数线：无

从第一个到N各学生的成无

Label9

绩：

Label10各分数段人数：无

Label110-59分人数无

Label1260-100分人数无

列表框Listl无无1

命令按Command1统计无

1

钮Command2开始无

2.菜单设计（7分）

请设计一个如图1与图2所示的下拉菜单，各菜单的名称属性如表2所示，要求使

用菜单编辑器设置各级菜单及相应热键。

图2文件下拉菜单

图3格式下拉菜单

表2菜单属性值表

标题名称上级菜单标题热键快捷键

文件Mfile无F无

新建MNew文件NCtrL+N

打开MOpen文件OCtrL+O

保存MSave文件SCtrL+S

关闭MClose文件CCtrL+C

分割线MSpl文件无无

退出MExit文件ECtrL+E

格式MChar无H无

居左MLeft格式LCtrL+L

居右MRight格式RCtrL+R

居中MCenter格式MCtrL+M

分割线MSp2格式无无

字体MFont格式TCtrL+T

评分标准：

标题名称上级菜单标题热键快捷键评分标准

文件Mfile无F无0.5

新建MNew文件NCtrL+N0.5

打开MOpen文件0CtrL+O0.5

保存MSave文件SCtrL+S0.5

关闭MClose文件CCtrL+C0.5

分割线MSpl文件无无0.75

退出MExit文件ECtrL+E0.5

格式MChar无H无0.5

居左MLeft格式LCtrL+L0.5

居右MRight格式RCtrL+R0.5

居中MCenter格式MCtrL+M0.5

分割线MSp2格式无无0.75

字体MFont格式TCtrL+T0.5

3.3、For循环语句编写以下程序：（7分）

求:S=l+(1*2)+(1*2*3)+(1*2*3*4)+.......+(1*2*3*.........*6)

参考程序：

PrivateSubCommond1_Click()

DimsAsInteger

DimjAsInteger0.5分

DimiAsInteger0.5分

j=1：s=01分

Fori=1To6