2010年最新计算机等级考试二级VB上机试题50套解析参考答案及详解.docx

《2010年最新计算机等级考试二级VB上机试题50套解析参考答案及详解.docx》由会员分享，可在线阅读，更多相关《2010年最新计算机等级考试二级VB上机试题50套解析参考答案及详解.docx（136页珍藏版）》请在课桌文档上搜索。

1、第50套试题答案及详解一、基本操作题第1小题【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的FontName属性值为“楷体_GB2312”来改变文本框中文本的字体。【操作缶骤】步骤1：新建一个“标准EXE”工程，按表50-1在窗体中画出控件并设置其相关属性。表50-1对象属性值文本框NameTxtlText二级VisualBasicFont宋体命令按钮NameCmdlCaption改变字体为楷体步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubCmdl_Click()Txtl.FontName=楷体_GB2312”EndSub步骤3：按要求将文件

2、保存至考生文件夹中。第2小题【审题分析】要使命令按钮位于窗体左上角需将其Top属性值和Left属性值设置为0：要在单击一次窗体后，命令按钮同时向右、向下移动100,需在窗体的单击事件过程中,设置命令按钮的Top属性值和Left属性值各增加100o【操作步骤】步骤1：新建一个“标准EXE”工程，按表50-2在窗体中画出控件并设置其相关属性。表50-2对象属性值命令按钮NameCmdlCaption移动Left0Top0步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSubCmdl_Click()Cmdl.Left=Cmdl.Ieft+100Cmdl.Top=C

3、mdl.Top+100EndSub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【审题分析】根据题目要求，要在程序运行时能每隔1秒，标签中的数字加1,需将计时器的Interval属性值设置为1000毫秒,Enabled属性值设置为True,在计时器的Timer事件过程中将标签中的数值加k全国计算机等级考试新版上机考试题库二级ViSUalBasic【操作步骤】步骤1：新建一个“标准EXE”工程，按表50-3在窗体中画出控件并设置其相关属性。表50-3对象属性值标签NameLablCaption0BorderStyleI-FixedSingle计时器NameTmrlInterval

4、1000EnabledTrue步骤2：双击窗体上的计时器控件，在其Timer事件过程中加入以下代码：参考代码：PrivateSubTmrl_Timer()1.abl.Caption=Labl.Caption+1EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用For循环语句(循环变量k的初值为0,终值为3)逐一检查单选按钮数组中的每个元素是否被选中，若选中则用变量n记录下选中单选按钮的索引号，即n=ko循环结束后，取消对当前选中单选按钮的选择，且变量n增1；接着判断n的值是否为4,若是则将n的值置为0,重新从单选按钮数组的第1

5、个元素开始；最后设置索引号为n的单选按钮被选中。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp,按表50-4在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组和1个命令按钮并设置属性。表50-4对象属性值命令按钮NameCmdlCaption下一个i单选按钮1NameOptlIndex0CaptionA单选按钮2NameOptlIndex1CaptionB单选按钮3NameOptlIndex2CaptionC单选按钮4NameOptlIndex3ICaptionD步骤2：打开代码编辑窗口，去掉程序中的注释符“叱将问号改为正确的内容。参考代码：PrivateSubCm

6、dl_Click()Fork=0To3IfOptl(k).ValueThenn=kEndIfNextkOptl(n).Value=Falsen=n+1Ifn=4Thenn=0EndIfOptl(n).Value=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执行运算前用Val函数将文本框中数字字符串转换为数值数据。【操作步骤】步骤1：新建一个“标准EXE”工程，按表50-5在窗体中画出控件并设置其相关属性。表50-5对象属性值窗体NameFormlCaption模拟售货机标签1NameLablC

7、aption货物的数量(个)：标签2NameLab2Caption货物的单价(元)：文本框1NameTxtlText文本框2NameTxt2Text命令按钮NameCmdlCaption总价图片框NamePicl步骤2：打开代码编辑窗口，编写“总价”命令按钮的单击事件过程。参考代码：PrivateSubCmdl_Click()DimnumAsIntegerDimrmbAsCurrencynum=Val(Txtl.Text)rmb=Val(Txt2.Text)Picl.ClsPicl.Printnum*rmbEndSub步骤3：按要求将文件保存至考生文件夹中。第51套试题答案及详解一、基本操作题

8、第1小题【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的IbPSagecom全国计算机等级考试新版上机考试题库二级ViSUalBasicChange事件过程中执行语句：FormLPrintHsbLValueo【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fonnl中画一个水平滚动条，其属性及其值见表51-lo表51-1对象属性值水平滚动条NameHsblMax300MinO步骤2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：PrivateSubHsbl_Change()Forml.PrintHsbl.ValueEndSub步骤3：按要求将文件

9、保存至考生文件夹中。第2小题【审题分析】本题只需按要求在窗体上画出控件并设置其属性，并在按钮的Click事件过程中用图片框的Print语句输出“这是一个图片框”。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fonnl中画一个图片框和一个命令按钮,其属性及其值见表51-20表51-2对象属性值图片框NamePicl命令按钮NameCmdlCaption显示步骤2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：PrivateSubCmdl_Click()Picl.Print这是一个图片框UEndSub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【审题

10、分析】本题“计算”按钮单击事件过程源代码的设计思路：先用两变量a和b分别记录在两个文本框输入的数据，并通过比较大小，使变量b的值始终大于变量a的值，t为交换变量a和b值的中间变量。然后利用For循环(循环变量i的初值为a,终值为b),将i的值逐个累加到变量s,循环结束时将变量s的值显示在文本框中。【操作步骤】步骤1：打开考生文件下的本题工程文件vbsj3.vbp,在代码编辑窗口，编写“计算”按钮的Click事件过程。参考代码：b=is=s+i步骤2：按要求将文件保存至考生文件夹中。llllnS)第2小题【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设置，只需按题目要求

11、完善其他相关事件过程。由于标签在窗体上的移动是在计时器的Timer事件过程中完成的，单击“开始”按钮时就应启动计时器，因此CmdLClick事件过程中的第1个？处应为True；要禁用“开始按钮就应设置其Enabled属性值为False,第2个？处应为False0单击“停止”按钮时要停止标签移动，就是要停止计时器，故Cmd2_Click事件过程中的第3个？处应为Falseo在Tmrl_Timer事件过程中，要让标签每次自左至右移动50,可在每个时间间隔使标签的Left属性向在原有基础上加50来实现，故该事件过程中第4个？处应改为：Labl.Left+50；为防止标签移出窗体，在执行移动语句前先用

12、If.Then.Else对其位置进行判断。【操作步骤】步骤1：打开考生文件下的本题工程文件vbsj4.vbp,在代码编辑窗口，去掉程序中的注释符“叱将问号“？”改为正确的内容。参考代码:Tmrl.Enabled=TrueCmdl.Enabled=FalseTmrl.Enabled=False1.abl.Left=Labl,Left+50步骤2：按要求将文件保存至考生文件夹中。三、综合应用题【知识点播】LOF函数可返回一个用OPen语句打开的文件的大小，该大小以字节为单位，返回值为Long数据类型。【审题分析】本题源程序设计思路：在“文件写入”命令按钮的单击事件过程中，先用OPCn语句打开考生文

13、件夹下的随机文件dwl.dat,并通过计算得到随机文件现有记录数，存入变量RecNum;然后在Do循环中，为自定义数据类型变量Pers的各元素赋值，用Put语句将该变量的值写入打开的随机文件中（记录号为RecNum+1）,并通过输入对话框询问是否要再输入新记录，Do循环以输入对话框中返回值为“Y（或y”）作为循环条件。在“文件读出”命令按钮的单击事件过程中，先用OPen语句打开考生文件夹下的随机文件dwl.dat,并通过计算得到随机文件现有记录数，存入变量RecNum:然后利用For循环语句（初值为1,终值为RecNum的值），用Get语句读入随机文件中相应记录号的记录，赋值给变量Pers,并

14、将变量Pers各元素的值用Print方法显示在窗体上。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口，去掉程序中的注释符卬“，将问号“？”改为正确的内容。步骤2：按要求将文件保存至考生文件夹中。第52套试题答案及详解一、基本操作题第1小题【审题分析】本题只需按题目要求利用VB菜单设计器建立一个二级菜单即可。【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工具】T【菜单编辑器】命令，打开菜单设计器。漏.国计算机等级考试新版上机考试题库.T三11二级ViSUalBasic步骤2：在“标题”栏中输入“文件”，在“名称”栏中输入mnuFile；单击“下一个”按

15、钮，在“标题”栏中输入“帮助”，在“名称”栏中输入mnuHelp；单击“下一个，按钮，再单击编辑区的“右箭头”按钮，在标题”栏中输入“打开”，在“名称栏中输入mnuFileOpcn：单击“下一个”按钮，在“标题”栏中输入“关闭”，在“名称”栏中输入mnuFileClose；单击“下一个”按钮，在“标题”栏中输入“退出”，在“名称栏中输入mnuFileExit,；选定“帮助”项，单击编辑区的“下箭头”按钮，将其移至所有菜单项的下面。步骤3：按要求将文件保存至考生文件夹中。【考试误区】分清标题和名称及菜单项间的层次关系。第2小题【知识点播】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行

16、时，选择某菜单项将触发其Click事件。【审题分析】要实现本题中的功能，应在“显示”菜单项的Click事件过程中，将字符串VisualBasic赋值给文本框的Text属性，在“清除”菜单项的Click事件过程中，设置文本框的Text属性值为空白。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中加入一个文本框，在属性设置窗口中将其Name属性值设置为TxthText属性设置为空白。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器。步骤3：在“标题”栏中输入“操作”，在“名称”栏中输入mnuOp；单击吓一个，按钮，再单击编辑区的“右箭头”按钮，在“标题”栏中输入“显示”，在

17、“名称”栏中输入mnuOpDis；单击“下一个，按钮，在“标题”栏中输入“清除”，在“名称”栏中输入mnuOpClso步骤4：单击窗体Forml的“操作”菜单下的“显示”项，在打开的代码编辑窗口中输入代码。步骤5：单击代码编辑窗口中的对象下拉列表框，从中选择mnuOpCls,在其Click事件过程中输入代码：TxtLText=nnO步骤6：按要求将文件保存至考生文件夹中。【考试误区】清除文本框中所显示的信息是通过设置Text属性来实现的，文本框没有Cls方法。二、简单应用题第1小题【审题分析】本题通过计时器来控制火箭移动。单击“发射”按钮时启动计时器，在计时器的Timer事件过程中，如果火箭尚

18、未抵达云层(即PicLTopPic2.TopPic2.Height),则通过Move方法，使火箭(图片框PicD每次加速上移，否则通过停止计时器来停止火箭上移。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj3.vbp,设置计时器的Enabled属性值为False,Interval属性值为100o步骤2：在代码编辑窗口，去掉程序中的注释符“7将问号“？”改为正确的内容。参考代码：Tmrl.Enabled=TrueIfPicl.TopPic2.Top+Pic2.HeightThenTmrl.Enabled=False步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】本题程序设计

19、思路：在“移动”按钮的单击事件过程中，首先判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条Max属性值的限制，若是则弹出消息框显示“输入的数值太大”；否则接着判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条Min属性值的限制，若是则弹出消息框显示“输入的数值太小”，否则设置滚动条的Value属性值为原有Value属性值加上文本框中的输入值。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp,在代码编辑窗口，去掉程序中的注释符卬，将问号“？”改为正确的内容。步骤2：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本

20、题源程序已提供Writedate自定义过程，需编写“读数”、“计算”和保存命令的单击事件过程。程序设计思路：在“读数”按钮的单击事件过程中，用OPen语句以InPUt方式打开数据文件drl.dat,通过For循环语句(初值为1,终值为100)将数据文件中的数据用InPUt语句依次读出并赋值给数组元素arr(i),同时显示在文本框中，为使数据间保持一定间隔，每个数据后用SPaCe(5)加入5个空格；在“计算”按钮的Click事件过程中，利用For循环语句(循环变量i的初值为1,终值为100)依次将数组arr中小于或等于300的元素的值显示在文本框中(条件表达式为：arrv=300),并将其值累加

21、到变量Sum,循环结束后将结果显示在窗体上。在“保存”按钮的Click事件过程中，通过调用WriteData过程将文本框中的值写入数据文件dwl.dat0【操作步骤】步骤1：新建一个“标准EXE”工程，按下表在窗体中画出控件并设置其相关属性。表对象属性值文本框NameTxtlMultiLineTrueScrollBars2Text命令按钮1NameCmdlCaption读数命令按钮2NameCmd2Caption计算命令按钮3NameCmd3Caption保存步骤2：选择【工程】【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas添加到当前工程中。步骤3：在代码编辑窗口编写

22、以下事件过程。参考代码：Dimarr(1To100)AsIntegerPrivateSubCmdl_Click()Txtl.Text=,OpenApp.Path&drl.datForInputAs#1Fori=1To100Input#1,arr(i)Txtl.Text=Txtl-Text&arr(i)&Space(5)NextClose#1EndSubPrivateSubCmd2_Click()DimsumAsIntegerFori=1To100Ifarr(i)=300Thensum=sum+arr(i)EndIfNextTxtl.Text=sumEndSubPrivateSubCmd3_Cl

23、ick()writedatadwl.datzTxtl.TextEndSub步骤4：按要求将文件保存至考生文件夹中。第53套试题答案及详解一、基本操作题第1小题【审题分析】要实现本题要求的功能，只需在命令按钮的单击事件过程中，设置命令按钮的Left属性值增加50o【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体中画一个名Cmdl命令按钮，并设置其Caption属性值为“移动按钮步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSubCmdl_Click()Cmdl.Left=Cmdl.Left+50EndSub步骤3：按要求将文件保存至考生文件夹中。第2小

24、题【审题分析】本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体FOrmI中画一个标签，在属性设置窗口中将其Name属性值设置为Labl,Caption属性设置为空白,BorderStyle属性设置为1-FixedSingle0步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，按表53-1中的设置建立菜单项。表53-1标题名称内缩符号操作mnup0显示mnu0Dis1隐藏mnuOpHide1步骤3：打开代码编辑窗口，编写以下事件过程：参考代码：PrivateSubmnuOpDis_Click()1.abl.Vi

25、sible=True1.abl.Caption=二级VisualBasicEndSubPrivateSubmnuOpHide_Click()1.abl.Visible=FalseEndSub步骤4：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【知识点播】KeyPreVieW属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件，键盘事件有KeyDownKeyUp和KeyPresSoKeyDOWn(KeyCOdeASlnteger,ShiftasInteger)事件是在对象具有焦点时，按下键盘上的键时触发该对象的事件，其中KeyCode参数是表示所按键的位置信息的代码，Shift参数代

26、表按键时Shift.CtrkAlt键的状态。【审题分析】本题程序设计思路：在窗体的KeyDown事件过程中，先后用两个If语句判断当前键盘上按下的是否是A键或D键，若是A键则通过输入框输入内容，显示在文本框中，并添加到列表框中；若是D键则通过输入框输入内容，显示在文本框中，利用For循环语句逐一判断列表框中的各项是否与文本框中的内容一致，若一致则删除该项目。ListCount属性可返回列表框中当前的列表项总数，由于循环的初值为0,故终值就应为LstLListCount-L【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj3.vbp,按表53-2在窗体中画出控件并设置其相关属性。表53-2

27、对象属性值列表框NameLstl文本框NameTxtlText空白步骤2：在代码编辑窗口，去掉程序中的注释符“叱将问号“？”改为正确的内容。参考代码：Lstl.AddItemTxtl.TextFori=0ToLstl.ListCount-1IfLstl.List(i)=Txtl.TextThenLtl.RemoveItemi步骤3：按要求将文件保存至考生文件夹中。第2小题【知识点播】Trim函数用于删除字符串左右两边的空格；Right()函数用于取出已有字符串最右边指定个数的字符串；LeR()函数用于取出已有字符串最左边指定个全国计算机等级考试新版上机考试题库/二级ViSUalBasic数的字

28、符串；Mid(字符串,起始位置,个数D函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。【审题分析】本题源程序的中心设计思想是：将文本框TXtI中的字符串按组合框中所选要求进行截取并放入文本框Txt2中。源程序以组合框列表项的索引号(即ListIndex属性值)作为SelectCase语句的判断表达式，故第1个？处应为CboLListIndex;组合框中第三项要求截取第36个字符，其实就是从字符串的第3个字符开始，截取4个字符，故Mid函数的第2、3个参数应为3和4；最后的？处是将截取结果显示在文本框中，故应为tmpStro【操作步骤】步骤1：打开考生文件中的本题工程文件vbs

29、j4.vbp,在代码编辑窗口，去掉程序中的注释符，“，将问号“？”改为正确的内容。参考代码：SelectCaseCbol.ListindextmpStr=Mid(Trim(Txtl.Text),3,4)Txt2.Text=tmpStr步骤2：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题源程序中已包含一个能判断一个数是否为素数的函数isprimeo因此本题在利用If语句判断单选按钮选中情况的基础上，可以通过循环调用isprime函数来判断指定范围内素数的和。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口，去掉程序中的注释符“叱将问号“？”改为

30、正确的内容。步骤2：按要求将文件保存至考生文件夹中。第54套试题答案及详解一、基本操作题第1小题【审题分析】双击列表框中的某个项目，将触发其DblClick事件，要实现双击列表框中的某一项，则将文本框中内容添加到列表框中的功能，只需在DblClick事件过程中编写用AddItem方法添加项目的语句即可。【操作步骤】步骤1：新建一个“标准EXE”工程，按表54-1在窗体中画出控件并设置其相关属性。表54-1对象属性值列表框NameLstlList项目1、项目2、项目3、项目4文本框NameTxtlText空白步骤2：打开代码编辑窗口，编写列表框的DblClick事件过程。参考代码：Private

31、SubLstl_DblClick()1.stl.AddItemTxtl.TextEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】要实现单击“输出按钮，则将文本框中内容显示在窗体上的功能，只需在按钮的Click事件过程中编写用Print方法输出文本框中内容。【操作步骤】步骤1：新建一个“标准EXE”工程，按表54-2在窗体中画出控件并设置其相关属性。表54-2对象属性值命令按钮NameCmdlCaption输出文本框NameTxtlText空白步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSubCmdl_Click（）PrintTxt

32、l.TextEndSub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【知识点播】在实际应用中，较为复杂的应用程序通常由多个窗体组成，且可设置其中一个为启动窗体，只有启动窗体才能在运行程序时自动加载并显示出来。与多窗体操作有关的语句和方法主要有：1.oad语句：该语句用于将一个窗体装入内存，其语法格式为：Load窗体名称。Unload语句：该语句用于卸载内存中指定的窗体，与Load语句的功能相反。其语法格式为：Unload窗体名称。注意：一般用“me”代表当前窗体。ShoW方法：该方法用于加载并显示一个窗体，其语法格式为：窗体名称.Show模式。其中模式可选项的取值为0（默认值

33、）或1,当值为1时，窗体为模态，此时用户不能对其他窗体进行操作，直到该窗体关闭为止。Hide方法：该方法用于将窗体隐藏起来，其语法格式为：窗体名称.Hide。在多个窗体组成的程序中，可以在一个窗体中读取另一个窗体中控件的属性值，其语法格式为：窗体名称.控件名称.属性名称。窗体的ControlBox属性用于设置在窗体标题栏左侧是否显示控制按钮，该属性在运行时为只读。如果要显示控制按钮除应将ControlBox属性值设置为True,还必须将窗体的BorderStyIe属性值设置为1（固定单边框）、2（可变尺寸）或3（固定对话框）。文本框的PasswordChar属性常用于设置用某字符（如*）屏蔽用

34、户在文本框中键入的内容，常用于口令输入，要使PasswordChar属性有效，Multiline属性的值必须设置为False。【审题分析】本题源程序设计思路：程序运行时，在Forml启动窗体中输入和选择相关内容后，单击“提交”按钮时，加载并显示Form2（故单击事件过程中第1个？处应为Show）,并用Print方法将Fonnl中各控件的标题内容显示在Form2中（故第2个？处应为Caption）o在“性别”选择上，源程序利用For循环逐一判断单选按钮组中的两个元素是否（If）被选中，选中的依据是当前单选按钮的Value属性值为True,选中的单选按钮的标题将被显示（故第3个？处应为k）o漏.国

35、计算机等级考试新版上机考试题库.T三11二级ViSUalBasic本题在“密码”框中显示“”字符的设置不是在设计阶段完成的，而是在程序运行时通过代码来实现的，故在窗体Forml的Load事件过程中应将？处改为PasswordCharo【操作步骤】步骤1：打开考生文件夹中的本题工程文件vbsj3.vbpo步骤2：选中Forml窗口，将其Caption属性设置为“注册”。步骤3：选中Form2窗口，将其Caption属性设置为“确认”，ControllBox属性设置为False0步骤4：打开代码编辑窗口，去掉程序中的注释符“叱将问号“？”改为正确的内容。参考代码：Form2.ShowForm2.P

36、rintForml.Framel.Caption；,：,；IfForml.Optl（k）.ValueThenTxt2.PasswordChar=n*步骤5：按要求将文件保存至考生文件夹中。【考试误区】正确把握程序设计思路是解决本题的关键。第2小题【审题分析】本题通过计时器的Timer事件来控制直线控件的位置，从而实现钟表上的指针走时的功能。为使计时器的Timer事件每秒激活一次和程序刚运行时钟表指针不动，需将计时器的InterVal属性值设置为1000,Enabled属性值设置为False0在“开始”按钮的单击事件过程中，通过设置计时器的Enabled属性值为True来启动计时器。在“停止”按

37、钮的单击事件过程中，通过设置计时器的Enabled属性值为False来停止计时器。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp,在属性设置窗口，设置计时器的Interval属性值为1000,Enabled属性值为Falseo步骤2：在代码编辑窗口，编写“开始”和“停止”按钮的单击事件过程。步骤3：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题源程序已提供ReadData和WriteData两个自定义过程，只需编写“读数”、“计算”和“保存”命令的单击事件过程，并在事件过程中调用ReadData和WriteData自定义过程。程序设计思路：在“读数”菜单项的

38、Click事件过程中，通过调用ReadData过程将数据从dwl.dat文件读入到数组Arr（窗体变量）中；在“计算”菜单项的Click事件过程中，利用For循环语句（循环变量i的初值为1,终值为100,步长为2）依次将数组Arr中下标为奇数的元素的值显示在文本框中，并将其值累加到变量Sum,循环结束将结果显示在窗体上。在“保存”菜单项的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件dwLdato注意：调用WriteData过程时需传递参数dwl.dat和Sum,变量Sum应声明为窗体变量。【操作步骤】步骤1：打开考生文件下的本题工程文件vbsj5.vbp,利用菜

39、单设计器，按表54-3中的设置建立菜单项。表54-3标题名称内缩符号读数mnuRead0计算mnuCal0保存mnuSave0步骤2：在窗体Fonnl中画一个文本框，其相关属性及其值见表54-5o表54-5对象属性值文本框NameTxtlMultiLineTrueScrollBars2Text步骤3：在代码编辑窗口，分别编写“读数”、“计算”和“保存”按钮的Click事件过程。参考代码：PrivateSubmnuCal_Click()Fori=1To100Step2Txtl.Text=Txtl.Text&Arr(i)&Space(5)sum=sum+Arr(i)NextPrintsumEndS

40、ubPrivateSubmnuRead_Click()ReadDataEndSubPrivateSubmnuSave_Click()WriteDatadw291.datzsumEndSub步骤4：按要求将文件保存至考生文件夹中。第55套试题答案及详解一、基本操作题第1小题【审题分析】要实现本题所要求的功能应在“左端”、居中和“右端”3个命令按钮的单击事件过程中，设置水平滚动条的Value属性值分别与其Min属性值、Max属性值及Max/2值一致。【操作步骤】步骤1：新建一个“标准EXE”工程，按表55-1在窗体中画出控件并设置其相关属性。表55-1对象属性值水平濠动条NameHsblMin0M

41、ax100命令按钮1NameCmdlCaption左师命令按钮2NameCmd2Caption居中命令按钮3NameCmd3Caption石师步骤2：在代码编辑窗口，编写3个按钮的单击事件过程。步骤3：按要求将文件保存至考生文件夹中。【特别提示】如果水平滚动条的Min属性值不为0时，居中时应设置Value属性值为(Max+Min)2o全国计算机等级考试新版上机考试题库二级ViSUalBasic第2小题【审题分析】要实现本题中的功能，应在“体育按钮的Click事件过程中，用Print语句在窗体上输出“我喜欢体育”，在“美术”按钮的Click事件过程中，用Print语句在窗体上输出“我喜欢美术”。

42、【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中加入两个命令按钮，分别设置它们的相关属性，其属性及其值见表55-2o表55-2对象属性值按钮1NameCmdlCaption体育按钮2NameCmd2Caption美术步骤2：单击窗体Forml中的“体育”按钮，在打开的代码编辑窗口中，输入代码：Print”我喜欢体育”。步骤3：单击代码编辑窗口中的对象下拉列表框，从中选择Cmd2,在其Click事件过程中输入代码：Print”我喜欢美术”。步骤4：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【审题分析】本题其实就是编写“确定”按钮的单击事件过程。设计思路：由于单选按钮

43、数组选择的惟一性，可用一个If.Then.Else语句对可能出现的两种情况(OPtI或0pt2被选中)分别进行处理，为Txtl的FontName属性设置不同值；对于两个复选框可用两个If.Then.Else语句依次对其选中情况进行处理，若选中则将对应的FontUnderline属性值或FontItalic属性值设置为True,否则设置为False【操作步骤】步骤1：打开考生文件下的本题工程文件vbs3.vbp,在第一个框架中画两个单选按钮和第二个框架中画两个复选框，其属性及其值见表55-30表55-3对象属性值单选按钮1NameOptlCaption宋体单选按钮2Name0pt2Caption

44、隶书复选框1NameChklCaption下划线复选框2NameChk2Caption斜体步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。参考代码：PrivateSubCmdl_Click()IfOptl.Value=TrueThenTxtl.FontName=宋体UElseTxtl.FontName=”隶书”EndIfIfChkl.Value=1ThenTxtl.FontUnderline=TrueElseTxtl.FontUnderline=FalseEndIfIfChk2.Value=1ThenTxtl.FontItalic=TrueElseTxtl.FontI

45、talic=FalseEndIfEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】本题利用计时器来控制红、黄、绿灯间的循环切换。在“开始”按钮的单击事件过程中，将根据两个水平滚动条的Value属性值，来分别设定红灯和绿灯亮的时间数（用变量red和green记录）。在每次触发的计时器Timer事件时，首先判断当前红灯是否亮（即PicR是否显示），若红灯亮则将设定的红灯时间red减1,并再次判断red的值是否为0,若为0则红灯灭黄灯亮（即PicR不显示，PicY显示）；如果当前是黄灯亮（即PicY显示），则黄灯灭（即PicY不显示），此时若red为0,则绿灯亮（即PicG显示）且重新设定red,否则红灯亮（即PicR显示）且重新设定green；如果当前是绿灯亮（即PicG显示），则将设定的绿灯时间green减1,并再次判断green的值是否为0,若为0则绿灯灭黄灯亮（即PicG不显示，PicY显示）。【操作步骤】步骤1：打