VB期末考试题库

1.9)+0Mod2的运算结果是

试卷方案:期

201105VisualBasicA.1B.-1C.-2D.-3

答案：D

不考依万家

第5题题号:32

题型：5种下列关于菜单的说法中,错误的是.

1.单选题(20题*1=20分)A.每一个菜单项就是个对象，并且可设置自己的属

2.程序运行结果填空题(15空*2=30分)性和事件

3.完善程序填空题(10空*2=20分)B.菜单项不可以响应DblClick事件

4.改错题(3错*4=12分)C.VB6.0允许创建超过四级的子菜单

5.编程题(共2题，1题为8分，另一题10D.程序执行时，如果要求菜单项是灰色，不能被用户

分=18分)选择，则应设置菜单项的Enabled属性为False

一、单项选择共50题答案：c

第6题题号:42

第1题题号:44

以下关于数组的说法中，错误的是.

以下有关对象属性的说法中，错误的是.

A,使用了Preserve子句的Redim语句，只允许改变

A.工具箱中的控件并不是VB中所有的控件

数组最后一维的上界

B.若将Frame的Enabled属性设置为False,则不能

B.对于动态数组，Redim语句可以改变其维界但不

使用放置在Frame里面的控件

可以改变其数据类型

C.对象的Name属性在运行时不能改变

C.Erase语句的功能只是对固定大小的数组进行初始

D.对象的所有属性都可以在属性窗口中设置

化

答案：D

D.Lbound函数返回值是指定数组某一维的下界

第2题题号:3答案：C

第7题题号:8

数学表达式sin27。+J*+e，的VB算术表达式

Ix+yI设a=3,b=2,c=l,运行printa>b>c的结果是

为.

A.TrueB.FalseC.1D.出错

A.Sin(27)+Sqr(x+Exp3)/(x+y)

答案：B

B.Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)

C.Sin(27*3.14159/180)+Sqr(x+e_3)/Abs(x+y)第8题题号:4

D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)以下说法不正确的是.

答案：BA.使用不带关键字Preserve的ReDim语句可以重新

第3题题号:17定义数组的维数

B.使用不带关键字Preserve的ReDim语句可以改变

下列有关对象的叙述中，正确的是—

数组各维的上、下界

A.对象由属性，事件和方法构成

C.使用不带关键字Preserve的ReDim语句可以改变

B.对象的所有属性既可以在属性窗口设置，又可以在

数组的数据类型

程序运行时用赋值语句设置

D.使用不带关键字Preserve的ReDim语句可以对■数

C.对象的事件一定就是由VB预先设置好的人工干预

组中的所有元素进行初始化

的动作

答案：C

D.对象的方法是对象响应某个事件后执行的一段程

序代码第9题题号:37

答案：A在列表框Listl中有若干列表项,可以删除选定列表

第4题题号:46项的语句是.

A.Listl.text二〃〃

表达式

B.Listl.List(Listl.Listindex)二〃〃

CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-

C.1istl.ClearB.只能使用Tab键将焦点移到该控件

D.Listl.RemoveitemListl.ListindexC.只能在程序中调用该控件的SetFocus方法

答案：DD.A、B、C三选项中涉及的方法均可使用

第10题题号:41答案：D

第14题题号:55

u女上、，，，e2K$mx+sin3(2x)一5

数学表达式一),-乙对应的VB以下Case语句中，能正确描述Y的绝对值大于6的是

Jlsinx-cosx2I

表达式是.A.CaseAbs(Y)>6

A.B.Case-6To6

(e*(2*n*x-5)*Log(x)+(Sin(2x))3)/Sqr(Sin(x)-CC.CaseNot(-6To6)

os(x-2))D.CaseIs<-6,Is>6

B.答案：D

(Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))3)/Sqr(S

第15题题号:45

in(x)-Cos(x*2))

以下关于变量作用域的叙述中，正确的是

C.

(Exp(2*兀*x-5)*Ln(x)+(Sin(2*x))*3)/Sqr(Sin(x)-

A.窗体中凡用Private声明的变量只能在某个指定

Cos(x2))

的过程中使用

D.

B.模块级变量只能用Dim语句声明

6(2*3.14159*x-5)*Ln(x)+(Sin(2*x))3)/Sqr(Sing

C.凡是在窗体模块或标准模块的通用声明段用

(x)-Cos(x-2))

Public语句声明的变量都是全局变量

答案：B

D.当不同作用域的同名变量发生冲突时，优先访问局

第11题题号:14限性小的变量

以下有关数组参数的说明中，正确的是一答案：C

A.在过程中也可用Dim语句对形参数组进行说明第16题题号:16

B.动态数组作为实参时，可用ReDim语句在过程中改

以下关于数值常量的说法中，错误的是—

变对应形参数组的维界

A.八进制数的表示方法是在数字前面加&0

C.调用过程时，数组名不能作为实参

B.十六进制数的表示方法是在数字前面加&H

D.数组可以按地址传递也可以按植传递

C.在浮点运算中使用D来分隔尾数和指数时,系统将

答案：B

把该数值作为单精度型数处理

第12题题号:43D.32768是合法的数值常量

下列有关过程的说法中,错误的是.答案：C

A.在Sub或Function过程内部不能再定义其它Sub第17题题号:27

或Function过程

B.对于使用ByRef说明的形参,在过程调用时形参和x*3Q(\0

数学表达式-~对应的VB表达式是

实参只能按传址方式结合6+y

C.递归过程既可以是递归Function过程，也可以是

递归Sub过程

A.Abs(e*x+Sin(30)3)/Sqr(x+y))

D.可以像调用Sub过程--样使用Call语句调用

B.Abs(Exp(x)+Sin(30)3)/(Sqr(x+y))

Function过程

C.Abs(e*x+Sin(30*3.14159/180)*3)/(Sqr(x+y))

答案：B

D.

第13题题号:49Abs(Exp(x)+Sin(30*3.14159/180)*3)/Sqr(x+y))

要将焦点设置在某个控件匕以卜泗个选项中正确的答案：D

是.

A.只能使用鼠标直接点击控件

第18题题号:29答案：D

下面的4个表达式中,有关个能够对Single第24题题号:54

类型变量x(正数)的第3位小数正确地进行四舍五入下列有关控件数组的说法中,错误的是.

计算.A.控件数组由组具有相同名称和相同类型的控件

Format(x,"00")组成，不同类型的控件无法组成控件数组

Int(100*(x+0.005))/100B.控件数组中的所有控件不得具有各自不同的属性

CInt(100*(x+0.005)/100设置值

Fix(100*(x+0.005))/100C.控件数组中的所有控件共享同•个事件过程

A.1个B.2个C.3个D.4个D.控件数组中每个元素的下标由控件的Index属性

答案：c指定

第19题题号:26答案：B

执行以下语句时,会出现错误提示的是.第25题题号:7

A.Print"2b3”+12.5B.Print"12.5"+12以下对数组参数的说明中，错误的是.

C.Print"12.5"&12.5D.Print"2e3”+12A.在过程中可以用Dim语句对形参数组进行声明

答案：AB.形参数组只能按地址传递

第20题题号:34C.实参为动态数组时，可用ReDim语句改变对应形参

数组的维界

以下Case语句含有错误的是.

D.只需把要传递的数组名作为实参，即可调用过程

A.Case0To10B.CaseIs>10

答案：A

C.CaseIs>10AndIs<50D.Case

3,5,Is>10第26题题号:6

答案：c要向文件datal.txt添加数据，正确的文件打开命令

第21题题号:1是.

A.Openz，datal.txt〃ForOutputAs#1

下列语句中，正确的是—

B.0pen，/datal.txt，/ForInputAs#1

A.Textl.SetFocusB.Forml.ClearC.

C.Open^datal.txt^ForAppendAs#5

Label1.SetFocusD.Listl.Cis

D.0pen/zdatal.txt〃ForWriteAs#5

答案：A

答案：c

第22题题号:9

第27题题号:31

下列选项中,所包含的所有表达式能够将两位整数X

下面有关数组处理的叙述中，正确的是.

的个位数与十位数对调(如将78转换为87)的是

A.在过程中使用ReDim语句可以改变动态数组数据

的类型

@Val(Right(X,l)&Left(X,1))

B.在过程中，可以使用Dim、Private和Static语

②Val(Right(Str(X),l)&Left(Str(X),1))

句来定义数组

@Val(Right(CStr(X),1)&Left(CStr(X),1))

C.用ReDim语句重新定义动态数组时,可以改变数组

@Val(Mid(X,2,l)+Mid(X,1,1))

的大小，但不能改变数组的维数

A.①②B.②③C.②④D.

D.不可以用Public语句在窗体模块的通用处说明一

①③④

个全局数组

答案：D

答案：D

第23题题号:15

第28题题号:35

以卜关于子过程或函数的定义中，正确的是

下面的表达式中,运算结果为True的是.

A.Subfl(nAsString*1)

A.”abcrd"<="ABCRD”

B.Subfl(nAsInteger)AsInteger

B.Int(134.69)<=CInt(134.69)

C.Functionfl(flAsInteger)AsInteger

C.3>2>1

I).Functionfl(ByVainAsInteger)

D.Mid("Visual”,1,4)=Right("lausiV”,4)A.文件($F)B.文件(&F)C.文件件F)

答案：BD.文件(海)

第29题题号:36答案：B

设计界面时，要使•个文本框具有水平和垂直滚动条，第34题题号:50

应先将其属性置为True,再将ScrollBar属在下列属性中，属于CommandButton控件、ListBox控

性设置为3.件共有的是.

A.MultiLineB.AutoSizeC.AlignmentA.Caption、TextB.Visible>FontC.

D.RightToLeftCaption、VisibleD.List>Visible

答案:A答案：B

第30题题号:23第35题题号:22

下面有关数组的说法中，正确的是—下列能够正确表示条件“XWY〈Z”的VB逻辑表达式是

A.数组的维下界不可以是负数

B.模块通用声明处有OptionBase1,则模块中数组A.XWY<ZB.X<=YAndY<ZC.

定义语句DimA(0To5)会与之冲突XWYORY<ZD.X〈=Y〈Z

C.模块通用声明处有OptionBase1,模块中有Dim答案：B

A(0To5),则A数组笫一维维下界为0第36题题号:33

D.模块通用声明处有OptionBase1,模块中有

以下关于Function过程的说法中，错误的是

DimA(0To5),则A数组第一维维下界为1

答案：C

A.Function过程名可以有一个或多个返回值

第31题题号:53B.在Function过程内部不得再定义Function过程

下面有关数组的叙述中，不正确的是.C.Function过程中可以包含多个ExitFunction语

①在过程中用ReDim语句定义的动态数组，其下标的句

上下界可以是变量D.可以像调用Sub过程一样调用Function过程

②数组作为形式参数时，传递的是每个数组元素的值答案：A

③在窗体模块的通用声明处可以用Public说明一第37题题号:52

个全局数组

下面的关系表达式中，运算结果为True的是.

④数组定义语句中可以用负数或小数来指定某一维

A.CInt(1.5)=Int(1.5)B.

的维下界或维上界的值

Fix(1.5)=Int(1.5)

A.②③B.①③④C.①②③④

C.Fix(-1.5)=CInt(-1.5)D.

D.③④

Fix(-1.5)=Int(-1.5)

答案：A

答案：B

第32题题号:11

第38题题号:21

下列关于对象SetFocus与GotFocus的描述中，正确的

已知X<Y,A>B,则下列表达式中，结果为True的是

是_____

A.SetFocus是事件,GotFocus是方法B.

A.Sgn(X-Y)+Sgn(A-B)=-lB.

Setfocus和Gotfocus都是事件

Sgn(X-Y)+Sgn(A-B)=-2

C.Setfocus和GotFocus都是方法D.

C.Sgn(Y-X)+Sgn(A-B)=2D.

SetFocus是方法,GotFocus是事件

Sgn(Y-X)+Sgn(A-B)=0

答案：D

答案：c

第33题题号:2

第39题题号:38

创建一个名为，，文件，，的菜单项,欲使其可用Alt+F方

执行语句时,会出现出错提示信息.

式访问，则在菜单编辑器的标题文本框中应输入

A.Print5+7=14B.Print

16384*2

C.Print32768*2D.Print"14”+32D.Abe_10

答案：B答案：D

第40题题号:51第45题题号:10

下列______是正确的VB常量.

sin300+Jlogx+y

数学表达式-------------------对应的VisualA.D-6B.E-6C.5DD.5E-6

x+y

27r+e答案：D

Basic表达式是.第46题题号:56

A.

若在模块中用PrivateFunctionFun(AasSingle,B

Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Ex

asInteger)AsInteger定义了函数Fun.调用函数

P(x+y)

Fun的过程中定义了I、J和K三个Integer型变量，

B.

则下列语句中不能正确调用函数Fun的语句是

(Sin(30*北/180)+Sqr(Ln(x)+y))/(2*n+Exp(x+y))

C.

A.Fun3.14,JB.CallFund,365)

Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e

C.Fun(I),(J)D.K=Fun("24","35")

"(x+y))

答案：B

D.

(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159第47题题号:57

+Exp(x+y))若需要在同•窗体内安排两组相互独立的单选按钮

答案：D(OptionButton),可使用控件做容器将它们分

第41题题号:48开.

①TextBox②PictureBox③Image

在一个多窗体程序中,可以仅将窗体Form2从内存中

④Frame

卸载的语句是________.

A.①或②B.②或③C.②或④

A.Form2.UnloadB.UnloadForm2

D.③或④

C.Form2.EndD.Form2.Hide

答案：c

答案：B

第48题题号:58

第42题题号:12

以下关于文件的叙述中，错误的是。

Print方法可在上输出数据.

A.用Output模式打开一个顺序文件,即使不对它进

①窗体②文本框③图片框④标签⑤列

行写操作，原来的内容也被清除

表框⑥立即窗口

B.可以用Print#语句或Write#语句将数据写到顺

A.①@⑥B.②③⑤C.①②⑤

序文件中

D.③④⑥

C.若以Output、Append、Random,Binary方式打开

答案：A

一个不存在的文件，系统会出错

第43题题号:47D.顺序文件或随机文件都可以用二进制访问模式打

若要使逻辑表达式x>yXory<z结果为True,则x、y、开

z的取值应为下列选项中的.答案：C

A.x=3、y=3、z=4B.x=2、y=l、第49题题号:24

z=2

窗体上有若干命令按钮和一个文本框,程序运行时焦

C.x=l>y=3^z=2D.x=2、y=2、

点置于文本框中，为了在按下回车键时执行某个命令

z=2

按钮的Click事件过程，需要将该按钮的属

答案：A

性设置为True.

第44题题号:5A.EnabledB.DefaultC.Cancel

下列____________是合法的变量名.D.Visible

A.absB.-alC.cdcd

答案：B第2题题号:18

第50题题号:13执行下面程序，单击Commandl,则窗体上显示的第一

r5—cos29°行是—【1】,第三行是―[2]—,最后

数学表达式；二二对应的VB表达式是一行是—[3]—。

+lny)+5OptionExplicit

PrivateSubCommand1—Click()

A.(x-5-Cos(29))/Sqr(e^x+In(y))+5DimxAsInteger,yAsInteger

B.(x-5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)x=12:y=0

C.DoWhilex>0

(x'5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+IfxMod4=0Then

5)y=y+x

D.Else

(x5-Cos(29*3.14159/180))/(Sqr(ex+Log(y))+5y=y-x

答案：cEndIf

二、填空共20题x=x-3

Printx,y

第1题题号:28Loop

运行下列程序，单击Commandl,在窗体上显示的第一EndSub

行内容是—[1],第二行的内容是[2]答案：

第三行的内容是—[3]=====(答案1)=====

OptionExplicit912

PrivateSubCommandl_Click()======(答案2)====

DimsAsString3-3

s="Basic”======(答案3)======

Cal1trans(s)0-6

EndSub第3题题号:27

PrivateSubtrans(sAsString)

执行下面的程序，单击Commandl,窗体上显示的第一

DimjAsInteger,tAsString

行是——第二行是—―【2】_

DimkAsInteger

第四行是[3]。

k=3

OptionExplicit

Do

PrivateSubCommandl_Click()

j=InStr(s,"a〃)

DimaAsInteger,bAsInteger

t=LCase(Right(s,j))

a=l:b=l

s=Right(t,Len(s)-k)&Left(s,Len(t))

Callsubl(a,b)

k=k-l

Printa,b

Prints

EndSub

LoopUntilk=0

PrivateSubsubl(aAsInteger,bAsInteger)

EndSub

a=a+b:b=b+a

答案：

Printa,b

===(答案1)==—=

Ifa>10Then

icBa

a=a+b

====(答案2)====

b=b+a

baicBa

Else

====(答案3)======

Callsubl(a,b)

baba

EndIf

EndSubFori=k+lTon

答案：A(i)=i*n+1

=====(答案1)======Nexti

23Fori=lTon

======(答案2)=======PrintA(i);

58Nexti

=====(答案3)====Print

3455EndSub

第4题题号:26答案：

=======(答案1)======

运行下面的程序，单击Command1,在窗体上显示的变

6

量a的值为—【1】,变量b的值为—[2]

====(答案2)===

变量c的值为—[3]o

5

OptionExplicit

=====(答案3)=====

PrivateSubCommandl_Click()

17

DimaAsInteger,bAsInteger,cAsInteger

a=5:b=10:c=15第6题题号:32

Printfun(a,b,c)+fun(a,b,c)运行下面程序，单击Commandl,在窗体上显示的变量

Printa,b,cA的值为—【1】一,变量B的值为—[2]

EndSubOptionExplicit

PrivateFunctionfun(xAsInteger,yAsInteger,DimaAsInteger

zAsInteger)AsIntegerPrivateSubCommandl_Click()

z二xDimbAsInteger

x=x+yb=3

y=y+za=4

fun=x+yb=fun(fun(a,b+2),a)+b

EndFunctionPrinta,b

答案：EndSub

====(答案1)======PrivateFunctionfun(nAsInteger,kAsInteger)

30n=n+a

====(答案2)====k=n-k

30fun=n+k+a

====(答案3)======EndFunction

15答案：

第5题题号：16====(答案1)===二

19

执行下面的程序，连续三次单击命令按钮Commandl

====(答案2)=====

之后，A数组共有【11个元素;数组元素A(2)