可视化程序设计试题
- 格式:doc
- 大小:236.50 KB
- 文档页数:6
《可视化程序设计》试卷三
班级______________ 姓名_____________ 学号__________ 得分__________
一、选择题(每题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,表结构
序号 字段名 含义 类型 宽度 小数 索引 引用字段/显示字段
1 TB0301 班级编码 TEXT 10 K
2 TB0302 班级名称 TEXT 20
3 TB0303 入学年份 TEXT 4
4 TB0304 专业编码 TEXT 10 TB0401/TB0402
5 TB0305 学制 TEXT 1
6 TB0306 班级数 INTEGER 3 0
7 TB0307 班主任 TEXT 10
8 TB0308 毕业标志 TEXT 1 TC0401/TC0402
9 TB0309 系部编码 TEXT 10 TB0601/TB0602
系部编码表TB06,表结构
序号 字段名 含义 类型 宽度 小数
1 TB0601 系部编码 CHAR 10
2 TB0602 系部名称 CHAR 20
3 TB0603 教学管理用户 CHAR 10
4 TB0604 系主任 CHAR 10
学生档案表xa01,表结构
序号 字段名 含义 类型 宽度 小数 索引 引用字段/显示字段
1 XA0101 学生编码 TEXT 10 K
2 XA0102 学生学号 TEXT 10
3 XA0103 班内序号 TEXT 2
4 XA0104 姓名 TEXT 8
5 XA0105 入学年月 TEXT 7
6 XA0106 性别 TEXT 1 GC0101/GC0102
1表示男,2表示女
7 XA0107 出生日期 TEXT 10
8 XA0108 民族 TEXT 2 GC0301/GC0302
9 XA0109 籍贯 TEXT 6 GC0201/GC0202
10 XA0110 政治面貌 TEXT 2 GC0401/GC0402 11 XA0111 健康状况 TEXT 10
12 XA0112 特长 TEXT 40
13 XA0113 身份证号 TEXT 20
14 XA0114 现所在班级 TEXT 10 TB0301/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
_________________________ ‘关闭