word完整版青岛科技大学信息工程VB期末考试题库及答案推荐文档

试卷方案：201105 Visual Basic期末考试方案

一、单项选择_共50题(选：20题*1 '20分)

第1题

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

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

B. 若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件

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

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

第2题

/ 3"

数学表达式sin 27 、~X——的VB算术表达式为 __________ 二

|x y | -

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

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

C. Sin(27*3.14159/180)+Sqr(x+e A3)/Abs(x+y)

D. Sin( 27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)

第3题

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

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

B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置

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

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

第4题

表达式Clnt(4.5)+Cint(-4.51)+lnt(4.9)+lnt(-4.1)+Fix(-1.9)+0 Mod 2 的运算结果是 _.

A. 1

B. -1

C. - 2

D. - 3

第5题

下列关于菜单的说法中，错误的是____________ .

A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件

B. 菜单项不可以响应DblClick事件

C. VB6.0允许创建超过四级的子菜单

D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False 第6题

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

A. 使用了Preserve 子句的Redim语句，只允许改变数组最后一维的上界

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

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

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

第7题

设a=3,b=2,c=1,运行print a>b>c 的结果是_____________ .

A. True

B. False

C. 1

D.出错

以下说法不正确的是 _____________ .

A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数

B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界

C. 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D. 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化第9题

在列表框Listl中有若干列表项，可以删除选定列表项的语句是________________ .

A. List1.text=""

B. Listl .L ist(List1.ListI ndex)=""

C. Listl.Clear

D. Listl.Removeltem List1.ListI ndex

第10题

2x5] ■3(2 )

数学表达式e . ln x—sin—(2x)对应的VB表达式是sin x cos x2 |

A. (e A(2* n *x-5)*Log(x)+(Sin(2x))A3)/Sqr(Sin(x)-Cos(x A2))

B. (Exp(2*3.14159*x-5)*Log(x)+(Si n(2*x))A3)/Sqr(Si n(x)-Cos(xA2))

C. (Exp(2* n *x-5)*Ln(x)+(Sin(2*x))A3)/Sqr(Sin(x)-Cos(xA2))

D. eA(2*3.14159*x-5)*L n(x)+(Si n(2*x))A3)/Sqr(Si n(x)-Cos(xA2))

第11题

以下有关数组参数的说明中，正确的是_________

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

B. 动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界

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

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

第12题

下列有关过程的说法中，错误的是________________ .

A. 在Sub或Function 过程内部不能再定义其它Sub或Function 过程

B. 对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合

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

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

第13题

要将焦点设置在某个控件上，以下四个选项中正确的是 _________ .

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

B. 只能使用Tab键将焦点移到该控件

C. 只能在程序中调用该控件的SetFocus方法

D. A、B、C三选项中涉及的方法均可使用

第14题

以下Case语句中，能正确描述Y的绝对值大于6的是_________

A. Case Abs(Y)>6 C. Case Not(-6 To 6)

B. Case -6 To 6 D. Case Is<-6，

以下关于变量作用域的叙述中

，正确的是 _____________ .

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

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

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

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

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

第16题

以下关于数值常量的说法中

，错误的是 ______

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

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

&H

C. 在浮点运算中使用 D 来分隔尾数和指数时，系统将把该数值作为单精度型数处理

D. 32768是合法的数值常量

第17题

A. Abs(e A x+Sin(30f3)

/ Sqr(x+y))

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

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

D. Abs(Exp(x)+Sin(30*3.14159 / 180)人3) / Sqr(x+y))

第18题

个能够对Single 类型变量x （正数）的第3位小数正确地进行四舍五入计算

第23题

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

A. Sub f1(n As String*1 )

C. Fun ction f1(f1 As In teger)As In teger

数学表达式

x . 3

e sin 30

对应的VB 表达式是 _____________ F 面的4个表达式中，有关

Format(x, #.00 ) In t(100*(x+0.005))/100 A. 1个

B. 2个

C. 3个

D. 4个

第19题

执行以下语句时，会出现错误提示的是 _____________ . A. Prin t"2b3 " +12.5

B. Prin t"12.5"+ 12

第20题

以下Case 语句含有错误的是 ______________ . A. Case 0 To 10

B. Case Is>10

Cln t(100*(x+0.005)/100 Fix(100*(x+0.005))/100 C.Pri nt"12.5" & 12.5

D.Pri nt"2e3"+12

C. Case Is>10 And Is<50

D. Case 3,5,ls>10

第21题

下列语句中，正确的是 ___________ A. Textl.SetFocus

B. Forml.Clear

C. Labell.SetFocus

D. Listl.Cls

第22题

下列选项中，所包含的所有表达式能够将两位整数 x 的个位数与十位数对调 （如将78转换为87）的是

① V al(Right(X,1)&Left(X,1)) ③

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

A.

①② B.②③

② V al(Right(Str(X),1)&Left(Str(X),1)) ④ Val(Mid(X,2,1)+Mid(X,1,1)) D.①③④

B. Sub f1(n As In teger)As In teger D. Function f1(ByVal n As Integer)

下列有关控件数组的说法中 , 错误的是 _________ .

A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组

B. 控件数组中的所有控件不得具有各自不同的属性设置值

C. 控件数组中的所有控件共享同一个事件过程

D. 控件数组中每个元素的下标由控件的 Index 属性指定 第 25 题 以下对数组参数的说明中 , 错误的是 . A. 在过程中可以用 Dim 语句对形参数组进行声明 B. 形参数组只能按地址传递

C. 实参为动态数组时，可用 ReDim 语句改变对应形参数组的维界

D. 只需把要传递的数组名作为实参，即可调用过程 第 26 题 要向文件 datal.txt 添加数据 , 正确的文件打开命令是 . A. Open"datal.txt"For Output As #1 B. Open"datal.txt"For Input As #1 C. Open"datal.txt"For Append As #5

D. Open"datal.txt" For Write As #5 第 27 题 下面有关数组处理的叙述中，正确的是 . A. 在过程中使用 ReDim 语句可以改变动态数组数据的类型 B. 在过程中，可以使用 Dim 、 Private 和 Static 语句来定义数组

C. 用 ReDim 语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数

D. 不可以用 Public 语句在窗体模块的通用处说明一个全局数组 第 28 题 下面的表达式中 ,运算结果为 True 的是 . A. "abcrd" <="ABCRD" B. Int(134.69) <=CInt(134.69) C. 3>2>1

D. Mid("Visual",1,4)=Right("lausiV",4)

第 29 题

设计界面时 , 要使一个文本框具有水平和垂直滚动条 , 应先将其 _____________ 属性置为 True, 再将 ScrollBar 为 3.

A. MultiLine

B. AutoSize

C. Alignment

D. RightToLeft

第 30 题

面有关数组的说法中 , 正确的是 _____ ，则模块中数组定义语句 Dim A(0 To 5) 会与之冲突 ，模块中有 Dim A(0 To

5), 则 A 数组第一维维下界为 0 ，模块中有 DimA(0 To 5), 则 A 数组第一维维下界为 1

第 31 题 下面有关数组的叙述中 , 不正确的是 . ① 在过程中用 ReDim 语句定义的动态数组 , 其下标的上下界可以是变量 ② 数组作为形式参数时 , 传递的是每个数组元素的值 ③ 在窗体模块的通用声明处可以用 Public 说明一个全局数组

B. 模块通用声明处有 Option Base 1

C.

模块通用声明处有 Option Base 1

D. 模块通用声明处有 Option Base 1

属性设置

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

④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A.②③ B.①③④

C.①②③④

D.③④

第32题

下列关于对象 SetFocus 与GotFocus 的描述中，正确的是 ________ A. SetFocus 是事件,GotFocus 是方法 B. Setfocus 和 Gotfocus 都是事件 C. Setfocus 和 GotFocus 都是方法

D. SetFocus 是方法,GotFocus 是事件

第33题

创建一个名为“文件“的菜单项，欲使其可用Alt+F 方式访问，则在菜单编辑器的标题文本框中应输入 ___________________ A.文件（$F ）

B.文件（&F ）

C.文件併F ）

D.文件（％F ）

第34题

在下列属性中，属于CommandButton 控件、ListBox 控件共有的是 ___________ . A. Caption 、Text B. Visible 、Font

C. Caption 、Visible

D. List 、Visible

第35题

下列能够正确表示条件"X < Y

B. X<=Y And Y

C. X < Y OR Y

D. X<=Y

第36题

以下关于Function 过程的说法中，错误的是 ________________ A. Fun ction 过程名可以有一个或多个返回值 B. 在Function 过程内部不得再定义 Function 过程 C. Fu nction 过程中可以包含多个 Exit Fun ction 语句 D. 可以像调用Sub 过程一样调用

Function 过程

第37题

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

第39题

执行 __________ 语句时，会出现出错提示信息. A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2

D. Print "14"+32

第40题

sin 30 v'log x y

数学表达式 ---------------- ---- 对应的Visual Basic

表达式是 _______

2 e x y

A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)

B. (Sin(30* n /180)+Sqr(Ln(x)+y))/(2*

n +Exp(x+y))

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

D. (Si n(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

A. CIn t(1.5)=I nt(1.5) C. Fix(-1.5)=CI nt(-1.5)

第38题

已知XB,则下列表达式中 A. Sgn (X-Y)+Sg n(A-B)=-1 C. Sgn (Y-X)+Sg n(A-B)=2 B. Fix(1.5)=I nt(1.5) D. Fix(-1.5)=I nt(-1.5)

,结果为True 的是 ________

B. Sgn (X-Y)+Sg n(A-B)=-2

D. Sg n(Y-X)+Sg n(A-

第41题

在一个多窗体程序中 ,可以仅将窗体

Form2从内存中卸载的语句是

A. Form2.U nl oad

B. Unl oad Form2

C. Form2.E nd

D. Form2.Hide

第42题

Pri nt 方法可在 上输出数据.

①窗体 ②文本框

③图片框 ④标签

⑤列表框

⑥立即窗口 A.①③⑥

.②③⑤

C.①②⑤

D.③④⑥

第43题

若要使逻辑表达式 x>y Xor yvz 结果为True,则x 、y 、z 的取值应为下列选项中的 ________________ , A. x=3 、 y=3、 z=4 B. x =2、 y=1、z=2

C. x=1 、 y=3、

z=2

D . x=2、 y=2、z=2 第44 题

下列

是合法的变量名.

A. abs

B. - al

C .

cdc d

D. Abe_10

第45 题

下列

是正

确的VB 常量.

A. D-6

B. E-6

C .

5D

D. 5E-6

第46题

若在模块中用 Private Fu nction Fun(A as Si ngle,B as In teger) As In teger 的过程中定义了 I 、J 和K 三个Integer 型变量，则下列语句中不能正确调用函数 Fun 的语句是

第47题

若需要在同一窗体内安排两组相互独立的单选按钮

(OptionButton),

可使用 _______ 控件做容器将它们分开

④ Frame 第48题

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

A. 用Output 模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除

B. 可以用Print # 语句或 Write#

语句将数据写到顺序文件中

C. 若以Output 、Appe nd 、Ra ndom Bin ary 方式打开一个不存在的文件，系统会岀错

D. 顺序文件或随机文件都可以用二进制访问模式打开

第49题

窗体上有若干命令按钮和一个文本框 ,程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的

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

_________ 属性设置为 True.

A. (x A 5-Cos(29))/Sqr(e A x+I n(y))+5

B. (xA5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)

A.①或②

B.②或③

C. ②或④

D.③或④

A. En abled 第50题

B. Default

C. Cancel

D. Visible

数学表达式

x 5 cos 29 (e x ln y) 5

对应的VB 表达式是 _______

定义了函数Fun.调用函数Fun A. Fun 3.14,J B. Call Fun(1,365)

D. K=Fu n("24","35")

① TextBox

② PictureBox

③ Image

C. (xA5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5)

D. (x A5-Cos(29*3.14159/180))/(Sqr(e A x+Log(y))+5

二、填空_共20题(选：15空*2'=30分)——阅读理解：填写程序的输出结果

第1题

运行下列程序，单击Command1, 在窗体上显示的第一行内容是 _________ 【 1 】 _ , 第二行的内容是_______ 【2】__ ,第三行的内容是 _____ 【3】_____ 。

Option Explicit

Private Sub Command1_Click()

Dim s As String

s="Basic"

Call trans(s)

End Sub

Private Sub trans(s As String)

Dim j As Integer,t As String

Dim k As Integer

k=3

Do

j=InStr(s,"a")

t=LCase(Right(s,j))

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

k=k-1

Print s

Loop Until k=0

End Sub

第2题

执行下面程序，单击Command1则窗体上显示的第一行是_【1】_____ ，第三行是 ___ 【2】___ ，最后一行是【3】。

Option Explicit

Private Sub Comma nd1 —Click()

Dim x As Integer,y As Integer

x=12:y=0

Do While x> 0

If x Mod 4=0 Then

y=y+x

Else

y=y-x

End If

x=x-3

Print x,y

Loop

End Sub

第3题

执行下面的程序，单击Command1窗体上显示的第一行是 _______ 【1】_____ ，第二行是 ______ 【2】 __ ,第四行是_____ 【3】___ 。

Option Explicit

Private Sub Comma nd1_Click()

Dim a As In teger, b As In teger

a=1 : b=1

Call sub1(a, b)