大一VB编程期末考试试题题库.

试卷编号：9337

所属语言：Visual Basic

试卷方案：VB_考试

试卷总分：100分

共有题型：5种

一、填空共6题（共计18分）

第1题（3.0分）题号:286 难度:中第5章

拖动滚动条中的滚动框将会产生Scroll和【1】事件.

第2题（3.0分）题号:223 难度:中第3章

把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.

第3题（3.0分）题号:232 难度:中第3章

表达式93\7 MOD 2^3的值是【1】.

第4题（3.0分）题号:50 难度:中第2章

在VB 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】.

第5题（3.0分）题号:318 难度:中第6章

由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.

第6题（3.0分）题号:277 难度:中第5章

如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.

二、判断共12题（共计12分）

第1题（1.0分）题号:304 难度:中第5章

设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.

第2题（1.0分）题号:309 难度:中第5章

所有的对象都有caption 属性.

第3题（1.0分）题号:366 难度:中第8章函数过程(Function Procedure)用来完成特定的功能,但不返

回相应的结果.

第4题（1.0分）题号:262 难度:中第5章VB允许用户使用Type语句在窗体模块的通用声明中自己定义数

据类型.

第5题（1.0分）题号:322 难度:中第5章已知窗的fillcolor=rgb(255,0,0)红,forecolor=rgb(0,255,0)

绿,fillstyle=0(solid)语句circle(200,100),500,,,,2的输出

结果是红边绿心的长椭圆.

第6题（1.0分）题号:246 难度:中第5章ActiveX控件是扩展名为*.ocx的独立文件,使用时需用

"工程"/"部件"载入或移去.

第7题（1.0分）题号:369 难度:中第8章如果在过程调用时使用按值传递参数,则在被调过程中可以改

变实参的值.

第8题（1.0分）题号:293 难度:中第5章每个对象都有一系列预先定义好的对象事件,但要使对象能响

应具体的事件,则编写该对象相应的事件过程.

第9题（1.0分）题号:233 难度:中第3章全局变量用global或public关键字声明,且仅在通用声明处可

以定义.

第10题（1.0分）题号:260 难度:中第5章VB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.

答

第11题（1.0分）题号:265 难度:中第5章菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选

择并按回车键,以触发Click事件.

第12题（1.0分）题号:280 难度:中第5章方法是VB 对象可以响应的用户操作.

三、单选共10题（共计20分）

第1题（2.0分）题号:1771 难度:中第4章InputBox函数返回的函数值的类型是().

A:数值

B:字符串

C:数值或字符串

D:根据需要可以是任何类型数据

第2题（2.0分）题号:866 难度:中第6章由For k=35 to 0 step 3:next k循环语句控制的循环次数是(). A:0

B:12

C:-11

D:-10

第3题（2.0分）题号:2391 难度:中第3章语句PRINT"INT(-13.2)";INT(-13.2)的输出结果为().

A:INT(-13.2)=-13.2

B:INT(-13.2)=13.2

C:INT(-13.2)=-13

D:INT(-13.2)=-14

第4题（2.0分）题号:2408 难度:中第2章()对象不能作为控件的容器.

A:Form

B:PictureBox

C:Shape

D:Frame

第5题（2.0分）题号:867 难度:中第7章用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是(). A:6

B:7

C:8

D:9

第6题（2.0分）题号:3750 难度:中第5章货币型数据需()字节.

A:2

B:4

C:6

D:8

第7题（2.0分）题号:2288 难度:中第3章Line(100,100)-Step(400,400)将在窗体()画一直线.

A:(200,200)到(400,400)

B:(100,100)到(300,300)

C:(100,100)到(500,500)

D:(100,100)到(400,400)

第8题（2.0分）题号:853 难度:中第5章在一个语句行内写多条语句时,语句之间应该用()分隔.

A:逗号

B:分号

C:顿号

D:冒号

第9题（2.0分）题号:809 难度:中第5章要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必

须设置()属性为False.

A:Text

B:Enabled

C:Visible

D:Multiline

第10题（2.0分）题号:3450 难度:中第3章语句listl.removeitem 1 将删除list.listindext等于()的项目.. A:0

B:2

C:3

D:1

四、程序填空共2题（共计20分）

第1题（10.0分）题号:932 难度:中第1章

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'题目：程序功能如下：

' ①考生文件夹下in4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。

' 单击"读数据"按钮，可以将in4.dat文件内容读入到20行3列的二维数组a中，

' 并同时在Text1文本框内显示。

'②单击"统计"按钮，则对考生数学和语文的平均分在"优秀"、"通过"和"不通过"三个分数段的人数进行统计，

' 并将人数统计结果在控件数组Text2中相应位置显示。其中，平均分在85分以上(含85分)为"优秀"，

' 平均分在60 85分之间(含60分)为"通过"，平均分在60分以下为"不通过"。

'-------------------------------------------------------

Option Base 1

Dim a(20, 3) As Integer

Private Sub Command1_Click()

Open App.Path & "\in4.dat" For Input As #1

For i = 1 To 20

For j = 1 To 3

Input #1, a(i, j)

Text1 = Text1 + Str(a(i, j)) + Space(4)

Next j

Text1 = Text1 + Chr(13) + Chr(10)

Next i

Close #1

End Sub

Private Sub Command2_Click()

Dim x(3) As Integer

For i = 1 To 20

'**********SPACE**********

【?】 = (a(i, 2) + a(i, 3)) / 2

Select Case Avg

'**********SPACE**********

Case 【?】

x(1) = x(1) + 1

'**********SPACE**********

Case 【?】

x(2) = x(2) + 1

Case Is < 60

x(3) = x(3) + 1

End Select

Next i

For n = 1 To 3

'**********SPACE**********

Text2(【?】) = x(n)

Next n

End Sub

Private Sub Form_Load()

End Sub

第2题（10.0分）题号:38 难度:中第1章'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：下面的程序段，用于实现在一个nXm的矩阵中，找出值最

' 大的元素所在的行和列，并输出其值及行号和列号。

'------------------------------------------------------- Private Sub Form_Click()

Dim mat() As Integer

Dim n as integer, m As Integer

n = Val(InputBox("请输入矩阵的行数"))

m = Val(InputBox("请输入矩阵的列数"))

'**********SPACE**********

【?】

For i = 1 To n

For j = 1 To m

mat(i, j) = InputBox("请输入数组元素值")

mat(i, j) = Val(mat(i, j))

Next j

Next i

Print "所建立的矩阵为"

For i = 1 To n

For j = 1 To m

Print mat(i, j);

Next j

Print

Next i

Max = mat(1, 1)

For i = 1 To n

For j = 1 To m

'**********SPACE**********

If 【?】 Then

Max = mat(i, j)

col = j

'**********SPACE**********

【?】

End If

Next j

Next i

Print

Print "矩阵最大的元素的值为："; mat(row, col)

Print "它所在的行号为："; row; "列号为："; col

End Sub

五、VB窗体设计共2题（共计30分）

第1题（15.0分）题号:29 难度:中第1章------------------------------------------------

【窗体设计】

------------------------------------------------

题目：请按照题目要求设计指定的窗体。

建立如(图1)所示界面：请按所给窗体的样子设计

窗体（不要求控件的尺寸一样，运行时得到所给

窗体即可，有时需要简单的事件过程）。

------------------------------------------------

1、在窗体内添加2个框架(Frame1，Frame2)。

然后在框架(Frame1)中添加1个文本框(Text1)，

1个标签(Label1)，3个按钮(Command1，Command2，

Command3)。

在框架(Frame2)中添加2个列表框(List1，List2)，

2个标签(Label2，Label3)，2个按钮(Command4，

Command5)。

2、窗体设置：

设置窗体名称(Name)为“Form29”。

设置窗体标题(Caption)为“用户与组账号”。

3、框架设置：

设置第1个框架(Frame1)的标题(Caption)为“用户”。

设置第1个框架(Frame1)中的按钮(Command1)的标题(Caption)为“新建(&W)...”。

设置第1个框架(Frame1)中的按钮(Command2)的标题(Caption)为“删除(&E)”。

设置第1个框架(Frame1)中的按钮(Command3)的标题(Caption)为“清除密码(&L)”。

设置第1个框架(Frame1)中的文本框(Text1)的文本(Text)为“管理员”。

设置第1个框架(Frame1)中的标签(Label3)的标题(Caption)为“名称(&N):”

设置第2个框架(Frame2)的标题(Caption)为“组成员”。

在第2个框架(Frame2)中的列表框(List1)中输入文本“管理员组”，“用户组”。

在第2个框架(Frame2)中的列表框(List2)中输入文本“管理员组”，“用户组”。

设置第2个框架(Frame2)中的标签(Label2)的标题(Caption)为“可用的组(&V):”。

设置第2个框架(Frame2)中的标签(Label3)的标题(Caption)为“隶属于(&M):”。

设置第2个框架(Frame2)中的按钮(Command4)的标题(Caption)为“添加(&D)>>”。

设置第2个框架(Frame2)中的标签(Command5)的标题(Caption)为“<<移去(&R)”。

第2题（15.0分）题号:28 难度:中第1章

------------------------------------------------

【窗体设计】

------------------------------------------------

题目：请按照题目要求设计指定的窗体。

建立如(图1)所示界面：请按所给窗体的样子设计

窗体（不要求控件的尺寸一样，运行时得到所给

窗体即可，有时需要简单的事件过程）。

------------------------------------------------

1、在窗体内添加4个按钮(Command1，Command2，Command3，

Command4)，1个组合框(Combo1)，3个标签(Label1，Label2，

Label3)，2个框架(Frame1，Frame2)，1个复选框(Check4)。

并在框架(Frame1)中添加3个单选按钮(Option1，Option2，Option3)，

在框架(Frame2)中添加3个复选框(Check1，Check2，Check3)。

2、窗体设置：

设置窗体名称(Name)为“Form28”。

设置窗体标题(Caption)为“打印 - 工程1”。

3、标签设置：

设置第1个标签(Label1)的标题(Caption)为“打印机:”。

设置第2个标签(Label2)的标题(Caption)为“HP LaserJet 1000”。

设置第3个标签(Label3)的标题(Caption)为“打印质量(&Q):”。

4、组合框设置：

适当调整组合框(Combo1)的位置和大小。

5、复选框设置：

设置复选框(Check4)的标题(Caption)为“打印到文件(&L)”。

6、按钮设置：

设置第1个按钮(Command1)的标题(Caption)为“确定”，“Default”属性为真。

设置第2个按钮(Command2)的标题(Caption)为“取消”，“Cancel”属性为真。

设置第3个按钮(Command3)的标题(Caption)为“设置(&S)...”。

设置第4个按钮(Command4)的标题(Caption)为“帮助(&H)”。

7、框架设置：

设置第1个框架(Frame1)的标题(Caption)为“范围”。

设置第1个框架(Frame1)中的单选按钮(Option1)的标题(Caption)为“选定(&E)”。

设置第1个框架(Frame1)中的单选按钮(Option2)的标题(Caption)为“当前模块(&M)”。

设置第1个框架(Frame1)中的单选按钮(Option3)的标题(Caption)为“当前工程(&P)”。

设置第2个框架(Frame2)的标题(Caption)为“打印内容”。

设置第2个框架(Frame2)中的复选框(Check1)的标题(Caption)为“窗体图像(&F)”。

设置第2个框架(Frame2)中的复选框(Check2)的标题(Caption)为“代码(&C)”。

设置第2个框架(Frame2)中的复选框(Check3)的标题(Caption)为“窗体为文本(&T)”。