计算机二级vb试题答案

《计算机二级vb试题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一套题目答案 一．第1小题【审题分析】本题需用菜单设计器建立菜单，并编写“显示”和“清除”菜单项的单击事件过程。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个图片框，在属性设置窗口中 将其Name属性值设置为P1。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表20-1中的设置建立菜单项。表20-1步骤3：打开代码编辑窗口，编写以下事件过程：参考代码：PrivateSubClea_Click()P1.ClsEndSubPrivateSubDis_Click()P1

2、.Print"等级考试"EndSub步骤4：按要求将文件保存至考生文件夹中。 第2小题【知识点拔】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表 框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem 方法加入。【审题分析】双击列表框中的某个项目，将触发其DblClick事件。要实现双击列表框中 的某一项，就把当前中的内容加入列表框，只需在DblClick事件过程中编写添加项目的语句 即可。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体F

3、orm1中加入一个列表框，在属性设置窗口 中将其Name属性设置为L1，在其List属性中添加四个项目，依次为“AAAA”、“BBBB”、 “CCCC”和“DDDD”。注意：每输入完一项后按键换行再输入下一项。 步骤2：打开代码编辑窗口，编写列表框的DblClick事件过程：参考代码：PrivateSubL1_DblClick() L1.AddItemL1.TextEndSub步骤3：按要求将文件保存至考生文件夹中。【考试误区】本题应编写列表框控件的DblClick事件。Copyr

4、ight©2011Libin.hou.Allrightsreserved.二．第1小题【审题分析】根据题目要求，在窗体的单击事件过程中，先用If语句判断框架F1中的 Op1是否选中（即以Op1.Value=True为条件表达式），如果条件为真，那么再继续判断框架 F2中的Op3是否选中（即以Op3.Value=True为条件表达式），当Op3被选中时，文本框中显示 “坐飞机去广州”，否则显示“坐飞机去昆明”；同理在外层If语句条件为假（即Op2被选中） 时，也作类似处理。这样一共就有四种可能：Op1和Op

5、3被选中、Op1和Op4被选中、Op2和 Op3被选中、Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中 显示不同内容。以上判断和显示操作均在C1的Click事件中完成。【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入两个框架和一个文本框，然后在每个框架中各加入两个单 选按钮，分别设置它们的相关属性，其属性及值如表20-2所示。表20-2步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubForm_Click() I

6、fOp1AndOp3ThenText1.Text="坐飞机去广州" ElseIfOp1AndOp4Then Text1.Text="坐飞机去昆明" ElseIfOp2AndOp3Then Text1.Text="坐火车去广州" ElseIfOp2AndOp4ThenText1.Text="坐火车去昆明"EndIfEndSub2步骤4：按要求将文件保存至考生文件夹中。步骤5：按键运行程序，选择一种交通工具和一个到达目标，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。第2小题【审题分析】根据题目要

7、求，设计本题程序的思路：在Text3的Click事件过程中分别以 Op1和Op2是否选中作为If语句的条件，当Op1被选中时，将两个文本框中的内容通过一个中 间变量进行交换；当Op2被选中时，将两个文本框中的内容连接起来。【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2：在窗体Form1中加入三个文本框和两个单选按钮，分别设置它们的相关属性， 其属性及值如表20-3所示。表20-3步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubText3_Click() I

8、fOp1ThenText3.Text=Text1.Text Text1.Text=Text2.Text Text2.Text=Text3.TextText3.Text="交换成功"ElseIfOp2ThenText3.Text=Text1.Text&Text2.Text EndIfEndSub步骤4：按要求将文件保存至考生文件夹中。步骤5：按键运行程序，选择一个单选按钮，并单击Text3，最后单击窗体右上角的关闭按钮退