预览加载中,请您耐心等待几秒...
1/9
2/9
3/9
4/9
5/9
6/9
7/9
8/9
9/9

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

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

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

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

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

计算机二级VB上机试题及答案计算机二级VB上机试题及答案在平时的学习、工作中,许多人都需要跟试题打交道,试题是命题者按照一定的考核目的编写出来的。你知道什么样的试题才能切实地帮助到我们吗?下面是小编为大家收集的计算机二级VB上机试题及答案,仅供参考,希望能够帮助到大家。1.基本操作(2小题,每小题15分,共计30分)注意:下面出现的“考生文件夹”均为%USER%请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1,标题为“框架”的窗体上画一个名称为Frame1,且没有标题的框架。框架内含有二个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。解题思路:启动VisualBasic系统,创建一个Form1窗体。在该窗体上画一个框架控件,通过其属性窗口将名称设为Frame1。在框架内画二个单选按钮控件,通过其属性窗口将名称分别为Opt1和Opt2、标题(Caption属性)分别设为“字体”和“大小”。激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“框架”。参考文件:c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中,然后打开sjt1.vbp文件并运行。(2)考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形,直线Line1、Line2和Line3的坐标值如下所示:名称X1Y1X2Y2Line160012001600300Line2600120026001200Line3160030026001200要求画一条直线Line4以构成三角形的高,且该直线的初始状态为不可见。再画二个命令按钮,名称分别是Cmd1、Cmd2,标题分别为“显示高”、“隐藏高”,如图所示。请编写适当的事件过程使得在运行时,单击“显示高”按钮,则显示三角形的高;单击“隐藏高”按钮,则隐藏三角形的高。注意:要求程序中不得使用变量,每个事件过程只能写一条语句。不得修改已经存在的控件,最后将修改后的文件按原文件名存盘。解题思路:启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt2.vbp,相应的窗体文件名为sjt2.frm。由于所提供的窗体控件不完整,需在该窗体上画一根直线控件,通过其属性窗口将名称设为Line4,点X1属性设为1600,点X2属性分别设为1600,点Y1属性设为300,点Y2属性设为1200,Visible属性设为False。画二个命令按钮控件,通过其属性窗口将名称分别设为Cmd1和Cmd2,标题(Caption属性)分别设为“显示高”和“隐藏高”。单击“显示高”按钮(即运行Click事件过程),在该PrivateSubCmd1_Click()事件过程中加入语句:PrivateSubCmd1_Click()Line4.Visible=TrueEndSub单击“隐藏高”按钮(即运行Click事件过程),在该PrivateSubCmd2_Click()事件过程中加入语句:PrivateSubCmd2_Click()Line4.Visible=FalseEndSub参考文件:c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中,然后打开sjt2.vbp文件并运行。2.简单应用(2小题,每题20分,计40分)注意:下面出现的“考生文件夹”均为%USER%(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框,二个命令按钮和一个计时器。程序的功能是在运行时,单击“开始计数”按钮,就开始计数,每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数(如图所示)。要求:修改适当的控件的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。解题思路:启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的`窗体文件名为sjt3.frm。由于所提供的窗体控件属性不完整,通过属性窗口将计时器的Enabled属性设为False,Interval属性设为1000。由于所提供的窗体程序不完整,在命令按钮的PrivateSubC1_Click(IndexAsInteger)事件过程中,有二处地方需要修改。1)将语句SelectCase?改为SelectCaseIndex2)将语句Case