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

更多试题请访问下载 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:\wexamhlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw 　　请把这些文件复制到c:\wexam，然后打开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:\wexamhlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw 　　请把这些文件复制到c:\wexam，然后打开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:\wexamhlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw 　　请把这些文件复制到c:\wexam\2