1、国家二级 VB 机试（上机操作）-试卷 93 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“输入”、最大化按钮不可用的窗体上面 1 个名称为 Framel 的框架控件，其标题为“选择性别”；再向框架内画两个名称分别为 Option1 和 Option2 的单选按钮，其标题分别为“男”和“女”，并将单选按钮 Option2 设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。 注意：存盘时，将文件保存垒考生文件夹下，窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 For
2、m1 的窗体上画 1 个名称为 Label1 的标签，其标题为“计算机等级考试”，且能根据标题内容自动调整大小，有边框(如图所示)；再在窗体上面 1 个名称为 HScroll1 的水平滚动条，并将滚动条所能表示的最小值设置为 10、最大值设置为 20。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。 注意：程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。（分数：2.00）_二、简
3、单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键人文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清窄。运行窗体如图所示。 要求：程序已经给出，但不完整，清将其中的注释符去掉，把“?”改为正确的内容，以
4、实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。(2)考生文件火中有一个工程文件 sjt4vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是当程序运行时，单击“运算”按钮能够产生 10 个 1100 之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大值，并将最大值与第 1 个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：考生小得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
5、（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有工程文件 sjt5vbp，窗体界面如图所示。考生文件夹下的 in5dat 文件中有某次歌曲大奖赛 10 位选手的得分，文件中的每一行数据包含选于的编号及 5 位评委的打分。程序运行时，单击“显示数据”按钮，则将 in5dat 文件的内容读入二维数组 a 中，并将数组 a 符元素的值显示在 Text1文本框中；单击“计算并排序”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在 List1 列表框中显示各选手的编号和最后得分(每组编号和最后得分用空格隔开作为一行)。单击“保存”按钮，则
6、保存结果。“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“计算并排序”按钮的 Click 事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的摔件和程序，在结束程序运行之前，必须单击“计算并排序”按钮后，再单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 93 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“输入”、最大化按钮不可用的窗体上面 1 个名称为 Framel 的框架控件，其标题为“选择性别”；再
7、向框架内画两个名称分别为 Option1 和 Option2 的单选按钮，其标题分别为“男”和“女”，并将单选按钮 Option2 设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。 注意：存盘时，将文件保存垒考生文件夹下，窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 Form1 的窗体上画 1 个名称为 Label1 的标签，其标题为“计算机等级考试”，且能根据标题内容自动调整大小，有边框(如图所示)；再在窗体上面 1 个名称为 HScroll1 的水平滚动条，并将滚动条所能表示的最小值设置为 10、最大值设置为 20。 要求：编写适当的事件过程，
8、使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。 注意：程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“输入”、最大化按钮不可用的窗体，相关属性设置如表 41 所示。 步骤 2：向窗体中添加一个框架控件和两个选项按钮，并设置好相关属性，如表 42 所示。 设置完成后效果如图 41 所示。 步骤 3：调试并运行程序，关闭程序后按
9、题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个空白窗体。 步骤 2：添加一个标签控件，设置好该控件的相关属性值，如表 43 所示。 步骤 3：添加一个水平滚动条，设置控件的相关属性，如表44 所示。 设置完成后，窗体运行效果如图 42 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并
10、自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键人文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清窄。运行窗体如图所示。 要求：程序已经给出，但不完整，清将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。(2)考生文件火中有一个工程文件 sjt4vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是当程序运行时，单击“运算”按钮能够产生 10 个 1100 之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大
11、值，并将最大值与第 1 个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：考生小得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub List1_Click() Text1TextList1Text End Sub Private Sub List1_DblClic
12、k() List1RemoveItem List1ListIndex Text1Text“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode13 And Text1Text“Then If List1ListIndex1 Then List1AddItem Text1Text Else List1List(List1ListIndex)Text1Text LiSt1ListIndexl End If Text1Text“ End If End Sub 步骤 3：调试并运行程序，关闭
13、程序后按题目要求存盘 (2)【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1 Click() Dim a(10)As Integer Dim i As Integer Text1Text“ Randomi ze For i1 To 10 a(i)Int(Rnd*1001) Text1TextText1Texta(i)“ Next i Call Exchange(a) Text2Text“ For i1 To 10 Text2TextText2Texta(i)“ Next i
14、 End Sub Private Sub Exchange(ByRef Data()As Integer) Dim i As Integer，m As Integer，index As Integer Dim t As Integer Dim f As Integer fLBound(Data) indexLBound(Data) mData(index) For if1 To UBound(Data) If Data(i)m Then mData(i) indexi End If Next i tData(f) Data(f)Data(index) Data(index)t End Sub
15、步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有工程文件 sjt5vbp，窗体界面如图所示。考生文件夹下的 in5dat 文件中有某次歌曲大奖赛 10 位选手的得分，文件中的每一行数据包含选于的编号及 5 位评委的打分。程序运行时，单击“显示数据”按钮，则将 in5dat 文件的内容读入二维数组 a 中，并将数组 a 符元素的值显示在 Text1文本框中；单击“计算并排序”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在 List1 列表框中显示各选手的编号和最后得分(每组编号和最后得分用
16、空格隔开作为一行)。单击“保存”按钮，则保存结果。“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“计算并排序”按钮的 Click 事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的摔件和程序，在结束程序运行之前，必须单击“计算并排序”按钮后，再单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“，将 问号改为正确的内容。 参考答案 Private Sub Command2_Click() Dim i，j As Int
17、eger Dim s As Single Dim temp As Single For i1 To 10 s0 For j2 To 6 ssa(i，j) Next j List1AddItem s6 Next i For i0 To List1ListCount1 For ji1 To List1，LisstCount1 If List1List(i)List1List(j) Then temp List1List(j) Then List1List(i)List1List1List(j) List1List(j)temp End If Next j Next i End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
