vb期末复习资料.docx

vb期末复习资料.docx

《vb期末复习资料.docx》由会员分享，可在线阅读，更多相关《vb期末复习资料.docx（20页珍藏版）》请在冰点文库上搜索。

vb期末复习资料

VB练习题一：

1.在程序中,如果对象的名称为objname,而且对象有一个属性p,那么在代码中正确的引用该属性的格式是____。

（a）p.objname（b）objname.p（c）objname（p）（d）objname*p

2.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的?

（a）MouseDown（b）MouseUp（c）Load（d）Click

3.在设计应用程序时,通过____窗口可以查看到应用程序工程中的所有组成部分。

（a）代码窗口（b）窗体设计窗口（c）属性窗口（d）工程资源管理器窗口

4.通过以下哪个窗口可以在设计时直观的调整窗体在屏幕上的位置?

（a）代码窗口（b）窗体布局窗口（c）窗体设计窗口（d）属性窗口

5.在VisualBasic中,如果要获取某一个对象的联机帮助,只要选中该对象后按下___键。

（a）Esc（b）F10（c）Tab（d）F1

6.如果要向工具箱中加入控件和部件,可以利用"工程"菜单中的____命令。

（a）"引用"（b）"部件"（c）"工程属性"（d）"添加窗体"

7.如果要改变窗体的标题,需要设置窗体对象的_____属性。

（a）Name（b）Caption（c）BackColor（d）BorderStyle

8.窗体的BackColor属性用于设置窗体的____.

（a）高度（b）宽度（c）背景色（d）前景色

9.在Visualbasic中,所有的窗体和控件都必定具有的一个属性是_____。

（a）Name（b）Font（c）Caption（d）FillColor

10.窗体和控件的___属性代表了窗体和控件的宽度。

（a）Top（b）Left（c）Width（d）Height

11.通过改变选项按钮（OptionButton）控件的_____属性值，可以改变按钮的选取状态。

（a）Value（b）Style（c）Appearance（d）Caption

12.在设计菜单时,如果要在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为_____。

（a）加号（+）（b）减号（-）（c）星号（*）（d）感叹号（!

）

13.菜单控件仅支持以下哪个事件?

（a）Click（b）MouseDown（c）KeyPress（d）Load

14.如果要在程序中显示一个弹出式菜单,那么要调用VisualBasic中提供的_____方法。

（a）Print（b）Move（c）Refresh（d）PopupMenu

15.如果要显示VisualBasic中的预定义输入对话框,需要调用VisualBasic提供的____函数。

（a）MsgBox（b）Open（c）Output（d）InputBox

16.用以下语MsgBox"你好",vbOkOnly,"Hello"显示的消息对话框窗口的标题是____。

（a）你好（b）vbOkOnly（c）OK（d）Hello

17.以下哪个控件本身在程序运行时是绝对不可见的?

（a）工具栏（ToolBar）（b）命令按钮（CommandButton）（c）文本框（TextBox）

（d）公用对话框（CommonDialog）

18.要利用公用对话框控件来显示"保存文件"对话框,需要调用控件的___方法。

（a）ShowPrinter（b）ShowOpen（c）ShowSave（d）ShowColor

19.VisualBasic专业版中提供的____控件可以用来存储图象供其他对象使用。

（a）ToolBar（b）StatusBar（c）ImageList（d）TreeView

20.将工具栏控件的Align属性设置为____可以使工具栏自动填充在窗体的底部.

（a）vbAlignTop（b）vbAlignButton（c）vbAlignLeft（d）vbAlignNone

1.b,2.c,3.d,4.b,5.d,6.b,7.b,8.c,9.a,10.c,

11.a,12.b,13.a,14.d,15.d,16.d,17.d,18.c,19.c,20.b

VB练习题二：

1.以下变量名中,哪一个是不符合VisualBasic的命名规范的?

a.Abc901b._mnu_Open_234c.price_d.K

2.以下变量声明语句DimMyData所声明的变量MyData是什么类型?

a.整型（Integer）b.字符串型（String）c.变体型（Variant）d.双精度型（Double）

3.符号%是声明（）类型变量的类型定义符?

a.Integerb.Variantc.Singled.String

4.执行下列语句后整型变量a的值是多少?

a.10b.20c.30d.不确定

If（3-2）>2Then

a=10

ElseIf（10/2）=6Then

a=20

Else

a=30

EndIf

5.在四个运算符:

加（+）,减（-）,乘（*）,乘方（^）中,优先级最高的是

a.+b.-c.*d.^

6.在用Dimx（2,6to9）语句所声明的数组中不包括下列哪个元素?

a.x（2,6）b.x（1,9）c.x（0,7）d.x（-1,8）

7.用Dim（1,3to7,10）声明的是一个几维数组?

a.1b.2c.3d.4

8.逻辑表达式（（10>9）and（8>9））or（not（4>5））的值是

a.Trueb.Falsec.结果不确定d.条件不足

9.函数过程（用Function定义）与子过程（用Sub定义）的最大区别是

a.函数过程有返回值b.子过程有返回值c.函数过程可以带参数d.子过程可以带参数

10.以下哪个语句定义了一个单精度变量?

a.Dimaasintegerb.Dima%c.Dima!

d.Dima

11.在VisualBsaic代码中，将多个语句合并写在一行上的并行符是

a.撇号（'）b.冒号（:

）c.感叹号（!

）d.星号（*）

12.声明一个全局变量的关键字是

a.Dimb.Publicc.Privated.Global

13.如果x是一个变量,那么下列哪一个不是赋值语句?

a.Letx=10b.x=10c.Setx=nothingd.casex=10

14.在一行VisualBsaic代码中，下列哪个符号后的内容将被认为是注释?

a.撇号（'）b.冒号（:

）c.感叹号（!

）d.星号（*）

15.在下面的循环语句中,在括号处缺少了哪一个关键字?

Do

i=i+1

（）whilei<10

a.NextbUntilc.Ford.Loop

16.在VisualBasic中用什么关键字来定义常量?

a.Dimb.Globalc.Constd.Redim

17.在代码中定义了一个子过程

SubP（a,b）

...

EndSub

下面哪一个调用该过程的格式是正确的?

a.CallPb.CallP10,20c.CallP（10,20）d.P（10,20）

18.在For...Next循环语句中,如果省略Step子句,则循环的步长为

a.-1b.0c.1d.10

19.下列那个语句可以为动态数组分配实际元素个数?

a.Dim语句b.static语句c.public语句d.ReDim语句

20.用于去掉一个字符串的右边的空白部分的函数是:

a.RTrim$（）b.Right$（）c.Asc（）d.Time$（）

1.b,2.c,3.a,4.c,5.c,6.d,7.c,8.a,9.a,10.c,

11.b,12.d,13.d,14.a,15.d,16.c,17.c,18.c,19.d,20.a

VB练习题三：

1.要向一个图片框（PictureBox）控件中加入一幅图片,需要设置控件的__属性?

a.Appearanceb.Fontc.Pictured.Align

2.如果要在程序代码中为图片框动态加载和清除图象,可以利用（）函数.

a.InputBoxb.Inputc.LoadPictured.PaintPicture

3.如何使图象（Image）控件中的图象自动适宜控件的大小?

a.将控件的AutoSize属性设为Trueb.将控件的AutoSize属性设为False

c.将控件的Stretch属性设为Trued.将控件的Stretch属性设为false

4.如果要改变直线（Line）控件使它显示为点划线,那么需要设置控件的（）属性

a.BorderStyleb.BorderWidthc.X1d.Y1

5.利用形状控件的（）属性可以使控件显示为不同的形状.

a.Shapeb.DrawModec.BackStyled.FillStyle

6.文件列表框控件的（）属性用来确定在列表框中显示的文件名.

a.Pathb.Patternc.FileNamed.List

7.VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括（）

a.顺序文件b.Unix文件c.二进制文件d.随机文件

8.在VisualBasic中打开一个顺序文件时,可以采用几种打开方式?

a.1b.2c.3d.4

9.以下语句用于打开一个顺序文件Open"C:

\MyFile.txt"ForOutPut但该语句的一个重要错误是没有（）

a.指定打开方式b.指定文件号c.指定打开文件名d.指定文件类型

10.随机型文件以什么单位来进行文件读取?

a.字节b.记录c.整个文件d.字符

11.利用（）函数可以判断在访问文件时是否已经到达了文件尾?

a.BOFb.EOFc.LOFd.LOC

12.用Write和Input语句向文件中写入多个数据的差别在于（）

a.Write语句将自动加入逗号分隔符b.Input语句将自动加入逗号分隔符

c.Write语句将自动加入回车d.Input语句将自动加入回车

13.每个VisualBasic应用程序中最多可以包含几个MDI窗体？

a.1b.2c.3d.4

14.将一个窗体设置为MDI子窗体的方法是（）?

a.将窗体的名称改为MDIb.将窗体的MDIChild属性设为True

c.将窗体的MDIChild属性设为Falsed.将窗体的Enabled属性设为False

15.要在MDI窗体中排列子窗体的位置,要利用MDI窗体的（）方法?

a.Moveb.Showc.Refreshd.Arrange

16.当我们输入代码时,VisualBasic可以自动检测哪种错误？

a.语法错误b.编译错误c.运行错误d.逻辑错误

17.以下哪个Onerror语句将关闭程序中的错误处理功能。

a.OnerrorResumeNextb.Onerrorgoto1

c.Onerrorgoto0d.OnerrorgotoRetry

18.在调试程序时，如果想要动态改变程序中的变量的值，可以利用（）窗口？

a.监视b.快速查看c.立即d.本地

19.要显示当前过程中的所有变量及对象的取值,可以利用（）窗口？

a.监视b.调用堆栈c.立即d.本地

20.在程序处于中断模式时,要在立即窗口中显示变量X的值,可以输入（）后回车即可。

a.?

Xb.!

Xc.=Xd.DisplayX

1.c,2.c,3.c,4.a,5.a,6.b,7.b,8.c,9.b,10.b,

11.b,12.a,13.a,14.b,15.d,16.a,17.c,18.c,19.d,20.a

（1）DIMA（11TO30）所定义的数组有多少个元素？

A）11B）20C）30D）330

（2）PrintInt（Rnd（0）*11）+10的值的范围是

A）[0,10]B）[10,10]C）[10,20]D）[0,20]

（3）下面程序运行后，输出的结果是

PrivateSubForm_Click（）

Dima,b,c

Printc=b=a

EndSub

A）    FalseB）0C）TrueD）显示出错信息

注意：

运算顺序，c=b,得true的值，再true=a，得false 

（4）下面程序执行后C的值是

PrivateSubForm_Click（）

a=-1.2:

b=321

c=Len（Str$（a）+Str$（b））

Printc

EndSub

A）3B）4C）6D）8

注意：

数值型数转化为字符型时，前面有一个符号位

（5）下面程序执行的结果是

PrivateSubForm_Click（）

a$="123":

b$="456"

c=Val（a$）+Val（b$）

Printc

EndSub

A）123B）456C）"579"D）579

（6）下面程序运行时输出的结果是

PrivateSubForm_Click（）

ForX=1To2

a=0

ForY=1ToX

a=a+1

NextY

Printa;

NextX

EndSub

A）11B）00C）12D）23

（7）下面程序运行时输出的结果是

PrivateSubForm_Click（）

J=0

DoWhileJ<30

J=（J+1）*（J+2）

N=N+1

Loop

PrintN;J

EndSub

A）01B）3182C）430D）3030

注意：

⑴J=2,N=1;⑵J=12,N=2;⑶J=13*14=182,N=3

（8）下面程序运行时输出的结果是

PrivateSubForm_Click（）

DimA（3,3）

ForJ=1To3

ForK=1To3

A（J,K）=（J-1）*3+K

NextK

NextJ

ForJ=2To3

ForK=1To2

PrintA（K,J）;

NextK

Print

NextJ

EndSub

A）25B）23C）47D）45

36565878

 注意：

得到的数组是:

123

456

789

要求输出的元素是:

A（1,2）,A（2,2）

A（1,3）,A（2,3）

（9）下面程序运行时输出的结果是

PrivateSubForm_Click（）

ForK=3To1Step-1

X$=String$（K,"*"）

PrintX$

NextK

EndSub

A）*B）1*C）3*D）***

**2*2****

***3*1****

注意：

string函数的使用：

String（numberaslong, char）

（10）下面程序运行时输出的结果是

PrivateSubForm_Click（）

S=0

ForK=1To3

IfK<1Then

X=1

ElseIfK<=2Then

X=2

ElseIfK<3Then

X=3

Else

X=4

EndIf

PrintX;

S=S+X

NextK

PrintS

EndSub

A）3339B）3216C）1236D）2248

注意要求输出的数据（运行时

（1）x=2,s=2;

（2）x=2,s=4;（3）x=4,s=8），输出的是每次的x值与最后的s值

（11）下面程序运行后的输出是（727）

PrivateSubForm_Click（）

K=1

ForJ=1To6

K=K*J

NextJ

PrintK+J

EndSub

（12）下面程序运行后的输出Y的值是（61）

PrivateSubForm_Click（）

ForA=1To5

Y=1

ForB=1To10

ForC=1To6

Y=Y+1

NextC

NextB

NextA

Print"Y=";Y

EndSub

注意：

只需考虑A=5时，共循环了多少次

（13）语句PrintSgn（-3^2）+Int（-3^2）运行时输出的结果为

A）-1B）27C）1D）-10

 注意：

sgn函数，返回数值数据的正负号，>0时值1，<0时值-1，=0为0

（14）骰子是一个正六面体,用1～6这六个数分别代表这六面,掷一次骰子出现的数可表示为：

A）Int（Rnd（6）+1）B）Int（Rnd*6）C）Int（Rnd*7）D）Int（Rnd*6+1）

（15）语句DimA（4,5,6）定义的数组的元素个数是

A）15B）120C）210D）456

注意：

未说明为optionbase1，则系统默认为base0

（16）下面程序执行的结果是

PrivateSubForm_Click（）

A$="123":

B$="456"

C=Val（A$）+Val（B$）

PrintC\100

EndSub

A）123B）3C）5D）579

（17）下面程序运行时输出的结果是

PrivateSubForm_Click（）

ForX=1To2

A=0

ForY=0ToX-1

A=A+1

NextY

PrintA;

NextX

EndSub

 A）11B）03C）12D）36

（18）语句Print"25*40"输出的结果是

A）"25*40"B）出现错误信息C）25*40D）1000

（19）有如下程序

PrivateSubForm_Click（）

A=1

b=2

c=3

A=b

b=c

c=A

PrintA;b;c

EndSub

运行后输出的结果是

A）123B）231C）232D）223

注意：

变量名不区分大小写

（20）下面程序运行时输出的结果是

PrivateSubForm_Click（）

S=0

ForK=3To1Step-1

IfK<=1ThenX=1

IfK<=2ThenX=2

IfK<=3ThenX=3

PrintX;

S=S+X

NextK

PrintS

EndSub

A）3339B）3216C）1113D）1236

（1）下面程序运行后的输出S的值是（16）

PrivateSubForm_Click（）

ForK=1To5

S=0:

J=1

ForM=1ToK

J=J+M

NextM

S=S+J

NextK

PrintS

EndSub

（2）下面程序运行后输出结果是

PrivateSubForm_Click（）

X$="A":

Y$="B":

Z$="C"

ForJ=1To2

X$=Y$:

Y$=Z$:

Z$=X$

NextJ

PrintX$+Y$+Z$

EndSub

A）CABB）BCAC）BCBD）CBC

（3）下面程序的循环次数是

PrivateSubForm_Click（）

ForJ=8To35Step3

PrintJ;

NextJ

EndSub

A）10B）9C）27D）28

 （4）下面程序的输出结果是

PrivateSubForm_Click（）

A$="HAPPY"

B$="NEW"

C$="YEAR!

"

D$=C$+B$+A$

PrintRight$（D$,6）;Mid$（D$,6,4）;Left$（D$,5）

EndSub

A）HAPPYNEWYEAR!

B）YEAR!

NEWHAPPY

C）NEWYEAR!

HAPPYD）NEWHAPPYYEAR!

 （5）有如下程序

PrivateSubForm_Click（）

A=3

b=4

PrintA=b

EndSub

运行后输出的结果是

A）FalseB）TrueC）0D）显示出错信息

（6）有如下程序

PrivateSubForm_Click（）

Form=1To3

Forj=1Tom

Fork=jTo3

N=N+1

Nextk

Nextj

Nextm

PrintN

EndSub

运行后N的值为

A）3B）14C）9D）21

（7）有如下程序

PrivateSubForm_Click（）

A$="12"

b$="34"

c$=A$+b$

d=Val（c$）

Printd\10

EndSub

运行后输出的结果是

A）12B）34C）46D）123

（8）有如下程序

PrivateSubForm_Click（）

A=12.3

b=-123

m=Len（Str$（A）+Str$（b））

Printm

EndSub

运行后输出的结果是

A）9B）5C）7D）8

（9）有如下程序

PrivateSubForm_Click（）

Forj=1To15

A=A+jMod3

N