国二级VB上机题含答案第三套

1、第03套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1 的窗体上画两个命令按钮，其名称分别为Command1和 Command2，标题分别为“扩大”和“移动”。如图所示，编写适当的事件 过程。程序运行后，如果单击Command1命令按钮，则使窗体在高、宽方向 上各增加0.2倍（变为原来的1.2倍）；如果单击Command2命令按钮，则使 窗体向右移动200，向下移动100。 要求： 程序中不得使用变量。 存盘时必须存放在考生文件夹下，工

2、程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。* （2）在名称为 Form1的窗体上画一个标签，其名称为Label1，标题为“计算机 等级考试”，Left属性为0； 再画一个水平滚动条，其名称为HScroll1， 在属性窗口中设置其属性如下： Min 0 Max 3000 SmallChange 10 LargeChange 100 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使 标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程 序的运行情况如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。 注意： 存盘时必须存放在考生文件夹

3、下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在名称为Form1的窗体上画一个计时器，其名称为Timer1；再画一个图像 框，其名称为Image1，在该图像框中装入一个图形文件pic.ico；然后画 一个水平滚动条， 其名称为HScroll1， Min属性值为100，Max属性值为 1200，LargeChange属性值为100，SmallChange属性值为25，编写适当的 事件过程。 程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动 条调节。 提示： 图像框的闪烁

4、可以通过图像框交替地显示和隐藏来实现。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名 为sjt3.frm。* （2）在考生目录下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如 图所示。 要求： 1）利用属性窗口设置适当的属性: 为List1列表框添加3个项目：宋体、黑体、楷体_GB2312；Text1文本 框设置初始值为“计算机”；Hscroll1水平滚动条设置最小值和最大 值分别为10和50。 2）去掉程序中的注释符，把程序中的 ？改为正确的内容， 完成以下功 能：如果在列表框中选择一

5、种字体，然后移动滚动条中的滚动框，则 可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放 大或缩小；如果不选择字体直接移动滚动框，则显示一个信息框，提 示“请选择字体”。 注意： 去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其实现上述 功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名 存盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。 程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和 Label3，标题分别为“姓名”、“电

6、话号码”和“邮政编码”。 再画三个 文本框，其名称分别为Text1、Text2和Text3，初始内容均为空白，如图所 示。程序运行后，如果单击“显示第三个记录”命令按钮， 则读取考生文 件夹下in5.txt文件中的第三个记录，将该记录的三个字段分别显示在三个 文本框中（该文件是一个用随机存取方式建立的文件，共有5个记录）。单 击“保存”按钮， 则把该记录（三个字段）保存到考生文件夹下的顺序文 件out5.txt中。 请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。 注意： 考生不得修改已经存在的程序，必须用“保存”按钮存储结果， 否则无 成绩。最后，按原文件名把程序存盘。第0

7、3套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“扩大”和“移动”。 单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Height = 1.2 * Height Width = Width * 1.2End Sub 单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_C

8、lick() Left = 200 + Left Top = Top + 100End Sub参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，Left属性设为0。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为0，Max属性设为300

9、0，SmallChange属性设为10，LargeChange属性设为100。 移动滚动条上的滚动框（即运行Scroll事件过程），在该Scroll事件过程中加入语句：Private Sub HScroll1_Scroll() Label1.Left = Form1.HScroll1End Sub 单击滚动条上的方向按钮（即运行Click事件过程）也能实现题目所要求的功能，在该Click事件过程中加入语句：Private Sub HScroll1_Change() Label1.Left = Me.HScroll1End Sub参考文件：c:wexam26990001hlpsys参考答案sjt

10、2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1。画一个图像框，通过其属性窗口将名称设为Image1，通过Picture属性将图形文件pic.ico装入。画一个水平滚动条，通过其属性窗口将名称设为HScroll1，Min属性设为100，Max属性设为1200，LargeChange属性设为100，SmallChange属性设为25。 点击滚动条（即运行Change

11、事件过程），在Change事件过程中加入语句：Timer1.Interval = HScroll1.Value。还需在计时器的Timer事件过程中加入语句：Image1.Visible = Not Image1.Visible，即完成了图像框交替地显示和隐藏功能。参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt

12、4.frm。 由于所提供的窗体控件不完整，通过属性窗口向列表框中添加项目（List属性），添加的项目分别为：宋体、黑体、楷体_GB2312，每个项目为一行。通过属性窗口将文本内容（Text属性）设为“计算机”。通过属性窗口将水平滚动条最小值（Min属性）设为10，最大值（Max属性）设为50。 由于所提供的窗体程序不完整，在水平滚动条的Private Sub HScroll1_Change()事件过程中，有二处地方需要修改。1) 将语句 'Text1.FontSize = ? 改为 Text1.FontSize = HScroll1.Value2) 将语句 'Text1.Fon

13、tName = ? 改为 Text1.FontName = List1.Text参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 在该窗体上画三个标签控件，通过其属性窗口将名称分别设为Label1、Label2和Label3，标题（Caption属性）分别设为“姓名”、“电话号码”和“邮政编码”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，文本内容（Text属性）均设为空。 单击“显示第三个记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Dim Pal As Paltype Open App.Path & "in5.txt" For Random As #1 Len = Len(Pal) Get #