1、国家二级 VB 机试（上机操作）-试卷 57 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Shapel 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色(颜色值为&HOOOOFF00&或&HFF00&)； 窗体的标题为“圆角矩形”。 运行后的窗体如图 2153 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sj
2、tlfrm。 (2)在考生文件夹下有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Text1 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 subl。 要求： 在窗体上画一个计时器(如图 2-154 所示)，并通过属性窗口设置适当属性。 编写三个按钮的 Click 事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费
3、”按钮的事件过程中只允许调用过程 sub1。不得修改已经存在的内容和控件属性，最后把文件按原文件名存平盘。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 20 个整数读入数组 a 中，同时显示在 Text1 文本框中； 单击“变换”按钮，则数组 a 中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调)，并将位置调整后的数组显示在文本框 Text2 中。 在窗体文件中已经给出了全部控件(如图 2190
4、 所示)，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮：两个名称分别为 Text1 和Text2、初始值为空的文本框，如图 2191 所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sit5frm，此外还有一个名为datain
5、txt 的文本文件，其内容如下： 3243765828 1298573 1425364758697 1324354657687980593 程序运行后单击窗体，将把义件 damintxt 中的数据输入到二维数纽 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵右上左下对角线上的数据，如图 2225 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）
6、-试卷 57 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Shapel 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色(颜色值为&HOOOOFF00&或&HFF00&)； 窗体的标题为“圆角矩形”。 运行后的窗体如图 2153 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sjtlfrm。 (2)在考生文件夹下
7、有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Text1 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 subl。 要求： 在窗体上画一个计时器(如图 2-154 所示)，并通过属性窗口设置适当属性。 编写三个按钮的 Click 事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程
8、sub1。不得修改已经存在的内容和控件属性，最后把文件按原文件名存平盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 383 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 20 个整数读入数组 a 中，同时显示在 Text1 文本框中； 单击“变换”按钮，则数组 a 中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个
9、数组元素对调)，并将位置调整后的数组显示在文本框 Text2 中。 在窗体文件中已经给出了全部控件(如图 2190 所示)，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮：两个名称分别为 Text1 和Text2、初始值为空的文本框，如图 2191 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作
10、步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3vbp 步骤2：打开代码编辑窗口中编写“变换”按钮的单击事件过程。 参考代码： Private Sub Command2 一Click() -考生编写 For i=1 To 10 temp=a(i) a(i)=a(20 一 i+1) a(20 一 i+1)=temp Next i 以下程序段将已变换的数组元素显示在 Text2 文本框中 For k=1 To 20 Text2=Text2+Str(a(k)+Space(2) Next k End Sub 步骤 3：按键键运行程序，先单击“读数据”按钮，然后单击“变换”按钮。 步骤 4：单击窗
11、体右上们的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt4vbp，存代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If s1=0 Then For i=1 To S1 a(n)=a(n)+1 For i=1 To 26 步骤 2：按要求将文件保存争考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sit5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 324376
12、5828 1298573 1425364758697 1324354657687980593 程序运行后单击窗体，将把义件 damintxt 中的数据输入到二维数纽 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵右上左下对角线上的数据，如图 2225 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题对应工程文件 sit5vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Dim Mat(M，N) Open App.Path”ff”in5txt”For Input As#l Input#1，Mat(i，J) If i+j=6 Then 步骤3：按要求将文件保存在考生文件夹中。)解析：
