《全国计算机等级考试二级VB模拟试卷机试》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB模拟试卷机试（12页珍藏版）》请在金锄头文库上搜索。
1、2011年9月全国计算机等级考试二级VB模拟试卷机试（预测版）1 .基本操作（2小题，每小题15分，共计30分）注意：下面出现的考生文件夹均为c:wexam25160001。请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为操作，名称为Op,该菜单有两个子菜单，其标题分别为显示和清除，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击操作菜单中的显示命令，则在图片框中显示计算机考试；如果单击清除命令，则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。注意：存
2、盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。程序中不得使用任何变量。/ Forml潘馀-r-n|x|图 15-2图 15-1（2）在Form1的窗体上画一个列表框，名称为L1,通过属性窗口向列表框中添加4个项目，分别为早上好、上午好、中午好和下午好”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图15-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。图 15-32 .简单应用（2小题，每题20分，计40分）注意：下面出现的考生文件夹均为c:wexam25160001。（1）在考生
3、文件夹下有工程文件及窗体文件，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有三个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮CMDstart和CMDexit,程序运行后，单击开始按钮，程序自动利用循环计算1+1/2+1/3+.+1/10的结果，并把结果写入到考生文件夹下文件中。执行完毕开始按钮变成完成，且无效（变灰）。程序运行界面如图15-4所示。利用抵*也铺出1四*一一+1九口的粉%齐U奥站里写入II盲文特申三出图15-4PrivateSubCm
4、dEXIT_Click()EndEndSubPrivateSubCmdstart_click()DimEAsSingle,JAsIntegerDimTAsSingleOpenApp.Path&?For?As?E=?T=1ForJ=2To10Step1E=E+TNextJWrite#1,?Close#1CMDSTART.Caption=?CMDSTART.Enabled=EndSub答案：PrivateSubCMDEXIT_Click()EndEndSubPrivateSubCMDstart_click()DimEAsSingle,JAsIntegerDimTAsSingleOpenApp.Pa
5、th&result.txtForOutputAs#1E=1T=1ForJ=2To10Step1T=1/JE=E+TDebug.PrintT,ENextJWrite#1,EPrintEClose#1CMDSTART.Caption=完成CMDSTART.Enabled=FalseEndSub（2）在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：程序启动时文本框的默认文字为请输入您要设置的文本”，默认的字体为仿宋_GB2312”,字号为五号。程序运行过程中可以修改文本
6、框的内容在单击初始化时恢复启动时的状态；在单击清除后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。图15-5OptionExplicitPrivateSubCommand1_Click()Optionl.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=?EndSubPrivateSubCommand3_C
7、lick()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubOption1_Click()Text1.FontName=仿宋_GB2312”EndSubPrivateSubOption2_Click()Text1.FontName=?EndSubPrivateSubOption3_Click()Text1.FontName=隶书EndSubPrivateSubOption4_Click()Text1.FontName=黑体EndSubPr
8、ivateSubOption5_Click()Text1.FontSize=5.5EndSubPrivateSubOption6_Click()Textl.FontSize=?EndSubPrivateSubOption8_Click()Text1.FontSize=42EndSub答案：OptionExplicitPrivateSubCommand1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.
9、Value=TrueText1.Text=?EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=请输入您要设置的文本EndSubPrivateSubOption1_Click()Text1.FontName=仿宋_GB2312EndSubPrivateSubOption2_Click()Text1.FontName=?EndSubPrivateSubOption3_Click()Text1.FontName=隶书EndSubPri
10、vateSubOption4_Click()Text1.FontName=黑体EndSubPrivateSubOption5_Click()Text1.FontSize=5.5EndSubPrivateSubOption6_Click()Text1.FontSize=?EndSubPrivateSubOption7_Click()Text1.FontSize=16EndSub3.综合应用（1小题，计30分）注意：下面出现的考生文件夹均为c:wexam25160001。在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其
11、他部分。存盘时不彳#改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Forml的窗体上有五个Label控件和两个命令按钮，数据文件存放一些字符。按开始按钮后，能从考生文件夹下的中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的文件中（以标准格式在一行中输出）；执行完毕，开始按钮变成完成，且无效（变灰）。程序运行界面如图15-6所示。点父件离文件中述出看牌潴计字将由与入目赛友怦ADAT目后文件：辛itS件五DATk二二镁二二1讴出_I图15-6PrivateSubCOMEXIT_Click()EndEnd
12、SubPrivateSubCOMSTART_Click()DimChAsString,NumberAsInteger,CpAsInteger,LpAsInteger,OthersAsIntegermyfile1=App.Path&prog8a.datmyfile2=App.Path&prog8b.datOpenmyfile1For?As#1Openmyfile2For?As#2WhileNotEOF(1)Input?,Ch$IfAsc(Ch$)=48AndAsc(Ch$)=65AndAsc(Ch$)=97AndAsc(Ch$)=48AndAsc(Ch$)=65AndAsc(Ch$)=97And
13、Asc(Ch$)=122ThenLp=Lp+1ElseOthers=Others+1EndIfWendPrint#2,Number,Cp,Lp,OthersCloseCOMSTART.Caption=完成COMSTART.Enabled=FalseEndSub试题评析：1 基本操作（ 1） 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。主菜单由单击右键选择菜单编辑器”来创建，通过Print方法在窗体或图片框中打印信息，通过Cls方法清除图片框中的信息。Cls方法清除运行时Form或PictureBox所生成的图形和文本。语法：object代表一个对象表达式。如果省略object,则默认为当前的
