2012年计算机二级VB第十五套上机试题及解题思路.doc
上传人:sy****28 上传时间:2024-09-10 格式:DOC 页数:3 大小:41KB 金币:16 举报 版权申诉
预览加载中,请您耐心等待几秒...

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

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

预览

在线预览结束,喜欢就下载吧,查找使用更方便

16 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

打造最大的国内教育平台E智网HYPERLINK"http://www.ezhiol.com"http://www.ezhiol.com24小时服务电话:0531-8655800086555588更多试题请访问HYPERLINK"http://www.ezhiol.com"http://www.ezhiol.com下载1.基本操作(2小题,每小题15分,共计30分)注意:下面出现的“考生文件夹”均为%USER%请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)请在名称为Form1的窗体上建立一个二级下拉菜单,第一级共有二个菜单项,标题分别为“文件”、“编辑”,名称分别为file、edit;在“编辑”菜单下有第二级菜单,含有三个菜单项,标题分别为“剪切”、“复制”、“粘贴”,名称分别为cut、copy、paste。其中“粘贴”菜单项设置为无效(如图所示)。*注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。解题思路:启动VisualBasic系统,创建一个Form1窗体。在该窗体上通过菜单编辑器建立二个主菜单,在菜单编辑器的标题处分别输入“文件”、“编辑”,名称处分别输入file、edit,在“编辑”菜单下有三个子菜单,在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”,名称处分别输入cut、copy、paste,将“粘贴”菜单项中的“有效”单选按钮设为不选状态。参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中,然后打开sjt1.vbp文件并运行。(2)在窗体上画二个文本框,名称分别为Text1、Text2。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,如果在Text1中每输入一个字符,则显示一个“*”,同时在Text2中显示输入的内容(如图所示)。程序中不得使用任何变量。*注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。解题思路:启动VisualBasic系统,创建一个Form1窗体。在该窗体上画二个文本框控件,通过其属性窗口将名称分别设为Text1、Text2,将文本框Text1的PasswordChar属性设为*。文本框Text2中显示Text1内容(即运行Change事件过程),在该Change事件过程中加入语句:PrivateSubText1_Change()Text2.Text=Text1.TextEndSub参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:\wexam\26990001中,然后打开sjt2.vbp文件并运行。2.简单应用(2小题,每题20分,计40分)注意:下面出现的“考生文件夹”均为%USER%(1)在名称为Form1的窗体上画二个图片框,名称分别为P1、P2,高度均为1900,宽度均为1700,通过属性窗口把图片文件pic1.bmp放入P1中,把图片文件pic2.jpg放入P2中;再画一个命令按钮,名称为C1,标题为“交换图片”(如图所示)。编写适当的事件过程,使得在运行时,如果单击命令按钮,则在P1中显示Pic2.jpg,在P2中显示Pic1.bmp。程序中不得使用任何变量,也不能使用第三个图片框。*注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。解题思路:启动VisualBasic系统,创建一个Form1窗体。在该窗体上画二个图片框控件,通过其属性窗口将名称分别设为P1、P2,高(Height属性)均设为1900,宽(Width属性)均设为1700,通过Picture属性将pic1.bmp装入P1图片框中、pic2.jpg装入P1图片框中。画一个命令按钮控件,通过其属性窗口将名称设为C1,标题(Caption属性)设为“交换图片”。单击“交换图片”按钮(即运行Click事件过程),在该Click事件过程中加入语句:PrivateSubC1_Click()P1.Picture=LoadPicture("pic2.jpg")P2.Picture=LoadPicture("pic1.bmp")EndSub参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw请把这些文件复制到c:\wexam\2699000