全国计算机等级考试二级VB模拟试卷机试(一)

全国计算机等级考试二级VB模拟试卷机试（一）1．基本操作（2小题，每小题15分，共计30分）注意：下面出现的考生文件夹均为c:\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为操作，名称为Op，该菜单有两个子菜单，其标题分别为显示和清除，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击操作菜单中的显示命令，则在图片框中显示计算机考试；如果单击清除命令，则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。图15-1图15-2（2）在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为早上好、上午好、中午好和下午好。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图15-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。图15-32．简单应用（2小题，每题20分，计40分）注意：下面出现的考生文件夹均为c:\wexam\25160001。（1）在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有三个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮CMDstart和CMDexit，程序运行后，单击开始按钮，程序自动利用循环计算1+1/2+1/3+...+1/10的结果，并把结果写入到考生文件夹下result.txt文件中。执行完毕开始按钮变成完成，且无效（变灰）。程序运行界面如图15-4所示。图15-4PrivateSubCmdEXIT_Click()EndEndSubPrivateSubCmdstart_click()DimEAsSingle,JAsIntegerDimTAsSingle'OpenApp.Path&?For?As?'E=?T=1ForJ=2To10Step1T=1/JE=E+TNextJ'Write#1,?Close#1'CMDSTART.Caption=?'CMDSTART.Enabled=?EndSub答案：PrivateSubCMDEXIT_Click()EndEndSubPrivateSubCMDstart_click()DimEAsSingle,JAsIntegerDimTAsSingleOpenApp.Path&\&result.txtForOutputAs#1E=1T=1ForJ=2To10Step1T=1/JE=E+TDebug.PrintT,ENextJWrite#1,EPrintEClose#1CMDSTART.Caption=完成CMDSTART.Enabled=FalseEndSub（2）在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：程序启动时文本框的默认文字为请输入您要设置的文本，默认的字体为仿宋_GB2312，字号为五号。程序运行过程中可以修改文本框的内容在单击初始化时恢复启动时的状态；在单击清除后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。图15-5OptionExplicitPrivateSubCommand1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.Value=True'Text1.Text=?EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubOption1_Click()Text1.FontName=仿宋_GB2312EndSubPrivateSubOption2_Click()'Text1.FontName=?EndSubPrivateSubOption3_Click()Text1.FontName=隶书EndSubPrivateSubOption4_Click()Text1.FontName=黑体EndSubPrivateSubOption5_Click()Text1.FontSize=5.5EndSubPrivateSubOption6_Click()'Text1.FontSize=?EndSubPrivateSubOption7_Click()Text1.FontSize=16EndSubPrivateSubOption8_Click()Text1.FontSize=42EndSub答案：OptionExplicitPrivateSubCommand1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.Value=True'Text1.Text=?EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubOption1_Click()Text1.FontName=仿宋_GB2312EndSubPrivateSubOption2_Click()'Text1.FontName=?EndSubPrivateSubOption3_Click()Text1.FontName=隶书EndSubPrivateSubOption4_Click()Text1.FontName=黑体EndSubPrivateSubOption5_Click()Text1.FontSize=5.5EndSubPrivateSubOption6_Click()'Text1.FontSize=?EndSubPrivateSubOption7_Click()Text1.FontSize=16EndSubPrivateSubOption8_Click()Text1.FontSize=42EndSub3．综合应用（1小题，计30分）注意：下面出现的考生文件夹均为c:\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件prog8a.dat存放一些字符。按开始按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；执行完毕，开始按钮变成完成，且无效（变灰）。程序运行界面如图15-6所示。图15-6PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimChAsString,NumberAsInteger,CpAsInteger,LpAsInteger,OthersAsIntegermyfile1=App.Path&\&prog8a.datmyfile2=App.Path&\&prog8b.dat'Openmyfile1For?As#1'Openmyfile2For?As#2WhileNotEOF(1)'Input?,Ch$IfAsc(Ch$)=48AndAsc(Ch$)=57ThenNumber=Number+1ElseIfAsc(Ch$)=65AndAsc(Ch$)=90ThenCp=Cp+1ElseIfAsc(Ch$)=97AndAsc(Ch$)=122ThenLp=Lp+1Else'Others=?EndIfWend'Print?,Number,Cp,Lp,OthersClose'COMSTART.Caption=?'COMSTART.Enabled=?EndSub答案：PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimChAsString,NumberAsInteger,CpAsInteger,LpAsInteger,OthersAsIntegermyfile1=App.Path&\&prog8a.datmyfile2=App.Path&\&prog8b.datOpenmyfile1ForInputAs#1Openmyfile2ForOutputAs#2WhileNotEOF(1)Input#1,Ch$IfAsc(Ch$)=48AndAsc(Ch$)=57ThenNumber=Number+1ElseIfAsc(Ch$)=65AndAsc(Ch$)=90ThenCp=Cp+1ElseIfAsc(Ch$)=97AndAsc(Ch$)=122ThenLp=Lp+1ElseOthers=Others+1EndIfWendPrint#2,Number,Cp,Lp,OthersCloseCOMSTART.Caption=完成COMSTART.Enabled=FalseEndSub试题评析：1．基本操作（1）解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。主菜单由单击右键选择菜单编辑器来创建，通过Print方法在窗体或图片框中打印信息，通过Cls方法清除图片框中的信息。Cls方法清除运行时Form或PictureBox所生成的图形和文本。语法：object.Clsobject代表一个对象表达式。如果省略object，则默认为当前的Form窗体。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件和属性设置见表15-1。表15-1控件属性设置值菜单名称标题Op操作菜单名称标题Dis显示菜单名称标题Clea清除图片框NameP1第二步：编写程序代码。参考代码：PrivateSubClea_Click()P1.ClsEndSubPrivateSubDis_Click()P1.Print计算机考试EndSub第三步：调试并运行程序。第四步：按题目要求存盘。（2）解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。列表框的内容由属性List来设置，再程序中添加项要通过AddItem方法来实现，鼠标双击触发控件的DblClick事件。AddItem方法用于将项目添加到ListBox或ComboBox控件，其语法格式为：object.AddItemitem,indexobject必需的。一个对象表达式。item必需的。字符串表达式，它用来指定添加到该对象的项目。inde