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