2011全国计算机等级考试上机考试新版题库VB后50题答案

105第 50套试题答案及详解一、基本操作题第 1 小题【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的FontName属性值为“楷体_GB2312”来改变文本框中文本的字体。【操作步骤】步 骤 1：新建一个“标准EXE”工程，按表50-1在窗体中画出控件并设置其相关属性。表 50对象属性值文本框NameTxtlText二级 Visual BasicFont宋体命令按钮NameCmdlCaption改变字体为楷体步 骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：Private Sub Cmdl_Click()Txtl.FontName=楷体 _GB2312”End Sub步 骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】要使命令按钮位于窗体左上角需将其Top属性值和Left属性值设置为0；要在单击一次窗体后，命令按钮同时向右、向下移动1 0 0,需在窗体的单击事件过程中,设置命令按钮的T op属性值和Left属性值各增加100o【操作步骤】步 骤 1：新建一个“标 准 EXE”工程，按 表 50-2在窗体中画出控件并设置其相关属性。表 50-2表 50-2 Top 0对象届性值命令按钮NameCmdlCaption移动Left0步 骤 2：打开代码编辑窗口，编写命令按钮的C lick事件过程。参考代码：PrivateSub Cmdl_Click()Cmd l.Left=Cmd l.left+100Cmd 1 .Top=Cmd 1 .Top+100End Sub步 骤 3：按要求将文件保存至考生文件夹中。二、简单应用题第 1 小题【审题分析】根据题目要求，要在程序运行时能每隔1 秒，标签中的数字加1,需将计时器的Interval属性值设置为1000毫秒，Enabled属性值设置为T r u e,在计时器的Timer事件过程中将标签中的数值加1。106【操作步骤】步 骤 1：新建一个“标 准 EXE”工程，按 表 50-3在窗体中画出控件并设置其相关属性。表 50-3对象属性值标签NameLatilCaption0Border Style1 -Fixed Single计时器NameTmrlInterval1000EnabledTrue步 骤 2：双击窗体上的计时器控件，在 其 Timer事件过程中加入以下代码：参考代码：Private Sub Tmrl_Timer()Lab I.Caption=Lab I.Caption+1End Sub步 骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用For循环语句(循环 变 量 k 的初值为0,终 值 为 3)逐一检查单选按钮数组中的每个元素是否被选中，若选中则用变量n 记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，且 变 量 n 增 1；接着判断n 的值是否为4,若是则将n 的值置为0,重新从单选按钮数组的第1 个元素开始；最后设置索引号为n 的单选按钮被选中。【操作步骤】步 骤 1：打开考生文件中的本题工程文件vbsj4.vbp,按 表 50-4在窗体中用“复制”和“粘贴”命令画出包含4 个元素的单选数组和1 个命令按钮并设置属性。表 50-4表5(M对象属性值命令按钮NameCmdlCaption下一个单选按钮1NameOptlIndex0CaptionA单选按钮2NameOptlIndex1CaptionB单选按钮3NameOptlIndsz2CaptionC单选按钮4NameOptlIndex3CaptionD步 骤 2：打开代码编辑窗口，去 掉 程 序 中 的 注 释 符，将问号“？”改为正确的内容。参考代码：Private Sub Cmdl_Click()For k=0 To 3If Opt l(k).Value Then107n=kEnd IfNext kOpt l(n).Value=Falsen=n+1If n=4 Thenn=0End IfOpt l(n).Value=TrueEnd Sub步 骤 3：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执行运算前用Vai函数将文本框中数字字符串转换为数值数据。【操作步骤】步 骤 1：新建一个“标 准 EXE”工程，按 表 50-5在窗体中画出控件并设置其相关属性。表 50-5表 50-5对象屉性值窗体NameFormlCaption模拟售货机标 签 1NameLabiCaption货物的数量（个）：标 签 2NameLab2Caption货物的单价（元）：文本框1NameTxtlText文本框2NameTxt2Text命令按钮NameCmdlCaption总价图片框NamePiel步 骤 2：打开代码编辑窗口，编 写“总价”命令按钮的单击事件过程。参考代码：Private Sub Cmdl_Click()Dim num As IntegerDim rmb As Currencynum=Val(Txtl.Text)rmb=Val(Txt2.Text)Piel.CisPiel.Print num*rmbEnd Sub步 骤 3：按要求将文件保存至考生文件夹中。第 51套试题答案及详解一、基本操作题第 1 小题【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的108Change 事件过程中执行语句：Form 1 .Print Hsb 1.Value【操作步骤】步 骤 1：新建一个“标准EXE”工程，在 窗 体 Form l中画一个水平滚动条，其属性及其值见表51-1。表 51-1表 51-1对象属性值水平滚动条NameHsblMax300Min0步 骤 2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：Private Sub Hsbl_Change()Form 1.Print Hsb 1 .ValueEnd Sub步 骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】木题只需按要求在窗体上画出控件并设置其属性，并在按钮的C lick事件过程中用图片框的Print语句输出“这是一个图片框”。【操作步骤】步 骤 1：新建一个“标准EXE”工程，在 窗 体 Form l中画一个图片框和一个命令按钮,其属性及其值见表51-2。表 51-2对象属性值图片框NamePiel命令按钮NameCmdlCaption显不步 骤 2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：Private Sub Cmdl_Click()Piel.Print”这是一个图片框”End Sub步 骤 3：按要求将文件保存至考生文件夹中。二、简单应用题第 1 小题【审题分析】本 题“计算”按钮单击事件过程源代码的设计思路：先用两变量a 和 b分别记录在两个文本框输入的数据，并通过比较大小，使 变 量 b 的值始终大于变量a 的值，t 为交换变量a 和 b 值的中间变量。然后利用For循 环(循 环 变 量 i 的初值为a,终值为 b),将 i 的值逐个累加到变量s,循环结束时将变量s 的值显示在文本框中。【操作步骤】步 骤 1：打开考生文件下的本题工程文件vbsj3.vbp,在代码编辑窗口，编 写“计算”按 钮 的 C lick事件过程。参考代码：b=is=s+i步 骤 2：按要求将文件保存至考生文件夹中。109第 2 小题【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设置，只需按题目要求完善其他相关事件过程。由于标签在窗体上的移动是在计时器的Timer事件过程中完成的，单 击“开始”按钮时就应启动计时器，因 此 Cmdl_Click事件过程中的 第 1 个？处 应 为 True；要禁用“开始”按钮就应设置其Enabled属性值为F alse,第 2个？处应为False单 击“停止”按钮时要停止标签移动，就是要停止计时器，故 Cmd2_Click事件过程中 的 第 3 个？处 应 为 F alse,在 Tmrl_Timer事件过程中，要让标签每次自左至右移动50,可在每个时间间隔使标签的L eft属性值在原有基础上加5 0 来实现，故该事件过程中第4个？处应改为：Labl.Left+50；为防止标签移出窗体，在执行移动语句前先用IfThenE lse对其位置进行判断。【操作步骤】步 骤 1：打开考生文件下的本题工程文件vbsj4.vbp,在代码编辑窗口，去掉程序中的注释符，将 问 号“？”改为正确的内容。参考代码：Tmrl.Enabled=TrueCmd 1 .Enabled=FalseTmrl.Enabled=FalseLabi.Left=Lab 1 .Left+50步 骤 2：按要求将文件保存至考生文件夹中。三、综合应用题【知识点播】L O F函数可返回个用O pen语句打开的文件的大小，该大小以字节为单位，返回值为Long数据类型。【审题分析】本题源程序设计思路：在“文件写入”命令按钮的单击事件过程中，先用 O pen语句打开考生文件夹下的随机文件dw l.dat,并通过计算得到随机文件现有记录数，存入变量RecNum；然 后 在 D。循环中，为自定义数据类型变量P ers的各元素赋值，用 P u t语句将该变量的值写入打开的随机文件中（记录号为RecNum+1）,并通过输入对话框询问是否要再输入新记录，D。循环以输入对话框中返回值为“Y（或 y”）作为循环条件。在 文件读出 命令按钮的单击事件过程中，先 用 Open语句打开考生文件夹下的随机文 件 dw l.dat,并通过计算得到随机文件现有记录数，存入变量RecNum；然后利用For循环语句（初 值 为 1,终 值 为 RecNum的值），用 G et语句读入随机文件中相应记录号的记录，赋值给变量P e rs,并将变量P ers各元素的值用Print方法显示在窗体上。【操作步骤】步 骤 1：打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口，去掉程序中的注释符，将 问 号“？”改为正确的内容。步骤 2：Pers.Name=InputBox（请输入姓名）Pers.Tel=InputBox（请输入电话”）Pers.Pos=InputBox（请输入邮政编码）RecNum=RecNum+1Put#1,RecNum,Persasp=InputBox（MMore（Y/N）?n）Loop While UCase（asp）=nYClose 1End SubPrivate Sub Cmd2_Click()Open dwl.dat For Random As#1 Len=Len(Pers)RecNum=LOF(1)/Len(Pers)CisFor i=1 To RecNumGet#1,i,PersPrint Pers.Name;Pers.Tel;Pers.Pos第 52套试题答案及详解一、基本操作题第 1 小题【审题分析】本题只需按题目要求利用【操作步骤】步 骤 1：新建一个“标 准 EXE”工程,单设计器。110步 骤 2：在“标题”栏中输入“文件”按钮，在“标题”栏中输入“帮助”，V B 菜单设计器建立一个二级菜单即可。选 择【工具】【菜单编辑器】命令，打开菜,在“名称”栏中输入mnuFile；单击 下一个在“名称”栏中输入mnuHelp；单 击“下一个”按钮，再单击编辑区的“右箭头”按钮，在“标题”栏中输入“打开”，在“名称”栏中输入 mnuFileOpen；单 击“下一个”按钮，在“标题”栏中输入“关闭”，在“名称”栏中输 入 mnuFileClose；单 击“下一个”按钮，在“标题”栏中输入“退出”，在“名称”栏中 输 入 m nuFileExit,；选 定“帮助”项，单击编辑区的“下箭头”按钮，将其移至所有菜单项的下面。步 骤 3：按要求将文件保存至考生文件夹中。【考试误区