《可视化程序设计》试题

1、可视化程序设计试卷三班级_ 姓名_ 学号_ 得分_一、选择题（每题2分，共40分）1以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是（ ）AForm1.Name=VisualBasic窗体 BForm1.Title=VisualBasic窗体CForm1.Caption=VisualBasic窗体DForm1.Text=VisualBasic窗体”2每当窗体失去焦点时会触发的事件是（ ） AActiveBLoad CLostFocusDGetFocus3以下关于多窗体的叙述中，错误的是（ ）A 对于多重窗体程序, 需要单独保存每个窗体B 在多重窗体程序中,各窗体的菜单是

2、彼此独立的C 在多重窗体程序中,可以根据需要指定启动窗体D 用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体4下列可作为Visual Basic变量名的是（ ）A）A#AB）4AC）?xyD) constA5执行如下两条语句，窗体上显示的是（ ）a=.8596Print Format(a,00,00.00)A0,009.86 B9.86 C9.85 D0,009.866一只红色的篮球被投进篮，则红色、篮球、投、进篮分别是（ ）A属性、对象、方法、事件 B属性、对象、事件、方法C对象、属性、方法、事件 D对象、属性、事件、方法7 控件的( )确定当一个事件发生时执行的代码。A函数 B通用过

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

4、nuItem. Enabled=False BMenuItem. Enabled=TrueCMenuItem. Visible=True D Menultem. Visible=False12表示滚动条控件取值范围最大值的属性是（ ）A Max B LargeChangeC ValueD Max-Min13确定一个控件在窗体上的位置的属性是（ ）AWidth和HeightBWidth或HeightC Top和LeftDTop或Left 14以下关系表达式中，其值为False的是（ ）AABCAbCBthetheyCVISUAL=UCase(Visual)DIntegerInt15若磁盘文件C:

5、Data1.dat不存在，下列打开文件语句中，会产生错误的是（ ）AOpen “C:Data1.dat” For Output As #1 BOpen “C:Data1.dat” For Input As #1COpen “C:Data1.dat” For Append As #1 DOpen “C:Data1.dat” For Binary As #116名为Sort的Sub子过程的形式参数为一数组，以下定义语句中正确的是（ ）APrivate Sub Sort（A（） As Integer）BPrivate Sub Sort（A（10） As Integer）CPrivate Sub So

6、rt（Byval A（） As Integer）DPrivate Sub Sort（A（，） As Integer）17在以下描述中正确的是（ ）A标准模块中的任何过程都可以在整个工程范围内被调用B在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C如果工程中包含Sub Main过程，则程序将首先执行该过程D如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体18.向一个TreeView树中为“机械系”添加一个子结点，正确的是( )ATreeView.nodes.add “机械系”,tvwchild,”qc”,”汽车10021”BTreeView.nodes

7、.add “机械系”,tvwlast,”qc”,”汽车10021”CTreeView.nodes.add tvwchild,”qc”,“机械系”，”汽车10021”DTreeView.nodes.add ”qc”,”汽车10021”，“机械系”,tvwchild19AVI动画类似于电影,由若干帧位图组成，Animation控件可以显示()的音频视频动画（AVI文件）。A无声 B有声 C无声和有声均可 D立体声20数据库文件与应用程序文件分开，它可以为（ ）应用程序所使用。A单个 B一个用户 C多个 D固定的二、填空题（每空1分，共15分）1DIM a (4,-3 to 1 ) as Strin

8、g 语句定义的数组元素有_个。2与数学表达式对应的Visual Basic表达式是_ 。3求表达式的运算结果：5/4*65 Mod 2的输出结果是_。4如果要时钟控制每1分钟发生一个Timer事件，则Interval属性应设置为_。5为了使窗体form1隐藏但不从内存中释放，应使用_语句。6通过数据控件Data1连接c:vbStudent.mdb数据库内的表class，产生动态集类型的记录集，则需要设置Connect为_，DatabaseName为_，RecordSource为_。7下列语句的输出结果_。Str=“WEAreFR*end”S=”For i= 1 to len(str)t= mi

9、d(str,i,1)If t=”a” and t=”z” then s=s & tendifnext iprint s8在VB中有三种文件访问类型：顺序、_和_。 9VB中参数传递有两种方式，传值和传地址，默认情况下是_。10根据下图写出MsgBox函数的参数。MsgBox_, vbokonly+vbExclamation , _11已知一个报表datareport，程序执行时，用_语句可以预览报表。三、程序设计题。（40分） 已知学生档案数据库（xsda.mdb）中有以下表。学生班级编码表TB03，表结构序号字段名含义类型宽度小数索引引用字段/显示字段1TB0301 班级编码TEXT10K2

10、TB0302 班级名称TEXT203TB0303 入学年份TEXT44TB0304 专业编码TEXT10TB0401/TB04025TB0305 学制TEXT16TB0306班级数INTEGER307TB0307 班主任TEXT108TB0308 毕业标志TEXT1TC0401/TC04029TB0309 系部编码TEXT10TB0601/TB0602系部编码表TB06，表结构序号字段名含义类型宽度小数1TB0601 系部编码CHAR102TB0602 系部名称CHAR203TB0603教学管理用户CHAR104TB0604系主任CHAR10 学生档案表xa01，表结构序号字段名含义类型宽度小

11、数索引引用字段/显示字段1XA0101 学生编码TEXT10K2XA0102学生学号TEXT103XA0103 班内序号TEXT24XA0104 姓名TEXT85XA0105入学年月TEXT76XA0106 性别TEXT1GC0101/GC01021表示男,2表示女7XA0107出生日期TEXT108XA0108 民族TEXT2GC0301/GC03029XA0109 籍贯TEXT6GC0201/GC020210XA0110 政治面貌TEXT2GC0401/GC040211XA0111 健康状况TEXT1012XA0112特长TEXT4013XA0113身份证号TEXT2014XA0114现所

12、在班级TEXT10TB0301/TB03021 SQL语句（10分）（1）查询tb03表，显示2001年入学的班级信息。（2）统计全校男生人数。提示：性别为1表示男生。（3）显示机械系的所有班级信息。（4）显示2000年入学的全校所有姓王的学生的学生学号、姓名、班级名称。（5）将系部编码表中，信管系更新为计算机系。2 设计题(30分)(1) 如图所示系部编码维护程序。可以用第一个、下一个等浏览表中数据，亦可用添加、删除等修改表中数据。完善以下程序。( 12分 )窗体上有data1数据控件；命令按钮控件数组cmd1，数组中有5个按钮；工具栏toobar1，工具栏上有5个按钮；文本框数组txtxb

13、。设置data1的属性，使它与数据库xsda.mdb连接，数据源为tb06（系部编码表）设置文本框的数据源属性，分别与tb06表中tb0601、tb0602、tb0603、tb0604字段绑定。实现添加、删除等操作Private Sub Cmd1_Click(Index As Integer)Select Case _ Case 0 Data1.Recordset.AddNew 添加 Case 1 _ 删除 Data1.Recordset.MoveNext Case 2 _ 刷新 Case 3 Data1.UpdateRecord 更新 Data1.Recordset.Bookmark = D

14、ata1.Recordset.LastModified Case 4 _ 关闭End SelectEnd Sub实现第一个、下一个等操作Private Sub Toolbar1_ButtonClick( ByVal Button As MSComctlLib.Button)Select Case Button.Key Case first 第一个 _ Case prev 前一个 Data1.Recordset. MovePrevious Case next 下一个 Data1.Recordset.MoveNext Case last _ 最后一个 End SelectEnd Sub（2）如图所

15、示学生档案查询程序。当用户选择系部名称、班级名称等时，查询需要的数据，并在表格显示查询结果，在状态栏上显示此时的总人数，当用户单击表格中某一行时，将当前信息在文本框中显示。(18分)实现步骤：1 窗体上有表格mshfgrid，文本框数组txtxa01，状态栏statusbar1，工具栏toolbar12 在窗体的load事件中定义公共变量。Private Sub Form_Load ( )Public con As New ADODB.Connection 定义全局变量Public rs As New ADODB.Recordsetcon._ = Provider=Microsoft.Jet.

16、OLEDB.4.0;_Data Source=e:vbdataxsda.mdb;Persist Security Info=Falsecon.CommandTimeout = 30 创建到数据库xsda的连接 con.Open 打开到数据源的连接打开记录集rs.Open select * from xa01 , _，adOpenKeyset, adLockBatchOptimisticSet MSHFgrid._ = rs 设置表格数据源MSHFgrid.Refresh 在状态栏面板上显示当前学生人数StatusBar1.Panels(2).Text = _在状态栏面板上显示当前时间 Stat

17、usBar1.Panels(3).Text = _ End Sub3. 在窗体的unload事件中关闭与数据库的连接，关闭与数据源的连接Private Sub Form_Unload(Cancel As Integer) _ Rs.closeEnd Sub4代码中有如下一段程序，作用是_。 Dim sum1 as integer, sum2 as integer Sum1=0 ：sum2=0 Do While Not rs.Recordset.EOF If rs.Recordset.Fields(“xa0106”).Value = 1 Then sum1 = sum1 + 1 If rs.Recordset.Fields(XA0106).Value