[it认证]2013计算机二级vb操作题答案-题库版三

《[it认证]2013计算机二级vb操作题答案-题库版三》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第62套题解析题目一：基本操作题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Text、Font属性。【解题思路】命令按钮的名称和标题分别由其Name、Caption属性设置；文本框的名称、初始内容和字体分别由其Name、Text、Font属性设置。在命令按钮的Click事件中，将Text1.Font值设为"宋体"。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.185。步骤2：编写程序代码。参考答案PrivateSubC1_Click()Text1

2、.Font="宋体"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性和窗体的DblClick事件。【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和添加图片。双击窗体为DblClick事件，图片的消失用LoadPicture()方法来实现。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.186。步骤2：编写程序代码。参考答案Privat

3、eSubForm_DblClick()P1.Picture=LoadPicture()EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：标签的Name、Caption、BorderStyle属性，计时器的Interval属性和Timer事件。【解题思路】标签的BorderStyle属性可以取两个值，当取0值时表示标签无边框，这是默认情况；当取1值时标签有边框。在计时器的Timer事件，将标签的Caption属性值加1，实现程序运行后每隔一秒钟标签中的数字加1。【操作步骤

4、】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.187。步骤2：分析并编写程序代码。程序提供代码PrivateSubTimer1_Timer()L1=L1+1EndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：列表框的MultiSelect、Selected、ListCount属性，窗体的Print方法，If判断语句和For循环语句。【解题思路】MultiSelect属性值可以用来设置一次可以选择的表项数。其可以取一下3种值：0-None：每次只能选择一

5、项，如果选择另一项则会取消对前一项的选择。1-Simple：可以同时选择多个项，后续的选择不会取消前面所选择的项，而且可以用鼠标和空格选择。2-Extended：可以选择指定范围的表项。其方法是：单击所要选择的范围的第一项，然后按下Shift键，不要松开，并单击所要选择的范围的最后一项。如果按住Ctrl键，并单击列表框中的项目，则可不连续地选择多个表项。【操作步骤】步骤1：打开本题工程文件，通过列表框属性窗口将复选即MultiSelect属性值设为1。步骤2：分析并编写程序代码。程序提供代码PrivateSubC1_Click(

6、)Fori=0ToMe.l1.ListCount-1Ifl1.Selected(i)=TrueThenPrintl1.List(i)EndIfNextEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption属性，单选按钮的Name、Caption、Value属性，Function()函数，Int()函数，If判断语句和For循环语句。【解题思路】Function()函数的功能是500到600之间被某个整数整除

7、的数之和，在命令按钮的Click事件中，通过If语句判断单选按钮是否被选中，在调用对应的函数。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.188和3.189。步骤2：分析并编写程序代码。程序提供代码PrivateSubC1_Click()'需要考生编写的内容EndSubPrivateFunctionfun(aAsInteger)AsIntegers%=0Fori%=500To600IfInt(i%/a)=i%/aThens%=s%+i%EndIfNextfun=s%EndFunction

8、PrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"out5.txt"ForOutputAs#1Print#1,Op1.Value,Op2.Value,Text1.TextClose#1EndSub程序结束参