可视化程序设计试题

《可视化程序设计》试卷三
班级______________ 姓名_____________ 学号__________ 得分__________
一、选择题（每题2分，共40分）
1．以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（）A．="VisualBasic窗体" B．="VisualBasic窗体"
C．="VisualBasic窗体"?D．="VisualBasic窗体”
2．每当窗体失去焦点时会触发的事件是（? ）
A．Active?????B．Load?????? C．LostFocus??????D．GetFocus
3．以下关于多窗体的叙述中，错误的是（）
A．对于多重窗体程序, 需要单独保存每个窗体
B．在多重窗体程序中,各窗体的菜单是彼此独立的
C．在多重窗体程序中,可以根据需要指定启动窗体
D．用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
4．下列可作为Visual Basic变量名的是（）
A）A#A B）4A C）xy D) constA
5．执行如下两条语句，窗体上显示的是（）
a=.8596
Print Format(a,"00,")
A．0, B． C． D．0,
6．一只红色的篮球被投进篮，则红色、篮球、投、进篮分别是（）
A．属性、对象、方法、事件 B．属性、对象、事件、方法
C．对象、属性、方法、事件 D．对象、属性、事件、方法
7．控件的( )确定当一个事件发生时执行的代码。

A．函数 B．通用过程 C．子程序 D．事件过程
8．引用列表框(list1)最后一个数据项应使用（）
A． B．
C．(listcount) D．(listcount-1)
9．用菜单编辑器设计菜单时,必须输入的项有( )
A．快捷键 B．标题 C索引 D．名称
10.建立一个新的标准EXE工程后，默认情况下，不在工具箱中出现的控件是（）
A．单选按钮 B．图片框 C．通用对话框 D．文本框
11．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。

A) MenuItem. Enabled=False B．MenuItem. Enabled=True
C．MenuItem. Visible=True D． Menultem. Visible=False
12．表示滚动条控件取值范围最大值的属性是（）
A． Max B． LargeChange C． Value D． Max-Min
13．确定一个控件在窗体上的位置的属性是（）
A．Width和Height B．Width或Height
C． Top和Left D．Top或Left
14．以下关系表达式中，其值为False的是（）
A ．"ABC">"AbC"
B ．"the"<>"they"
C ．"VISUAL"=UCase("Visual")
D ．"Integer">"Int"
15．若磁盘文件C:\不存在，下列打开文件语句中，会产生错误的是（ ） A ．Open “C:\” For Output As #1 B ．Open “C:\” For Input As #1 C ．Open “C:\” For Append As #1 D ．Open “C:\” For Binary As #1
16．名为Sort 的Sub 子过程的形式参数为一数组，以下定义语句中正确的是（ ）
A ．Private Sub Sort （A （） As Integer ）
B ．Private Sub Sort （A （10） As Integer ）
C ．Private Sub Sort （Byval A （） As Integer ）
D ．Private Sub Sort （A （，） As Integer ） 17．在以下描述中正确的是（ ）
A ．标准模块中的任何过程都可以在整个工程范围内被调用
B ．在一个窗体模块中可以调用在其他窗体中被定义为Public 的通用过程
C ．如果工程中包含Sub Main 过程，则程序将首先执行该过程
D ．如果工程中不包含Sub Main 过程，则程序一定首先执行第一个建立的窗体 18.向一个TreeView 树中为“机械系”添加一个子结点，正确的是( ) A ． “机械系”,tvwchild,”qc ”,”汽车10021” B ． “机械系”,tvwlast,”qc ”,”汽车10021” C ． tvwchild,”qc ”,“机械系”，”汽车10021” D ． ”qc ”,”汽车10021”，“机械系”,tvwchild 19．AVI 动画类似于电影,由若干帧位图组成，Animation 控件可以显示( )的音频视频动画（AVI 文件）。

A ．无声
B ．有声
C ．无声和有声均可
D ．立体声
20．数据库文件与应用程序文件分开，它可以为（ ）应用程序所使用。

A ．单个
B ．一个用户
C ．多个
D ．固定的 二、填空题（每空1分，共15分）
1．DIM a (4,-3 to 1 ) as String 语句定义的数组元素有___________个。

2．与数学表达式32
|y |-+x 对应的Visual Basic 表达式是_____________ 。

3．求表达式的运算结果：5/4*6\5 Mod 2的输出结果是___________________。

4．如果要时钟控制每1分钟发生一个Timer 事件，则Interval 属性应设置为________。

5．为了使窗体form1隐藏但不从内存中释放，应使用________________语句。

6．通过数据控件Data1连接c:\vb\数据库内的表class ，产生动态集类型的记录集，则需要设置Connect 为_______________，DatabaseName 为______________，RecordSource 为___________。

7．下列语句的输出结果_______________________。

Str=“WEAreFR*end ” S=””
For i= 1 to len(str) t= mid(str,i,1)
If t>=”a ” and t<=”z ” then s=s & t endif next i print s
8．在VB中有三种文件访问类型：顺序、___________和____________。

9．VB中参数传递有两种方式，传值和传地址，默认情况下是________________。

10．根据下图写出MsgBox函数的参数。

MsgBox ?__________________, vbokonly+vbExclamation , ____________
11．已知一个报表datareport，程序执行时，用______________语句可以预览报表。

三、程序设计题。

（40分）
已知学生档案数据库（）中有以下表。

学生班级编码表TB03，表结构
序号字段名含义类型宽度小数索引引用字段/显示字段1TB0301 班级编码TEXT10K
2TB0302 班级名称TEXT20
3TB0303 入学年份TEXT4
4TB0304 专业编码TEXT10TB0401/TB0402 5TB0305 学制TEXT1
6TB0306班级数INTEGER30
7TB0307 班主任TEXT10
8TB0308 毕业标志TEXT1TC0401/TC0402 9TB0309 系部编码TEXT10TB0601/TB0602
系部编码表TB06，表结构
序号字段名含义类型宽度小数1TB0601 系部编码CHAR10
2TB0602 系部名称CHAR20
3TB0603教学管理用户CHAR10
4TB0604系主任CHAR10
序号字段名含义类型宽度小数索引引用字段/显示字段1XA0101 学生编码TEXT10K
2XA0102学生学号TEXT10
3XA0103 班内序号TEXT2
4XA0104 姓名TEXT8
5XA0105入学年月TEXT7
6XA0106 性别TEXT1GC0101/GC0102
1表示男,2表示女7XA0107出生日期TEXT10
8XA0108 民族TEXT2GC0301/GC0302
9XA0109 籍贯TEXT6GC0201/GC0202
10XA0110 政治面貌TEXT2GC0401/GC0402
11XA0111 健康状况TEXT10
12XA0112特长TEXT40
13XA0113身份证号TEXT20
14XA0114现所在班级TEXT10TB0301/TB0302 1．SQL语句（10分）
（1）查询tb03表，显示2001年入学的班级信息。

（2）统计全校男生人数。

提示：性别为1表示男生。

（3）显示机械系的所有班级信息。

（4）显示2000年入学的全校所有姓王的学生的学生学号、姓名、班级名称。

（5）将系部编码表中，信管系更新为计算机系。

2．设计题(30分)
(1)如图所示系部编码维护程序。

可以用第一个、下一个等浏览表中数据，亦可用添加、删
除等修改表中数据。

完善以下程序。

( 12分 )
①窗体上有data1数据控件；命令按钮控件数组
cmd1，数组中有5个按钮；工具栏toobar1，工具栏
上有5个按钮；文本框数组txtxb。

②设置data1的属性，使它与数据库连接，数据源为
tb06（系部编码表）
③设置文本框的数据源属性，分别与tb06表中
tb0601、tb0602、tb0603、tb0604字段绑定。

④实现添加、删除等操作
Private Sub Cmd1_Click(Index As Integer)
Select Case _______________
Case 0
‘添加
Case 1
_______________________ ‘删除
Case 2
_________________________ ‘刷新
Case 3
‘更新
= Case 4
_________________________ ‘关闭
End Select
End Sub
⑤实现第一个、下一个等操作
Private Sub Toolbar1_ButtonClick( ByVal Button As
Select Case
Case "first" ‘第一个
_________________________
Case "prev" ‘前一个
. MovePrevious
Case "next" ‘下一个
Case "last"
________________________ ‘最后一个
End Select
End Sub
（2）如图所示学生档案查询程序。

当用户选择系部名称、班级名称等时，查询需要的数据，并在表格显示查询结果，在状态栏上显示此时的总人数，当用户单击表格中某一行时，将当前信息在文本框中显示。

(18分)
实现步骤：
1．窗体上有表格mshfgrid，文本框数组txtxa01，状态栏statusbar1，工具栏toolbar1 2．在窗体的load事件中定义公共变量。

Private Sub Form_Load ( )
Public con As New '定义全局变量
Public rs As New
= "Provider= Source=e:\vb\data\;Persist Security Info=False"
= 30 ‘创建到数据库xsda的连接
'打开到数据源的连接
‘打开记录集
"select * from xa01 ", _______，adOpenKeyset, adLockBatchOptimistic Set = rs ‘设置表格数据源
‘在状态栏面板上显示当前学生人数
(2).Text = ______________________
‘在状态栏面板上显示当前时间
(3).Text = _________________________
End Sub
3. 在窗体的unload事件中关闭与数据库的连接，关闭与数据源的连接
Private Sub Form_Unload(Cancel As Integer)
_______________
End Sub
4．代码中有如下一段程序，作用是____________________________。

Dim sum1 as integer, sum2 as integer
Sum1=0 ：sum2=0
Do While Not If = "1" Then sum1 = sum1 + 1
If "XA0106").Value = "2" Then sum2 = sum2 + 1
Loop
5．为了能够方便用户选择系部名称，添加数据源控件adodc__xb，组合框datacombo_xb。

设置adodc_xb的属性，与数据库中的系部编码表tb06连接。

在窗体的load事件中，设置datacombo_xb的属性，使得下拉组合框时可以选择系部名称。

Private Sub Form_Load()
Set = _____________
= "tb0602"
End Sub。