试题答案及解析.doc

二级Visual Basic上机考前冲刺试题（2）一、基本操作题注意：下面出现的“考生文件夹”均为C:WEXAM26990001请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个名称为Lst1的列表框，在属性窗口中为列表框添加四个选项：北京、上海、天津、重庆。再建立一个下拉菜单，菜单标题为文件，名称为mnuFile，此菜单下含有一个子菜单项，标题为显示列表框，名称为mnuShow，初始状态为选中，运行时的效果如图1所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为vbsj1.frm，工程文件名为vbsj1.vbp。（2）新建一个名称为Form1，标题为输入对话框示例的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为等级考试，提示信息为请输入，默认值为二级VB。如图2所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 图1 图2二、简单应用题注意：下面出现的“考生文件夹”均为C:WEXAM26990001（1）在名称为Form1的窗体上画二个图片框，名称分别为Pic1、Pic2，宽度和高度均为1500，通过属性窗口把图片文件tp1.jpg放入Pic1中，把图片文件tp2.jpg放入Pic2中；再画一个命令按钮，名称为cmdChange，标题为“交换图片”（如图3所示）。编写适当的事件过程，使得在运行时，如果单击命令按钮，则在Pic1中显示tp2.jpg，在Pic2中显示tp1.jpg。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。（2）在考生文件夹下有一个工程文件vbsj4.vbp，其窗体中有1个初始内容为空的文本框Txt1，2个标题分别是“读数”和“计算”的命令按钮；请画1个标题为“所有行中最大数的平均值为”的标签Lbl1，再画1个初始内容为空的文本框Txt2，如图4所示。程序功能如下：单击“读数”按钮，则将考生文件夹下in4.dat文件的内容读入20行5列的二维数据a中，同时显示在Txt1文本框中；单击“计算”按钮，则自动统计二维数组中每行最大数的平均值（截尾取整），并将最终结果显示在Txt2文本框内。“读数”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图3 图4三、综合应用题注意：下面出现的“考生文件夹”均为C:WEXAM26990001在考生目录下有一个工程文件vbsj5.vbp。窗体中已经给出了所有控件。其功能是：单击“读数”命令按钮，则把考生目录下的in5.txt文件中的所有字符放入Txt1（可多行显示），如图5所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并依次放到窗体变量an，bn，cn，dn之中（放在其他变量中将无成绩）；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了“显示”和“存盘”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。要求：统计每个字母出现的次数时，不区分大小写。注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。图5参考答案及解析一、基本操作题第1小题【知识点播】所谓菜单项标志，就是在菜单项前加上一个“”，它有两个作用：一是可以明显地表示当前某个（或某些）命令状态是“On”或“Off”；二是可以表示当前选择的是哪个菜单项。菜单项标志通过菜单设计窗口中的“复选”属性设置，当该属性为True时，相应的菜单项前有“”标记；如果该属性为False，则相应的菜单项前没有“”标记。 【审题分析】本题只需按要求建立菜单、画出控件，并设置他们的属性。【操作步骤】步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表1所示。表1标题文件显示列表框名称mnuFilemnuShow复选内缩符号01步骤2：在窗体Form1中画一个列表框和一个文本框，并分别设置它们的相关属性，属性及其值如表2所示。表2对象列表框属性NameList值Lst1北京、上海、天津、重庆步骤3：按要求将文件保存至考生文件夹中。第2小题【知识点播】InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt,Title,Default)。其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省文本。【审题分析】本题需在窗体的Click事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入”， Title参数值为“等级考试”， Default参数值为“二级VB”。【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体Form1的Caption属性设置为“输入对话框示例”。步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form_Click() InputBox 请输入, 等级考试, 二级VBEnd Sub步骤3：按要求将文件保存至考生文件夹中。【主要考点】InputBox()函数和语句二、简单应用题第1小题【审题分析】本题要求在程序运行后，单击“图片交换”命令按钮时，交换两个图片框中的图片。因此可在命令按钮的Click事件过程中，通过LoadPicture()函数分别为两个图片框重新加载图片。App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中按表3所列画出控件并设置其相关属性。表3对象图片框1图片框2命令按钮属性NamePictureWidthHeightNamePictureWidthHeightNameCaptin值Pic1tp1.jpg15001500Pic2tp2.jpg15001500cmdChange交换图片步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程：参考代码：Pic1.Picture = LoadPicture(App.Path + tp2.jpg)Pic2.Picture = LoadPicture(App.Path + tp1.jpg)步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】本题可利用一个嵌套的For循环来完成计算工作：在外循环（循环变量的取值为120）体中，先初始设置记录每行最大数的变量max的初值为每行的第1个数，接着通过内循环（循环变量的取值为25）体逐一完成max与该行其他数据的比较工作，将比较结果中的较大值存入max。内循环结束后，用表达式sum = sum +max累计各行最大值之和。嵌套For循环结束时，表达式Int(sum/20)的值即为所有行中最大数的平均值（截尾取整），将其显示在文本框Txt2中。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在窗体Form1中画一个标签和一个文本框，其属性及其值如表4所示。表4对象标签文本框属性NameCaptionNameText值Lbl1所有行中最大数的平均值为Txt2空步骤2：打开代码编辑窗口，在指定位置编写以下代码：参考代码： Sum = 0For i = 1 To 20 Max = a(1, 1) For j = 2 To 5 If Max a(i, j) Then Max = a(i, j) Next Sum = Sum + MaxNextTxt2 = Int(Sum / 20)步骤3：按要求将文件保存至考生文件夹中。步骤4：按运行程序，先单击“读数”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。三、综合应用题【审题分析】“统计”按钮的单击事件过程设计思路：利用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其是否为字母A（或a）、B（或b）、C（或c）或D（或d），并分别统计到对应的4个窗体变量中。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：For i = 1 To Len(Txt1.Text) str1 = Mid(Txt1