1、国家二级 VB机试（上机操作）模拟试卷 374及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画两个标签(名称分别为 lblName和 lblAge，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为 txtName和 txtAge，Text 属性均为空白)和一个命令按钮(名称为cmdDisplay，标题为“显示”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图 3-68所示。要求程序中不得使用任何变量。 注意
2、：存盘时必须存放在考生文件夹下，工程文件名为 vbsjlvbp，窗体文件名为 vbsjlfrm。 (2)在名称为 Form1的窗体上画一个文本框，名称为 txtlnput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 369 所示。程序中不能使用任何变量。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框
3、中的文字做相应的设置，如图 3-100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sjt5vbp 中有 1个初始内容为空的文本框 Text1，2 个标题分别是“读数据”和“计算”的命令按钮。请画 1个名称为 Label2、标题为“各行平均值的最小值为”的标签，再画 1个名称为 Text2、初始内容为空的文本框。效果如图 318 所示。程序功能如下： 1)单击“读数据”按钮，则将考生文件夹下 in5dat 文件的内容读入到 20行 6列的二维数组 a中，并同时
4、显示在 Text1文本框内。2)单击“计算”按钮，则自动统计二维数组 a中各行的平均值，并将这些平均值中的最小值显示在Text2文本框内。“读数据”按钮的 Click事件过程已经给出，请编写“计算”按钮的 Click事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 374答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画
5、两个标签(名称分别为 lblName和 lblAge，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为 txtName和 txtAge，Text 属性均为空白)和一个命令按钮(名称为cmdDisplay，标题为“显示”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图 3-68所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjlvbp，窗体文件名为 vbsjlfrm。 (2)在名称为 Form1的窗体上画一个文本框，名称为 txtlnput，无初始内
6、容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 369 所示。程序中不能使用任何变量。（分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，按表 4-41在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。参考代码： PriVate Sub cmdDisplay_Click() Print txtNameText &“，现年“& txtAgeText &“岁“ End Sub 步骤 3：按要求将文
7、件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，按表 4-42在窗体中画出控件并设置其相关属性。 )解析：解析：(1)&运算符用来强制两个表达式作字符串连接。本题只需在命令按钮的单击事件过程中，用Print方法将两个文本框中的内容输出到窗体上。 (2)要实现本题所要求的功能，可在文本框的 Change事件过程中，将当前文本框中的文本用 Print方法输出到图片框中。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的
8、设置，如图 3-100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件下的本题工程文件 sjt3vbp。 步骤 2：打开代码编辑窗口，编写“确定”按钮的 Click事件过程，代码如下。参考代码： Private Sub Command1_Click() If Op1Value Then Text1FontName=Op1Caption Else If Op2Value Then Text1FontName=Op2Caption End If If Ch1Value=1 Then Te
9、xt1FontUnderline=True E1Se Text1FontUnderline=False End If If Ch2Value=1 Then Text1FontItaliC=True E1se Text1FontItalic=False End If End Sub 步骤 3：按F5键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Priv
10、ate Sub Command1_Click() Dim n As Long CD1FileName=“ CD1Filter=“所有文件|*|文本文件 |*txt|Word 文档|*doc“ CD1FilterIndex=2 CD1Action=1 If CD1FileName“Then Open CD1FileName For Input As #1 n=LOF(1) Text1=Input$(n，#1) Close #1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：(1)本题其实就是编写“确定”按钮的单击事件过程。设计思路：由于单选按钮数组选择的唯
11、一性，可用一个 IfThenElse语句对可能出现的两种情况(Op1 或 op2被选中)分别进行处理，为Text1的 FontName属性设置不同值；对于两个复选框可用两个 IfThenElse语句依次对其选中情况进行处理，若选中则将对应的 FontUnderline属性值或 Fontltalic属性值设置为 True，否则设置为False。 (2)根据题目源程序，首先设置通用对话框 CD1的 Filter属性和 FilterIndex属性，然后调用CD1的 ShowOpen方法，接下来通过 Input方式打开选中的文件，将文件读入后放到文本框 Text1中，最后使用 Close语句关闭文件。
12、三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sjt5vbp 中有 1个初始内容为空的文本框 Text1，2 个标题分别是“读数据”和“计算”的命令按钮。请画 1个名称为 Label2、标题为“各行平均值的最小值为”的标签，再画 1个名称为 Text2、初始内容为空的文本框。效果如图 318 所示。程序功能如下： 1)单击“读数据”按钮，则将考生文件夹下 in5dat 文件的内容读入到 20行 6列的二维数组 a中，并同时显示在 Text1文本框内。2)单击“计算”按钮，则自动统计二维数组 a中各行的平均值，并将这些平均值中的最小值显示在Text2文本框内。“读数据”
13、按钮的 Click事件过程已经给出，请编写“计算”按钮的 Click事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。（分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的工程文件 sjt5vbp，在窗体上加入一个标签和文本框，并设置其属性如表 412 所示。 )解析：解析：题目要求计算数组 a的各行平均值，并查找这些平均值的最小值。可通过两次循环得到平均值的最小值，第一次循环计算各行的平均值，并保存到数组 b当中。计算平均值需要首先计算数组 a各行的累加和，因此需要一个嵌套的循环来计算各行的平均值，外层循环控制第几行，在内层循环里面计算数组 a一行的累加和，累加和得到之后再计算平均值。 在第二次循环中，遍历数组 b的各个元素，查找最小值。
