《2012年计算机二级VB上机试题及解题思路第47套》由会员分享，可在线阅读，更多相关《2012年计算机二级VB上机试题及解题思路第47套（7页珍藏版）》请在金锄头文库上搜索。
1、2012年计算机二级VB上机试题及解题思路第47套 1. 基本操作(2小题，每小题15分，共计30分)注意：下面出现的“考生文件夹”均为%USER% 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求： 1)标签的内容为“计算机等级考试”;2)标签可根据显示内容自动调整其大小; 3)标签带有边框，且标签内容显示为三号字。运行后的窗体如图所示。 注意存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 解题思路：启动Vis
2、ual 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的窗体上画一个名称
3、为Hscroll1的水平滚动条，其刻度范围为1-100;再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。 注意： 要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设scroll1，最大值(Max属性)设为100，最小值(Min属性)设为1，TabIndex属
4、性为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
5、%(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： 1)圆的顶端距窗体Form1顶端的距离为360; 2)圆的颜色为红色(红色对应的值为：&HFF& 或&HFF&)，如图所示。 程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动;当Shape1的底部到达Line2时，会改变方向而向上运动。 文件中给出的程序不完整，请
6、去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意： 不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，需在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1，FillStyle属性0，Top属性设为360，颜色(FillColo属性)设为红色(对应的值为：&HFF& 或&HFF&)。 由于所提供的窗体程序不完整，在Private Sub Form_Load()事件过程中，有一处地方需
7、要修改。 1) 将语句 Timer1.Enabled = ? 改为 Timer1.Enabled = True 在计时器的Private Sub Timer1_Timer()事件过程中，有二处地方需要修改。 1) 将语 If Shape1.Top = ? Then 改为 If Shape1.Top = Line2.Y1 Then 改为 If Shape1.Top + Shape1.Height = Line2.Y1 Then参考文件：c:wexamhlpsys参考答案sjt3.vbp、sjt3.frm、t3.vbw请把这些文件复制到c:wexam中，然后打开sjt3.vbp文件并运行。 (2)
8、在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。程序功能如下： 1)单击“读数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a 中; 2)单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a 中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。 “读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。解题思路 启
9、动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，需在“计算”命令按钮的Click事件过程中加入语句： Private Sub Command2_Click() 考生编写 Select Case Combo1.ListIndex Case 0 Text1 = even() Case 1Text1 = odd() Case 2 Text1 = all() End Select End Su 参考文件：c:wexamhlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw、sjt4.f
10、rx、out4.dat 请把这些文件复制到c:wexam中，然后打开sjt4.vbp文件并运行。3. 综合应用(1小题，计30分) 注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩
11、阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图所示。在窗体的代码窗口中，已 给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的 ? 改为正确的内容( 可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub Form_Click()事件过程中，有四处地方需要修改。 1) 将语句 Dim ? 改为 Dim Mat(M, N) As Integer2) 将语句 Open App.Path & & datain.txt ? As #1 改为 Open App.Path & & datain.txt For Input As #13) 将语句 ? 改为Input #1, Mat%(i, j) 4) 将语句 ? 改为 Mat%(i, 4) = t 参考文件：c:wexamhlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw 请把这些文件复制到c:wexam中，然后打开sjt5.vbp文件并运行。
