资源描述：
《2012年计算机二级vb第二十套上机试题及解析》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、更多试题请访问httr）:〃www.c力iiol.com下载1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹''均为%USER%请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在Forml的窗体上画一个名称为Pl的图片框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea,编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“等级考试J如果单击“清除"命令，则清除图片框中的信
2、息。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp,窗体文件名为sjtl.frmo程序中不得使用任何变量。解题思路：启动VisualBasic系统，创建一个Form1窗体。在该窗体上画一个图片框控件，通过其属性窗口将名称设为Pio通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op,在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Cleao单击“操作”菜单中的“显示”命令（即运行Click事件过程），在该Click事件过程中加入语
3、句：PrivateSubDis_Click（）Pl.Print”等级考试“EndSub单击“操作"菜单中的“清除'命令（即运行Click事件过程），在该Click事件过程中加入语句：PrivateSubClea_Click（）Pl.CisEndSub参考文件：c:wexam26990001hlpsys参考答案sjtl.vbp、sjtl.frm>sjtl.vbw请把这些文件复制到c:wexam26990001中，然后打开sjtl.vbp文件并运行。（2）在Forml的窗体上画一个列表框，名称为L1,通过屈性窗口向列表框中添加4个项目
4、，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程，过程屮只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添加到列表框小。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjO.vbp,窗体文件名为sjt2.frmo解题思路：启动VisualBasic系统，创建一个Forml窗体。在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1,向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB"、“CCCC”和“DDDD",每个项目为一行。双击列表框（
5、即运行DblClick事件过程），在该DblClick事件过程中加入语句：PrivateSubLl_DblClick（）LI.AdditemLIEndSub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx^sjt2.vbw请把这些文件复制到c:wexam26990001屮，然后打开sj（2.vbp文件并运行。1.简单应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹''均为%USER%（1）在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框
6、架，其名称分别为F1和F2,标题分别为“交通工具”和“到达目标寫在F1中画两个单选按钮，名称分别为Opl和Op2,标题分别为“飞机”和“火车覽在F2中画两个单选按钮，名称分别为Op3和Op4,标题分别为“广州"和“昆明”。画一个文本框，其名称为Textlo编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在文本框中显示结果见下表程序的运行情况如图所示。存盘时，按原文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行Z前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。解题思路：启动VisualB
7、asic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frmo由于所捉供的窗体控件不完整，需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为Fl、F2,标题（Caption属性）分别设为“交通工具”和“到达目标雹在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Opl、0p2,标题（Caption属性）分别设为“飞机”和“火车雹在F2框架中画二个单选按钮控件，通过其属性窗口将名称分別设为0p3、0p4,标题（Caption属性）分别设为“广州”和“昆明”。画一个文本框控件,通过其属性窗口将名
8、称设为Textlo由于所提供的窗体程序不完整，需添加事件过程。单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：PrivateS
