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

更多试题请访问下载1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER% 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用属性窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 解题思路： 启动Visual Basic系统，创建一个Form1窗体。 该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1，Interval属性设为1000（每秒加1）。通过Form1窗体的属性窗口将其标题（Caption属性）设为“题目2”。 参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw 请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。 （2）在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图所示。程序中不能使用任何变量。 *注意： 保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，Text属性为空。画一个图片框控件，通过其属性窗口将名称设为P1。 实现题目的要求（即运行Text1_Change事件过程），在该Change事件过程中加入语句： Private Sub Text1_Change() P1.Print Text1.Text End Sub 参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw 请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER% （1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求： 1） 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。 2） 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。 最后把修改后的文件按原文件名存盘。 解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不完整，通过单选按钮属性窗口将标题（Caption属性）分别设为“北京”、“上海”、“广州”，把“广州”单选按钮的Value属性设为True。通过命令按钮属性窗口将标题（Caption属性）设为“显示”。 由于所提供的窗体程序不完整，在“显示”按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。 1) 将语句 For i = ? To ? 改为 For i = 0 To 2 2) 将语句 If Op1(i).? = True Then 改为 If Op1(i).Value = True Then 3) 将语句 Print 我的出生地是 + Op1(i).? 改为 Print 我的出生地是 + Op1(i).Caption 参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw 请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。 （2）在考生目录下有一个工程文件sjt4.vbp，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为 500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2 添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。 注意： 考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。 解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，需在该窗体上画三个标签控件，通过其属性窗口将名称分别设为B1、B2、L1，标题（Caption属性）分别设为“字号”、“字体”、“计算机等级考试”，并对L1标签的高（Height属性）设为500，宽（Width属性）设为3000。再画二个组合框控件，通过其属性窗口将名称分别设为Cb1、Cb2，并对Cb1项目（List属性）添加“10”、“15”、“20”内容，对Cb2项目（List属性）添加“黑体”、“隶书”、“宋体”内容。 Cb1选择字号（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Cb1_Click() L1.Font.Size = Cb1.Text End Sub Cb2选择字体（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Cb2_Click() L1.Font = Cb2.Text End Sub 参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw 请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。 3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER%在考生目录下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。 请编写适当的事件过程， 使得在运行时，单击“计算”按钮，则找出大于15000的第1个素数，并显示在 Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。 注意： 考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt文件中，否则无成绩。 解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加二个按钮的事件过程。 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C1_Click() a% = 15000 Do a% = a% + 1 Loop Until isprime(a%) Text1.Text = a% End Sub 单击“存盘”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C2_Click() Open App.Path & out5.txt F