vbexcise.docx

vbexcise.docx

《vbexcise.docx》由会员分享，可在线阅读，更多相关《vbexcise.docx（12页珍藏版）》请在冰豆网上搜索。

vbexcise

一、单项选择题

1.下面程序段，运行后显示的结果是______。

Dimx

x=Int（Rnd）+5

selectcasex

case5

print“优秀”

case4

print“良好”

case3

print“通过”

caseelse

print“不通过”

endselect

A.优秀B.良好C.通过D.不通过

2.VB6.0是一种面向的编程环境。

A.机器B.对象C.过程D.应用

3.一个对象可以执行的动作和可以被对象识别的动作分别称为______。

A.方法和事件B.事件和方法

C.属性和方法D.事件和过程

4.当运行程序时，系统会自动启动窗体的______事件过程。

A.LoadB.ClickC.UnLoadD.GotFocus

5.要使Form1窗体的标题栏显示“欢迎使用VB”，以下______语句是正确的。

A.Form1.Caption=“欢迎使用VB”B.Form1.Caption=’欢迎使用VB’

C.Form1.Caption=欢迎使用VBD.Form1.Caption=”欢迎使用VB”

6.为了使目录列表框Dir1的显示内容与驱动器列表框Drive1的选择一致，应当________。

A.在Dir1_Change事件中加入代码Dir1.Path=Drive1.Drive

B.在Drive1_Change事件中加入代码Dir1.Path=Drive1.Drive

C.在Dir1_Change事件中加入代码Drive1.Drive=Dir1.Path

D.在Drive1_Change事件中加入代码Drive1.Drive=Dir1.Path

7.要使某控件在运行时不可显示，应对______属性进行设置。

A.EnableB.VisibleC.BackColorD.Caption

8.保存新建的工程时，默认的路径是______。

A.MyDocumentsB.VB98C.\D.Windows

9.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。

A.选择图片框，然后按Del键

B.执行语句Picture1.Picture=LoadPicture（""）

C.执行语句Picture1.Picture=""

D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键

10.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。

当单击列表框中的某个项目时，在标签中显示被选中项目的名称。

下列能正确实现上述操作的程序是：

_____。

A.PrivateSubList1_Click（）

Label1.Caption=List1.ListIndex

EndSub

B.PrivateSubList1_Click（）

Label1.Name=List1.ListIndex

EndSub

C.PrivateSubList1_Click（）

Label1.Name=List1.Text

EndSub

D.PrivateSubList1_Click（）

Label1.Caption=List1.Text

EndSub

11.在一行语句内写多条语句时，每个语句之间用______符号分隔。

A.，B.：

C.、D.；

12.表达式16/4–2^5*8/4MOD5\2的值为______。

A.14B.4C.20D.2

13.赋值语句：

a=123+Mid（“123456”,3,2）执行后，a变量中的值是______。

A.“1234”B.123C.12334D.157

14.VB提供了结构化程序设计的三种基本结构，三种基本结构是______。

A.递归结构、选择结构、循环结构B.选择结构、过程结构、顺序结构

C.过程结构、输入输出结构、转向结构D.选择结构、循环结构、顺序结构

15.VB6.0集成开发环境中不能完成的功能是______。

A.输入编辑源程序B.编译生成可执行程序

C.调试运行程序D.自动查找并改正程序中的错误

16.下列关于DO…Loop循环结构执行循环体次数的描述正确的是______。

A.DOWhile…Loop循环和DO…LoopUntil循环至少都执行一次

B.DOWhile…Loop循环和DO…LoopUntil循环可能都不执行

C.DOWhile…Loop循环至少执行一次，DO…LoopUntil循环可能不执行

D.DOWhile…Loop循环可能不执行，DO…LoopUntil循环至少执行一次

17.以下程序输出结果是______。

Dima

a=array（1,2,3,4,5,6,7）

Fori=Lbound（a）ToUbound（a）

a（i）=a（i）*a（i）

Nexti

Printa（i）

A.49B.0

C.不确定D.程序出错

18.下面过程语句说明合法的是______。

A.Subf1（ByValn%）B.Subf1（n%）AsInteger

C.Functionf1%（f1%）D.Functionf1（ByValn%）

19.用来设置粗字体字的属性是______。

A.FontItalicB.FontNameC.FontBoldD.FontSize

20.按存储信息的形式分类，文件可以分为______。

A.顺序文件和随机文件B.ASCII文件和二进制文件

C.程序文件和数据文件D.磁盘文件和打印文件

21.不论何控件，共同具有的是______属性。

A.TextB.Name

C.ForeColorD.Caption

22．在以下________中的这些对象都不响应Click事件。

A.框架、定时器、形状B.定时器、线条、滚动条

C.滚动条、公共对话框、图像框D.标签、定时器、滚动条

23．下列数据类型中，占用内存最小的是________。

A.BooleanB.Byte

C.IntegerD.Single

24．用情况选择语句SelectCaseX，选择|X|>5情况的语句为Case________。

A.Not（-5To5）B.5To-5

C.Is<-5,Is>5D.ABS（X）>5

25．列表框控件的下列几个属性中，________不是数组。

A.ListB.ListIndex

C.SelectedD.ItemData

26．表达式Len（＂123程序设计ABC＂）的值是。

A.14B.10

C.17D.20

27．如果在图片框上使用绘图方法绘制一个圆，以下所列出的图片框的属性中，________不会影响该圆的外观。

A.BackColorB.ForeColor

C.DrawStyleD.DrawWidth

28．________控件可以使用SetFocus方法。

A.FrameB.LabelC.FormD.Timer

29．为了使命令按钮（名称为Command1）右移200，应使用的语句是______。

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

C.Command1.Left=Command1.Left+200

D.Command1.Left=Command1.Left–200

30．水平滚动条HScroll1的LargeChange属性值为100，表示________为100。

A.该滚动条Value属性的最大值

B.拖动滚动框时滚动条Value的变化量

C.单击滚动箭头和滚动框之间某位置时滚动条Value的变化量

D.单击滚动箭头时滚动条Value的变化量

二、填空题

21.VB是建立在BASIC语言基础上的【可视】化编程语言或编程环境。

22.在属性窗口，属性的显示方式可分为【按字母顺序】和”按分类顺序”。

23.在VB中，1234、123456&、1.2346E+5、12346.D+5共4个常数分别表示【整形】【长整形】【单精度类型】和双精度类型。

24.表达式Ucase（Mid（“abcdefgh”,3,4））的值是【CDEF】。

25.数组声明时下标下界默认为0，利用【optionbase1】语句可以使下标为1。

26.要获得数组的上界通过【ubound（）】函数，要获得列表框List数组的元素总个数通过【listcount（）】属性。

27.VB中变量按其作用域户分为全局变量、模块级变量和【局部】变量。

28.数学式

对应的VB表达式为【sqr（y^3+3*（a^2+b^2）/（x^2+y^2））】。

29.已知a=2,b=3,c=4,d=5，表达式Nota<=cXor4*c=b^2Orb<>a+c的值为【true】。

30.设变量x是一个两位正整数，写出判断x的十位数是个奇数数字的VB逻辑表达式【x\10mode2=1】。

31.写出表达式Val（"10abc.5"）*Int（-2.7）的值【-30】。

32.写出表达式#6/21/2002#-2的值【6/19/2002】。

33.写出循环结构Fork=35To0Step5……Nextk的循环次数为【0】。

34.将公共对话框CD1显示为颜色对话框的语句是【CD1.showcolor】。

35.要在图片框控件pic中画一个与图片框一样大并且内部为兰色的矩形，作图语句为【pic.line（0,0）-（pic.scalewidth,pic.scaleheighet）,vbblue.bf】。

36.将文本框作为密码输入框时，如果要求该文本框最多接受6个字符，并且任何输入都显示为*，例如输入123456却显示为******。

那么应该将该文本框的【maxlength】属性设为6，而将PassWordChar属性设为【*】。

三、判断题

1.如果窗体的Enabled属性设置为False，就不能对窗体上的任何控件进行操作，也不能对窗体进行关闭、还原和最小化的操作。

√

2.要修改标签控件或文本框控件中显示的文本内容，只要重新设置它们的Text属性即可。

×

3.在一个过程中使用Static语句声明的静态变量，能在该过程结束后仍然保留该变量，所以可以在其他模块中引用该变量。

×

4.Do---LoopUntil语句实现循环时,只要条件是真的，就停止循环。

√

5.定时器的Interval属性表示定时器调用Timer事件的间隔毫秒数，如果Interval为0，则间隔为0毫秒，会连续不断地调用Timer事件。

×

6.一个窗体上可以有多个单选钮的Value属性同时为True。

√

7.调用一个窗体的Hide方法将自动将这个窗体的Visible属性改变为 False。

√

8.改变滚动条的Value属性将会触发滚动条的Change事件，所以拖动滚动框时将触发滚动条的Change事件。

×

9.如果要限制文件列表框只显示后缀为bmp和jpg的图片文件，可以将文件列表框的Pattern属性设置为“*.bmp,*.jpg”。

×

10.要在子菜单中放置分隔条，则要将子菜单项的caption属性设置为连字符“-”。

√

四、阅读程序题

1.有如下程序：

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

程序运行后，单击窗体，输出结果为【27】。

2.在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a=InputBox（"Enteraninteger"）

b=InputBox（"Enteraninteger"）

Text1.Text=b+a

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是【108】。

3.已知在c:

\data1.dat文件中数据如下：

张寇,78,李琳,80,王澜,56,司马,38,李晓,90,刘召,50,李名,45

写出单击窗体后，c:

\data2.dat文件中的数据为【李琳，80，李晓，90】。

PrivateSubForm_click（）

Open"c:

\data1.dat"ForInputAs#1

Calloutputdata（"c:

\data2.dat"）

Close

EndSub

PrivateSuboutputdata（filenameAsString）

DimaAsString,bAsInteger

OpenfilenameForOutputAs#2

DoWhileNotEOF

（1）

Input#1,a,b

IfLeft（a,1）="李"Andb>=60Then

Print#2,a,b

EndIf

Loop

EndSub

五、编程题

1.随机产生20个学生的成绩，统计各分数段人数。

即0~59、60~69、70~79、80~89、90~100，并显示结果。

产生的数据在Picture1显示，统计结果在Picture2显示，效果如下图所示。

Dima%（19）

PrivateSubCommand1_Click（）

Fori=0To19

a（i）=Int（Rnd*101）

IfiMod4=0ThenPicture1.Print

Picture1.Printa（i）;"";

Nexti

EndSub

PrivateSubCommand2_Click（）

Dims（5To9）

Fori=0To19

k=a（i）\10

SelectCasek

Case0To5

s（5）=s（5）+1

Case9To10

s（9）=s（9）+1

Case6To8

s（k）=s（k）+1

EndSelect

Nexti

Fori=5To9

Ifs（i）<>0ThenPicture2.Print"s（";i;"）的人数有";Format（s（i）,"0"）;"个"

Nexti

EndSub

2.随机产生10个30~100（包括30，100）的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，效果如下图所示。

PrivateSubForm_Click（）

Dima（1To10）AsInteger

Fori=1To10

a（i）=Int（Rnd*71+30）

Printa（i）;"";

Nexti

Max=a

（1）

Min=a

（1）

Avg=a

（1）

Fori=2To10

Ifa（i）>MaxThenMax=a（i）

Ifa（i）

Avg=Avg+a（i）

Nexti

Avg=Avg/10

Print

Print"Max=";Max;"Min=";Min;"Avg=";Avg

EndSub