2012年计算机二级VB第九套上机试题及解析

Min 0
Max 3000
SmallChange 10
LargeChange 100
编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程序的运行情况如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
Text1.Text =
Text2.Text = Pal.Tel
Text3.Text = Str(Pal.Post)
Close 1
End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。
3.综合应用（1小题，计30分）
注意：下面出现的“考生文件夹”均为%USER%
注意：
去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。
由于所提供的窗体控件不完整，通过属性窗口向列表框中添加项目（List属性），添加的项目分别为：宋体、黑体、楷体_GB2312，每个项目为一行。通过属性窗口将文本内容（Text属性）设为“计算机”。通过属性窗口将水平滚动条最小值（Min属性）设为10，最大值（Max属性）设为50。
点击滚动条（即运行Change事件过程），在Change事件过程中加入语句：Timer1.Interval =HScroll1.Value。还需在计时器的Timer事件过程中加入语句：Image1.Visible = Not Image1.Visible，即完
成了图像框交替地显示和隐藏功能。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw
单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
Private Sub Command1_Click()
Height = 1.2 * Height
Width = Width * 1.2
End Sub
单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
（1）在名称为Form1的窗体上画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“移动”。如图所示，编写适当的事件过程。程序运行后，如果单击Command1命令按钮，则使窗体在高、宽方向上各增加0.2倍（变为原来的1.2倍）；如果单击Command2命令按钮，则使窗体向右移动200，向下移动100。
2.简单应用（2小题，每题20分，计40分）
注意：下面出现的“考生文件夹”均为%USER%
***********************************************************************
（1）在名称为Form1的窗体上画一个计时器，其名称为Timer1；再画一个图像框，其名称为Image1，在该图像框中装入一个图形文件pic.ico；然后画一个水平滚动条，其名称为HScroll1，Min属性值为100，Max属性值为1200，LargeChange属性值为100，SmallChange属性值为25，编写适当的事件过程。程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。
在该窗体上画三个标签控件，通过其属性窗口将名称分别设为Label1、Label2和Label3，标题（Caption属性）分别设为“姓名”、“电话号码”和“邮政编码”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，文本内容（Text属性）均设为空。
提示：
图像框的闪烁可以通过图像框交替地显示和隐藏来实现。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名
为sjt3.frm。
解题思路：
启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1。画一个图像框，通过其属性窗口将名称设为Image1，通过Picture属性将图形文件pic.ico装入。画一个水平滚动条，通过其属性窗口将名称设为HScroll1，Min属性设为100，Max属性设为1200，LargeChange属性设为100，SmallChange属性设为25。
件夹下in5.txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中（该文件是一个用随机存取方式建立的文件，共有5个记录）。单击“保存”按钮，则把该记录（三个字段）保存到考生文件夹下的顺序文件out5.txt中。
请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。
注意：
考生不得修改已经存在的程序，必须用“保存”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。
更多试题请访问下载
更多试题请访问下载
1.基本操作（2小题，每小题15分，共计30分）
注意：下面出现的“考生文件夹”均为%USER%
**********************************************************************
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
由于所提供的窗体程序不完整，在水平滚动条的Private Sub HScroll1_Change()事件过程中，有二处地方
需要修改。
1)将语句
'Text1.FontSize = ?
改为
Text1.FontSize = HScroll1.Value
2)将语句
'Text1.FontName = ?
改为
Text1.FontName = List1.Text
单击“显示第三个记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
Private Sub Command1_Click()
Dim Pal As Paltype
Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal)
Get #1, 3, Pal
要求：
1）利用属性窗口设置适当的属性:
为List1列表框添加3个项目：宋体、黑体、楷体_GB2312；Text1文本框设置初始值为“计算机”；Hscroll1水平滚动条设置最小值和最大值分别为10和50。
2）去掉程序中的注释符，把程序中的？改为正确的内容，完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放大或缩小；如果不选择字体直接移动滚动框，则显示一个信息框，提示“请选择字体”。
Private Sub Command2_Click()
Left = 200 + Left
Top = Top + 100
End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
Private Sub HScroll1_Change()
Label1.Left = Me.HScroll1
End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。
移动滚动条上的滚动框（即运行Scroll事件过程），在该Scroll事件过程中加入语句：
Private Sub HScroll1_Scroll()
Label1.Left = Form1.HScroll1
End Sub
单击滚动条上的方向按钮（即运行Click事件过程）也能实现题目所要求的功能，在该Click事件过程中加入语句：
在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为Text1、Text2和Text3，初始内容均为空白，如图所示。程序运行后，如果单击“显示第三个记录”命令按钮，则读取考生文
**********************************************************************
（2）在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“计算机等级考试”，Left属性为0；再画一个水平滚动条，其名称为HScroll1，在属性窗口中设置其属性如下：