1、VB 机试-试卷 14 及答案解析(总分：8.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在名称为 Form1 的窗体上放置一个名称为 Drive1 的 DriveListBox 控件，一个名称为 Dir1 的 DirListBox 控件和一个名称为 File1的 FileListBox 控件。程序运行时，可以对系统中的文件进行浏览；当双击 File1 中的文件名时，用MsgBox 显示文件名(不显示路径名)。 注意：程序中不得使用任何变量；
2、保存时必须存放在考生文件夹下，窗体文件名为 Sjt1. frm，工程文件名为 sjt1.vbp。 2在名称为 Form1 的窗体上放置一个名为 Text1 的文本框控件和一个名为 Timer1 的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 sjt2. frm，工程文件名为 sjt2.vbp，如图 11 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.创建名称为 Form1 的窗体，在窗体上画一
3、个图片框。在图片框的右侧画一个垂直滚动条，其 Min 属性为100，Max 属性为 2000，LargeChange 属性为 120，SmallChange 属性为 30。在图片框中装入图片，图片框的宽度与图形宽度一致，高度任意，如图 4 所示。编写一个事件过程，程序运行后，移动滚动条上的滚动块可以放大或缩小图片框。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 yJc2.vbp，窗体文件名为 ylc2.frm。 （分数：2.00）_VB 机试-试卷 14 答案解析(总分：8.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）
4、（分数：2.00）_解析：2.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在名称为 Form1 的窗体上放置一个名称为 Drive1 的 DriveListBox 控件，一个名称为 Dir1 的 DirListBox 控件和一个名称为 File1的 FileListBox 控件。程序运行时，可以对系统中的文件进行浏览；当双击 File1 中的文件名时，用MsgBox 显示文件名(不显示路径名)。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 Sjt1. frm，工程文件名为 sjt1.vbp。 2在名称为 Form1 的窗体上
5、放置一个名为 Text1 的文本框控件和一个名为 Timer1 的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 sjt2. frm，工程文件名为 sjt2.vbp，如图 11 所示。 （分数：2.00）_正确答案：(正确答案： 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文件系统控件有 3 种：驱动器列表框(DriveListBox)，目录列表框(DirListBox)和文件列表框(FileListBox)。3 个文件系统控件必须协调工作才能构成一
6、个文件管理系统，当用户在驱动器列表框中选择一个新的列表框或在当目录列表框 Path 的属性改变都触发 Change 事件，将三者(利用本题中 3 个对象的名称)实现同步的代码为：File1.PathDir1.Path，Dir1. PathDrive1.Drive。双击触发 DblClick 事件弹出 MsgBox 显示文件名，其格式为：MsgBox 提示,按钮,标题。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 1。 表 1 标题 属性 设置值 DriveListBox Name Drive1 DirListBox Name Dir1 FileListBox Na
7、me File1 第二步：编写程序代码。 参考代码： 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.PathDir1.Path End Sub 第三步：调试并运行程序。
8、 第四步：按题目要求存盘。 2 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应的程序代码，其Interval 属性决定时间间隔的长短，以毫秒为单位，所以要实现 每一秒文本框的时间改变只要使该属性设置为 1000 即可，要使程序运行后取得当前时间可用 Time 函数取得，程序用到的 Str 函数将其中的内容转化为字符串。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表2。 表 2 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.创建名称为
9、Form1 的窗体，在窗体上画一个图片框。在图片框的右侧画一个垂直滚动条，其 Min 属性为100，Max 属性为 2000，LargeChange 属性为 120，SmallChange 属性为 30。在图片框中装入图片，图片框的宽度与图形宽度一致，高度任意，如图 4 所示。编写一个事件过程，程序运行后，移动滚动条上的滚动块可以放大或缩小图片框。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 yJc2.vbp，窗体文件名为 ylc2.frm。 （分数：2.00）_正确答案：(正确答案：(1)Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“
10、标准Exe”。创建窗体 Form1。 (2)在工具箱中选择图片框控件，在窗体中拖动鼠标建立一个图片框，其名称为 Picture1。在属性窗口中设置图片框属性，装入图片。调整图片和图片框宽度保持一致。 (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 控件的各属性来进行。
