1、二级 VISUAL+BASIC 机试-128 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c：/wexam/25160001。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在 Form1 的窗体上画一个名称为 P1 的图片框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为 Dis 和 Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“计算机考试”；如
2、果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图 15-1 和图 15-2 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。程序中不得使用任何变量。(2) 在 Form1 的窗体上画一个列表框，名称为 L1，通过属性窗口向列表框中添加 4 个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图 15-3 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 s
3、jt2.frm。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有工程文件 sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为 Form1 的窗体上有三个 Labe1 控件和两个命令按钮，Labe1 控件均为提示信息。命令按钮 CMDstart 和 CMDexit，程序运行后，单击“开始”按钮，程序自动利用循环计算11/21/
4、3.1/10 的结果，并把结果写入到考生文件夹下 result.txt 文件中。执行完毕“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图 15-4 所示。(2) 在考生文件夹下有工程文件 sit4.vbp 及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：程序启动时文本框的默认文字为“请输入您要设置的文本”，默认的字体为“仿宋 GB2312”，字号为五号。程序运行过程中可以修改文本框的内容在单击“初始化”时恢复启动时的状态；在单击“清除”后，文本框的内容为空，并
5、恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图 15-5 所示。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。在考生文件夹下有工程文件 sjt5.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分乙存盘时不得改变文件名和文件夹，相应的 dat 文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为 Form1 的窗体上有五个 Labe1 控件和两个命令
6、按钮，数据文件 prog8a.dat 存放一些字符。按“开始”按钮后，能从考生文件夹下的 prog8a.dat 中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的 prog8b.dat 文件中(以标准格式在一行中输出)；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图 15-6 所示。（分数：30.00）_二级 VISUAL+BASIC 机试-128 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c：/wexam/25160001。请根据以下各
7、小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在 Form1 的窗体上画一个名称为 P1 的图片框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为 Dis 和 Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“计算机考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图 15-1 和图 15-2 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。程序中不得使用任何变量。(2) 在
8、 Form1 的窗体上画一个列表框，名称为 L1，通过属性窗口向列表框中添加 4 个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图 15-3 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。主菜单由单击右键选择“菜单编辑器”来创建，通过 Print 方法在窗体或图片框中打印信息，通过 Cls 方法清除图片框
9、中的信息。Cls 方法清除运行时 Form 或 PictureBox 所生成的图形和文本。语法：Object.Clsobject 代表一个对象表达式。如果省略。object，则默认为当前的 Form 窗体。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件和属性设置见表 15-1。 表 15-1控 件 属 性 设 置 值菜单 名字 标题 Op 操作菜单 名字 标题 Dis 显示 菜单 名字 标题 Clea 清除 图片框 Name P1第二步：编写程序代码。参考代码：Private Sub Clea_Click()P1.ClsEnd SubPrivate Sub Dis_C1ick()P
10、1.Print“计算机考试“End Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。列表框的内容由属性 List 来设置，再程序中添加项要通过 AddItem 方法来实现，鼠标双击触发控件的 DblClick 事件。AddItem 方法用于将项目添加到 ListBox 或 ComboBox 控件，其语法格式为：obiect.AddItemitem,indexobject 必需的。一个对象表达式。item 必需的。字符串表达式，它用来指定添加到该对象的项目。index 可选的。是整数，它用来指定新项目或行在该对象中的位置。
11、对于 ListBox 或 ComboBox 控件的首项 index 为 0。解题步骤：第一步：建立界面并设置控件属性。程序中只用到的控件和属性设置见表 15-2。表 15-2控 件 属 性 设 置 值列表框 Name L1第二步：编写程序代码：参考代码Private Sub L1_DblClick()L1.Addltem L1.TextEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有工程文件 sjt3.vbp
12、及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为 Form1 的窗体上有三个 Labe1 控件和两个命令按钮，Labe1 控件均为提示信息。命令按钮 CMDstart 和 CMDexit，程序运行后，单击“开始”按钮，程序自动利用循环计算11/21/3.1/10 的结果，并把结果写入到考生文件夹下 result.txt 文件中。执行完毕“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图 15-4 所示。(2) 在考生文件夹下有工程文件 sit4.vbp
13、及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：程序启动时文本框的默认文字为“请输入您要设置的文本”，默认的字体为“仿宋 GB2312”，字号为五号。程序运行过程中可以修改文本框的内容在单击“初始化”时恢复启动时的状态；在单击“清除”后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图 15-5 所示。（分数：40.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。按钮的标
14、题由其 Caption 属性设置，单击触发其 Click 事件。文件的操作一般按照如下步骤进行：打开或建立文件、进行读或写操作、关闭文件。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 15-3。表 15-3控 件 名 称 属 性 设 置 值Label2 Caption 考生文件夹/RESULT.TXTLabel4 Caption 目标文件：Label5 Caption 利用循环进行计算 1+1/2+1/3+1/10 的结果，并且把结果写入目标文件中按钮控件 名称 CMDSTARTCaption 开始按钮控件 名称 CMDEXITCaption 退出第二步：编写程序代码
15、。程序提供的代码：Private Sub CmdEXIT_Click()EndEnd SubPrivate Sub Cmdstart_click()Dim E As Single, J As IntegerDim T As SingleOpen App.Path& ? For ? As ?E=?T=1For J=2 To 10 Step 1T=i/JE=E+TNext JWrite #1,Close #1CMDSTART.Caption=?CMDSTART.Enabled=?End Sub参考代码：Private Sub CMDEXIT_Click()EndEnd SubPrivate Sub
16、 CMDstart_click()Dim E As Single, J As IntegerDim T As SingleOpen App.Path & “/“ & “result.txt“ For Output As #1E=1T=1For J=2 To 10 Step 1T=1/JE=E+TDebug.Print T, ENext JWrite #1, EPrint EClose #1CMDSTART.Caption= “完成“CMDSTART.Enabled=FalseEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 单选按钮都是成组出现，用户在一组单选按钮中只
17、能且最多选择一项，某项被选定后，其左边的圆圈中出现一个黑点；字体由 FontName 属性决定，字体的大小由 FonfSize 属性决定：清除文本框的内容可以用将文本框的内容置空来实现(文本框Text=“)。需要指出的是框架是一个容器控件，用于将窗体上的控件分组，不同的对象剋放在同一个框架内，它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组，必须先画出框架，然后在框架内画出需要成为一组的控件，这样才能将框架内的控件组成一个整体。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 15-4。表 15-4控 件 名 称 属 性 设 置 值Option1 Ca
18、ption 仿宋Option2 Caption 楷体Option3 Caption 隶书Option4 Caption 黑体Option5 Caption 七号Option6 Caption 五号Option7 Caption 三号Option8 Caption 初号Command1 Caption 初始化Command2 Caption 清除Command3 Caption 退出第二步：编写程序代码。程序提供的代码：Option ExplicitPrivate Sub Command1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text
19、=“请输入您要设置的文本“End SubPrivate Sub Command2_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=?End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=“请输入您要设置的文本“End SubPrivate Sub Option1_Click()Text1.FontName =“仿宋 GB2312“End SubPrivate S
20、ub Option2_Click()Text1.FontName=?End SubPrivate Sub Option3_Click()Textl.FontName=“隶书“End SubPrivate Sub Option4_Click()Text1.FontName=“黑体“End SubPrivate Sub Option5_Click()Text1.FontSize=“5.5“End SubPrivate Sub Option6_Click()Text1.FontSize=?End SubPrivate Sub Option7_Click()Text1.FontSize=“16“End
21、 SubPrivate Sub Option8_Click()Text1.FontSize=“42“End Sub参考代码：Option ExplicitPrivate Sub Command1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=“请输入您将要设置的文本“End SubPrivate Sub Command2_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=“End SubPrivate Sub Command3_Click()EndEnd SubPrivate
22、 Sub Form_Load()Option1.Value=TrueOption6.Value=TrueText1.Text=“请输入您要设置的文本“End SubPrivate Sub Option1_Click()Text1.FontName=“仿宋 GB2312“End SubPrivate Sub Option2_Click()Text1.FontName=“楷体 GB2312“End SubPrivate Sub Option3_Click()Text1.FontName=“隶书“End SubPrivate Sub Option4_Click()Text1.FontName=“黑体
23、“End SubPrivate Sub Option5_Click()Text1.FontSize=“5.5“End SubPrivate Sub Option6_Click()Text1.FontSize=“10.5“End SubPrivate Sub Option7_Click()Text1.FontSize=“16“End SubPrivate Sub Option8_Click()Text1.FontSize=“42“End Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/w
24、exam/25160001。在考生文件夹下有工程文件 sjt5.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分乙存盘时不得改变文件名和文件夹，相应的 dat 文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为 Form1 的窗体上有五个 Labe1 控件和两个命令按钮，数据文件 prog8a.dat 存放一些字符。按“开始”按钮后，能从考生文件夹下的 prog8a.dat 中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的 prog8b.dat 文
25、件中(以标准格式在一行中输出)；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图 15-6 所示。（分数：30.00）_正确答案：(解析 在程序运行时控件是否可用由其 Enable 属性决定，当其值为 True 时可用，当为False 不可用(灰色)。对文件进行操作必须先打开文件，同时通知操作系统对文件进行读操作还是写操作，打开文件的命令是 Open，其常用形式为：Open“文件名”For 模式 As#文件号Len=记录长度模式有 Output(打开文件，对其进行写操作)、Input(打开文件，对其进行读操作)、Append(打开文件，在文件末尾追加记录)。统计大小写字符和
26、数字只需根据字符的 ASCII 码判断，大写字母的 ASCII 值是 6590，小写字母的 ASCII值是 97122，数字的为 4857。解题步骤：第一步：编写程序代码。程序提供的代码：Private Sub COMEXIT_Click()EndEnd SubPrivate Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1=App.Path & “/“ & “prog8a.txt“myfile2=App.Path & “
27、/“ & “prog8b.txt“Open myfile1 For ? As #1Open myfile2 For ? As #2While Not EOF(1)Input ?, Ch$If Asc(Ch$)=48 And Asc(Ch$)=57 ThenNumber=Number+1ElseIf Asc(Ch$)=65 And Asc(Ch$)=90 ThenCp=Cp+1ElseIf Asc(Ch$)=97 And Asc(Ch$)=122 ThenLp=Lp+1ElseOthers=?End IfWendPrint ?, Number, Cp, Lp, OthersCloseCOMSTA
28、RT.Caption=?COMSTART.Enabled=?End Sub参考代码：Private Sub COMEXIT_Click()EndEnd SubPrivate Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1=App.Path & “/“ & “prog8a.txt“myfile2=App.Path & “/“ & “prog8b.txt“Open myfile1 For Input As #1Open my
29、file2 For Output As #2While Not EOF(1)Input #1, Ch$If Asc(Ch$)=48 And Asc(Ch$)=57 ThenNumber=Number+1ElseIf Asc(Ch$)=65 And Asc(Ch$)=90 ThenCp=Cp+1ElseIf Asc(Ch$)=97 And Asc(Ch$)=122 ThenLp=Lp+1ElseOthers=Others+1End IfWendPrint #2, Number, Cp, Lp, OthersCloseCOMSTART.Caption=“完成“COMSTART.Enabled=FalseEnd Sub第二步：调试并运行程序。第三步：按题目要求存盘。)解析：
