2012年计算机二级VB上机试题及解题思路第47套.docVIP

2012年计算机二级VB上机试题及解题思路第47套 1. 基本操作(2小题，每小题15分，共计30分) 　　注意：下面出现的“考生文件夹”均为%USER% 　　请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 　　(1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求： 　　1)标签的内容为“计算机等级考试”; 　　2)标签可根据显示内容自动调整其大小; 　　3)标签带有边框，且标签内容显示为三号字。运行后的窗体如图所示。 　　注意 　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 　　解题思路：　　启动Visual Basic系统，创建一个Form1窗体。 　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题(Caption属性)设为“计算机等级考试”，AutoSize属性设为True，边框(BorderStyle属性)设为1，点击Font属性，在弹出的“字体”对话框中，在字体大小下选择“三号”。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“标签”。 　　参考文件：c:\wexamhlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw 　　请把这些文件复制到c:\wexam，然后打开sjt1.vbp文件并运行。 　　(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1-100;再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。 　　注意： 　　要求程序中不得使用变量，每个事件过程中只能写一条语句。 　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 　　解题思路： 　　启动Visual Basic系统，创建一个Form1窗体。 　　在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设scroll1，最大值(Max属性)设为100，最小值(Min属性)设为1，TabIndex属性为0。画一个文本框控件，通过其属性窗口将名称设为Text1，初始内容(Text属性)设为1。改变滚动框位置(即运行Change事件过程)，在该Private Sub HScroll1_Change()事件过程中加入语句： 　　Private Sub HScroll1_Change 　　Text1.Text = HScroll1.Val 　　End Sub 　　参考文件：c:\wexamhlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw 　　请把这些文件复制到c:\wexam，然后打开sjt2.vbp文运行。　2. 简单应用(2小题，每题20分，计40分) 　　注意：下面出现的“考生文件夹”均为%USER%　　(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： 　　1)圆的顶端距窗体Form1顶端的距离为360; 　　2)圆的颜色为红色(红色对应的值为：H000000FF 或HFF)，如图所示。 　　程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动;当Shape1的底部到达Line2时，会改变方向而向上运动。 　　文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 　　注意： 　　不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按文件名存盘。 　　解题思路： 　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 　　由于所提供的窗体控件不完整，需在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1，FillStyle属性0，Top属性设为360，颜色(FillColo属性)设为红色(对应的值为：H000000FF 或HFF)。 　　由于所提供的窗体程序不完整，在Private Sub Form_Load()事件过程中，有一处地方需要修改。 　　1) 将语句 　　’Timer1.Enabled