1、VB 机试模拟试卷 35 及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1在名称为 Form1的窗体上放置一个名称为 Drive1的 DriveListBox控件，一个名称为Dir1的 DirListBox 控件和一个名称为 File1的 FileListBox 控件。程序运行时，可以对系统中的文件进行浏览；当双击 File1中的文件名时，用 MsgBox显示文件名 (不显示路径名 )。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件 名为 Sjt1. frm，工程文件名为 sjt1.v
2、bp。 2在名称为 Form1的窗体上放置一个名为 Text1的文本框控件和一个名为 Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 sjt2. frm，工程文件名为 sjt2.vbp，如图 11所示。二、简单应用题（ 40分） 2 创建名称为 Form1的窗体，在窗体上画一个图片框。在图片框的右侧画一个垂直滚动条，其 Min属性为 100， Max属性为 2000， LargeChange属性为 120，SmallChange属性为 30。在图片
3、框中装入图片，图片框的宽度与图形宽度一致，高度任意，如图 4所示。编写一个事件过程，程序运行后，移动滚动条上的滚动块可以放大或缩小图片框。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 yJc2.vbp，窗体文件名为 ylc2.frm。VB 机试模拟试卷 35 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事 件过程。 文件系统控件有 3种：驱动器列表框 (DriveListBox)，目录列表框 (DirListBox)和文件列表框 (FileListBox)。 3个文件系统控件必须协调工作才能构成一个文件管理
4、系统，当用户在驱动器列表框中选择一个新的列表框或在当目录列表框 Path的属性改变都触发 Change事件，将三者 (利用本题中 3个对象的名称 )实现同步的代码为： File1.Path Dir1.Path， Dir1. Path Drive1.Drive。双击触发 DblClick事件弹出MsgBox显示文件名，其格式为： MsgBox提示 ,按钮 ,标题 。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 1。 表 1标题 属性 设置值 DriveListBox Name Drive1DirListBox Name Dir1FileListBox Name Fi
5、le1 第二步：编写程序代码。参考代码： Option Explicit Private Sub Dir1_Change() File1.PathDir1.Path End Sub Private Sub Drive1_Change() Dir1.PathDrive1.Drive End Sub Private Sub File1_dblclick() MsgBox File1.FileName End Sub Private Sub Form_Load() Dir1.PathDrive1.Drive File1.Path Dir1.Path End Sub 第三步：调试并运行程序。 第四步：
6、按题目要求存盘。 2 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 时钟控件作用是以一定的时间间隔激发计时器事件 (Timer)而执行相应的程序代码，其 Interval 属性决定时间间隔的长短，以毫秒为单位，所以要实现 每一秒文本框的时间改变只要使该属性设置为 1000即可，要使程序运行后取得当前时间可用 Time函数取得，程序用到的 Str函数将其中的内容转化为字符串。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 2。 表 2 标 题 属 性 设 置 值 Text Name Text1Timer NameInterval Timer11000 第二
7、步：编写程序代码。参考代码： Private Sub Form_Load() Text1.Text Str(Time) End Sub Private sub Timer1_Timer() Text1.Text Str(Time) End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择图片框控件，在窗体中拖动鼠标建立一个图片框，其名称为Picture1。在属性窗口中设置图片框属性，装入图片。
8、调整图片和图片框宽度保持一致。 (3)在工具箱中选择垂直滚动条控件，在图片框右侧创建垂直滚动条，在其属性窗口设置其 Min属性为 100， Max属性为 2000， LargeChange属性为 120，SmallChange属性为 30。双击按钮弹出代码窗口，编写事件 过程如下： Private Sub VScrolil_Change() Picturel.Height=VScrolll. Value End Sub (4)按 F5键运行程序。如图 4所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylc2.vbp，窗体文件命名为 ylc2.frm。 【试题解析】 (1)文本框控件操作是上机考试基本操作中最常见的考点。 Visual Basic中可以通过文本框的属性窗口很方便地修改其各项属性，常考的属性包括是否可见、文本输出等 。其中文本输出除了通过属性窗口中修改，还可以通过编写代码修改。 (2)图片的装入可以通过修改图片框中属性窗口中的 Picture属性输入。图片框的修改可以通过在代码中将属性值赋给 Picture 控件的各属性来进行。
