【计算机类职业资格】国家二级VB机试（上机操作）-试卷26及答案解析.doc

《【计算机类职业资格】国家二级VB机试（上机操作）-试卷26及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】国家二级VB机试（上机操作）-试卷26及答案解析.doc（3页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级 VB 机试（上机操作）-试卷 26 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、标题为“标签”的窗体上添加一个名称为 Label1 的标签，并设置适当属性以满足以下要求： 标签的标题为“计算机等级考试”； 标签可根据标题内容自动调整其人小； 标签带有边框，且标签标题显示为三号字。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为可 sjt1frm。 (2)在名称为：Fonn1 的窗休上添加一个名称为 Hscroll1 的水甲滚动条，其刻度

2、范围为 1100；再添加一个名称为 Text1 的文本框，初始文本内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时文本框中实时显示滚动框的当前位置。运行情况如图所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。窗体上有名称为 Timer1 的定时器，以及两条水平直线，名称分别为 Line1 和 Linc2。 请用名称为 Shap

3、el 的形状控件，在两条直线之间画个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求： 圆的顶端距商体 Form1 顶端的距离为 360； 圆的颜色为红色(红色对应的值为：H000000FF或HFF)，如图所示。 程序运行时，Shape1 将在 Line1 和 Line2 之间运行。当 Shape1 的底部到达 Line2 时，会自动改变方向向上运动；当 Shape1 的顶端到达 Line1 时，会自动改变方向向下运动。 文件中给出的程序不完格，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改稗序的其他部分和已给出控件的属性。最后将修改后的文

4、件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，包含了所有控件和部分程序，如图所示。其功能如下： 单击“读数据”按钮，可将考生文件夹下 in4dat 文件中的 100 个整数读到数组 a 中。 单击“计算”按钮，则根据从组合框 Combo1 中选中的项目，对数组 a 中的数据计算甲均值，并将计算结果四含五入取整后显示在文本框 Text1 中。 “读数据”按钮的 Click 事件过程已经给出请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序

5、按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件 dataintxt 中的数据输入二维数组 Mat 中，按5 行 5 列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出

6、了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 26 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、标题为“标签”的窗体上添加一个名称为 Label1 的标签，并设置适当属性以满足以下要求： 标签的标题为“计算机等级考试”； 标签可根据标题内容自动调整其人小； 标签带有边框，且标签标题显示为三号字。

7、程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为可 sjt1frm。 (2)在名称为：Fonn1 的窗休上添加一个名称为 Hscroll1 的水甲滚动条，其刻度范围为 1100；再添加一个名称为 Text1 的文本框，初始文本内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时文本框中实时显示滚动框的当前位置。运行情况如图所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为sjt2frm。 （分数：2.0

8、0）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 349。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建市控件并设置其属性，如表 350 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。窗体上有名称为 Timer1 的定时器，以及两条水平直线，名称分别为 Line1 和 Linc2。 请用名称为 Shapel 的形状控件，在两条直线之间画个宽和高都相等的形状，设置其形状为圆，并设置适

9、当属性使其满足以下要求： 圆的顶端距商体 Form1 顶端的距离为 360； 圆的颜色为红色(红色对应的值为：H000000FF或HFF)，如图所示。 程序运行时，Shape1 将在 Line1 和 Line2 之间运行。当 Shape1 的底部到达 Line2 时，会自动改变方向向上运动；当 Shape1 的顶端到达 Line1 时，会自动改变方向向下运动。 文件中给出的程序不完格，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改稗序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，包含了所

10、有控件和部分程序，如图所示。其功能如下： 单击“读数据”按钮，可将考生文件夹下 in4dat 文件中的 100 个整数读到数组 a 中。 单击“计算”按钮，则根据从组合框 Combo1 中选中的项目，对数组 a 中的数据计算甲均值，并将计算结果四含五入取整后显示在文本框 Text1 中。 “读数据”按钮的 Click 事件过程已经给出请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】

11、步骤 1：打开本题工程文件，新建一个形状控件，并按表 351所示设置属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件 dataintxt 中的数据输入二维数组 Mat 中，按5 行 5 列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示

12、在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题_丁程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Option Base 1 Private Sub Form_Click() Const N5 Const M5 Dim Mat(N，M)As Integer定文二维数组

13、Dim i，j，t Open AppPath“dataintxt“ For Input As#1 对文件进行读操作 For i1 To N For j1 To M Input #1，Mat(i，j)将数据读入教组 Mat 中 Next j Next i Close#1 Print Print“初始矩阵为：“ Print For i1 To N For j1 To M Print Tab(5*j)，Mat(i，J)； Next j Print Next i For i1 To N完成第二列和第四列的交换 tMat(i，2) Mat(i，2)Mat(i，4) Mat(i，4)的内容赋给Mat(i，4)， 完成交换 Next i Print Print“交换第二列和第四列后的矩阵为：“ Print For i1 To N For j1 To M Print Tab(5*j)；Mat(i，j)；将转换后的结果打印在窗体上 Next j Print Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：