1、国家二级 VB 机试（上机操作）-试卷 82 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Text1 的文本框，其高、宽分别为 400、2000。运行后的窗体如图 378 所示。请在属性框中设置适当的属性满足以下要求： Textl 的字体为“黑体”，字号为“四号”；窗体的标题为“输入”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。(
2、2)在名称为 Forml 的窗体上画一个名称为 Imagel 的图像框,利用属性窗口装入考生目录下的图像文件 piclbmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 379 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，已给出了所有控件和部分程序。程
3、序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件 in3dat 中的 100 个整数读到数组 a 中；2)从名称为 List1 的列表框中选中一项(如图 3-60 所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗
4、体中横线(横坐标)的名称为Linel，竖线(纵坐标)的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为 Shapel，它们的 Visible 属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2；另有一个有五个元素的标签数组，名称为 Labell，其所有元素的 Visible 属性都为 False。如图 361(a)所示。程序运行时，单击“输入 5 个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1
5、900、1500，则结果如图 3-61(b)所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 vbsi5vbp，请先装入该工程文件，然后完成以下操作：在名称为Forml 的窗体上画两个命令按钮，其名称分别为 cmdRead 和 cmdCal，标题分别为“读入数据”和“计算保存”(如图 342 所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadDatal 和ReadData2 过程读入：in5 1txt 和 in52txt 文件中的各 20 个整数，分别放入 Arr1 和 Arr2 两个数组中；如果单击“计算保存”按
6、钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(即：第一个数组的第 n 个元素减去第二个数组的第 n 个元素，其结果作为第三个数组的第 n 个元素。这里的 n为 1、2、20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 out5dat 文件中。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 82 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(
7、1)在名称为 Forml 的窗体上画一个名称为 Text1 的文本框，其高、宽分别为 400、2000。运行后的窗体如图 378 所示。请在属性框中设置适当的属性满足以下要求： Textl 的字体为“黑体”，字号为“四号”；窗体的标题为“输入”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。(2)在名称为 Forml 的窗体上画一个名称为 Imagel 的图像框,利用属性窗口装入考生目录下的图像文件 piclbmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Comm
8、and2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 379 所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤 2：按要求画出控件，并在属性窗口中设置其相关属性，属性及值如表 4-45 所示。 步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。
9、 步骤 6：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体Forml 中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 4-46 所示。 步骤 2：双击“向右移动”命令按钮，打开代码编辑窗口，在按钮的 Click 事件过程中输入如图 42 所示代码。 步骤 3：双击“向下移动”命令按钮，打开代码编辑窗口，在按钮的 Click 事件过程中输入如图 4-3 所示代码。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，已给出了所有控件和部分程序。程序运行时，请按以下
10、顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件 in3dat 中的 100 个整数读到数组 a 中；2)从名称为 List1 的列表框中选中一项(如图 3-60 所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中横线(横坐标)
11、的名称为Linel，竖线(纵坐标)的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为 Shapel，它们的 Visible 属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2；另有一个有五个元素的标签数组，名称为 Labell，其所有元素的 Visible 属性都为 False。如图 361(a)所示。程序运行时，单击“输入 5 个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，
12、则结果如图 3-61(b)所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command2 C1ick() Dim k As Integer，i1，i2 As Integer i1=a(1)：i2=a(1) For k=2 To 100 If a(k)i1 Then i1=a(k) End If If a(k)键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。
13、 步骤 3：单击窗体右上角的关闭按钮以结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjr4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： For k=1 To 5 Labell(k 一 1)Visible=True Shapel(k 一 1)Height=s(k) a=LinelY1 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 vbsi5vbp，请先装入该工程文件，然后完成以下操作：在名称为
14、Forml 的窗体上画两个命令按钮，其名称分别为 cmdRead 和 cmdCal，标题分别为“读入数据”和“计算保存”(如图 342 所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadDatal 和ReadData2 过程读入：in5 1txt 和 in52txt 文件中的各 20 个整数，分别放入 Arr1 和 Arr2 两个数组中；如果单击“计算保存”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(即：第一个数组的第 n 个元素减去第二个数组的第 n 个元素，其结果作为第三个数组的第 n 个元素。这里的 n为 1、2、20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 out5dat 文件中。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 vbsj5vbp，按表 426 在窗体中画出控件并设置其相关属性。 )解析：
