2012年VB上机试题及解题思路第二套.doc

2012年计算机二级VB上机试题及解题思路第二套来源: ：91UP快学堂 时间：2012/7/31 1. 基本操作(2小题，每小题15分，共计30分)注意：下面出现的“考生文件夹”均为%USER%请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上用名称为Shape1的控件画一个圆，其直径为1500 (即宽、高均为1500 )，并设置适当属性，使窗口标题为“圆”，窗体 标题栏上不显示最大化和最小化按钮(如图所示)。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上用Shape图形控件画一个园，通过其属性窗口将名称设为Shape1，高(Height属性)设为1500，宽(Width属性)设为1500，Shape属性设为3。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“圆”，最大化按钮(MaxButton属性)设为False，最小化按钮(MinButton属性)设为False。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。(2)在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示)，名 称为file， 含两个菜单项，其名称分别为open、save，标题分别为“打开”、“存盘”。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则弹出此菜单(如图所示)。注意：程序中不能使用变量。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处为空，名称处输入file，将“可见”单选按钮设为不选状态。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“存盘”，名称处分别输入open、save。鼠标右键单击窗体(即运行MouseDown事件过程)，在该MouseDown事件过程中加入语句：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu fileEnd IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。2. 简单应用(2小题，每题20分，计40分)注意：下面出现的“考生文件夹”均为%USER%*(1)在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1，其 中已经预设了内容;还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时，“确定”按钮不可用，如图所示。程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用;若单击“确定”按钮， 则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用;若单击“添加”按钮，则把在Text1中的内容添加到组合框中。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ? 改为正确的内容。但不能修改程序中的其他部分， 也不能修改控件的属性。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，通过属性窗口将“确定”按钮的Enabled属性设为False。由于所提供的窗体程序不完整，在“修改”按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。1) 将语句Command2. ? = True改为Command2.Enabled = True在“确定”按钮的Private Sub Command2_Click()事件过程中，有一处地方需要修改。1) 将语句Combo1.List( ? ) = Text1改为Combo1.List(Combo1.ListIndex) = Text1在“添加”按钮的Private Sub Command3_Click()事件过程中，有一处地方需要修改。1) 将语句? Text1改为Combo1.AddItem Text1参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。(2)在考生目录下有一个工程文件sjt4.vbp，窗体中的两个滚动条分别表示红 灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1-10 秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动 变为黄灯，1秒后变为绿灯;绿灯到时后自动变为黄灯，1秒后变为红灯， 如此切换(如图所示)。 所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。提示：在三个图片框picture1、picture2、picture3中分别放置了红灯亮、绿 灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的 图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的Private Sub Command1_Click()中，有二处地方需要修改。1) 将语句? = HScroll1.Value改为red = HScroll1.Value2) 将语句Timer1.Enabled = ?改为Timer1.Enabled = True由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_Timer()中，有二处地方需要修改。1) 将语句? .Visible = False改为Picture1.Visible = False2) 将语句green = ?改为green = green - 1参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。3. 综合应用(1小题，计30分)注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是： 单击“读数”按钮，读入考生文件夹下in5.txt文件中的一个整数，并放入Text1中; 单击“计算”按钮，则计算小于该数的最大素数，并显示在Text2中;单击“存盘”按钮，则把该素数保存到考生文件夹下的out5.txt文件中。要求：1)程序已给出“存盘”按钮的事件过程代码。“读数”按钮的事件过程 和判断x是否是素数的函数prime(x)不完整，请去掉注释，并在? 处填上正确的内容，使程序完整。2)编写“计算”按钮的事件过程。计算小于Text1中数据的最大素数。3)请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。由于所提供的窗体程序不完整，需添加事件过程。执行“计算”命令(即运行Click事件过程)，在该Click事件过程中加入语句：Private Sub Command2_Click()n = Val(Text1.Text)For i = n To 2 Step -1l = prime(i)If l = True ThenExit ForEnd IfNextText2.Text = iEnd Sub在“读数”按钮的Private Sub Command1_Click()中，有一处地方需要修改。1) 将语句Input #1, ?改为Input #1, a%在函数