模拟试题八及解析-茂名广播电视大学.docVIP

模拟试题八及解析 1． 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为C:\WEXAM********************************************************************** 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 (1) 在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 解析：本题考核的知识点是标签、文本框、命令按钮等常用控件的添加、相关属性的设置、命令按钮Click事件过程的编写。本题各个控件的属性设置（窗体略）如下表： 控件名 属性 属性值 标签1 名称 Label1 Caption 书名 标签2 名称 Label2 Caption 作者 文本框1 名称 Text1 Text 文本框2 名称 Text1 Text 命令按钮 名称 Command1 Caption 显示 本题参考代码如下： Private Sub Command1_Click() If Text1.Text And Text2.Text Then Form1.Caption = Text1.Text , Label2.Caption Text2.Text End If End Sub ********************************************************************** (2) 在名称为Form1的窗体上画一个垂直滚动条（名称为VScroll1）和一个水平滚动条（名称为HScroll1），如图1所示。在属性窗口中对两个滚动条设置如下属性： Min 1500 Max 6000 LargeChange 200 SmallChange 50 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如图2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 解析：本题考核的知识点是垂直垂直滚动条、水平垂直滚动条等常用控件的添加、相关属性的设置、滚动条Scroll事件过程的编写。要点是编写代码在程序运行阶段计算和设置窗体的有关属性。 本题垂直垂直滚动条、水平垂直滚动条控件的属性设置（窗体略）如下表： 控件名 属性 属性值 垂直垂直滚动条 名称 VScroll1 Min 1500 Max 6000 LargeChange 200 SmallChange 50 水平垂直滚动条 名称 HScroll1 Min 1500 Max 6000 LargeChange 200 SmallChange 50 本题参考代码如下： Private Sub Form_Load() Form1.Tag = Form1.Width End Sub Private Sub HScroll1_Scroll() Form1.Width = Form1.Tag * HScroll1.Value / HScroll1.Min End Sub Private Sub VScroll1_Scroll() Form1.Height = Form1.Tag * VScroll1.Value / VScroll1.Min End Sub 2．简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为C:\WEXAM*********************************************************************** (1) 在窗体（名称为Form1，KeyPreview属性为True）上画一个列表框（名称为List1）和一个文本框（名称为Text1），如图1所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目（内容任意，不少于