1、国家二级 VB机试（上机操作）模拟试卷 164及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “输入 ”、最大化按钮不可用的窗体上面 1个名称为Framel的框架控件，其标题为 “选择性别 ”；再向框架内画两个名称分别为 Option1和 Option2的单选按钮，其标题分别为 “男 ”和 “女 ”，并将单选按钮 Option2设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。 注意：存盘时，将文件保存垒考生文件夹下，窗体文件名为 sjt1 frm，工程文件名为sjt1 vbp。 (2)在名称为 Form1的窗体上画 1个名称为 Label1的标签，其标题为
2、 “计算机等级考试 ”，且能根据标题内容自动调整大小，有边框 (如图所示 )；再在窗体上面 1个名称为 HScroll1的水平滚动条，并将滚动条所能表示的最小值设置为 10、最大值设置为 20。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。 注意：程序中不得使用变量，每个事件过程中只能写一条语句 (不得使用选择语句或循环语句 )。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)考生文件夹中有工程文件 sjt3 vbp。窗体上显
3、示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键人文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完 成后，将文本框清窄。运行窗体如图所示。 要求：程序已经给出，但不完整，清将其中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘
4、。(2)考生文件火中有一个工程文件sjt4 vbp。窗体上有两个文本框和一个标题为 “运算 ”的命令按钮。程序的功能是当程序运行时，单击 “运算 ”按钮能够产生 10个 1 100之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大值，并将最大值与第 1个数互换位置，最后把结果显示在下面一个文 本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生小得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用题 3 考生文件夹下有工程文件 sjt5 vbp，窗体界面如图所示。考生
5、文件夹下的in5 dat文件中有某次歌曲大奖赛 10位选手的得分，文件中的每一行数据包含选于的编号及 5位评委的打分。程序运行时，单击 “显示数据 ”按钮，则将 in5 dat文件的内容读入二维数组 a中，并将数组 a符元素的值显示在 Text1文本框中；单击“计算并排序 ”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在 List1列表框中显示各选手的编号和最后得分 (每组编号和最后得分用空格隔开作为一行 )。单击 “保存 ”按钮，则保存结果。 “显示数据 ”和 “保存 ”按钮的 Click事件过程已经给出，请编写 “计算并排序 ”按钮的 Click事件过程实
6、现上述功能。 注意：考生不得修改窗体文件中已经存在的摔件和程序，在结束程序运行之前，必须单击 “计算并排序 ”按钮后，再单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘 。国家二级 VB机试（上机操作）模拟试卷 164答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “输入 ”、最大化按钮不可用的窗体，相关属性设置如表 4 1所示。步骤 2：向窗体中添加一个框架控件和两个选项按钮，并设置好相关属性，如表 4 2所示。设置完成后效果如图 4 1所示。 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个
7、空白窗体。 步骤 2：添加一个标签控件，设置好该控件的相关属性值，如表 4 3所示。步骤 3：添加一个水 平滚动条，设置控件的相关属性，如表 4 4所示。设置完成后，窗体运行效果如图 4 2所示。 步骤 4：双击水平滚动条，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码。 参考答案 PriVate Sub HScroll1_Change() End Sub 步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参
8、考答案 Private Sub List1_Click() Text1 Text List1 Text End Sub Private Sub List1_DblClick() List1 RemoveItem List1 ListIndex Text1 Text “ End Sub Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode 13 And Text1 Text“Then If List1 ListIndex 1 Then List1 AddItem Text1 Text Else Lis
9、t1 List(List1 ListIndex) Text1 Text LiSt1 ListIndex l End If Text1 Text “ End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘 (2)【操作步 骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1 Click() Dim a(10)As Integer Dim i As Integer Text1 Text “ Randomi ze For i 1 To 10 a(i) Int(Rn
10、d*100 1) Text1 Text Text1 Text a(i) “ Next i Call Exchange(a) Text2 Text “ For i 1 To 10 Text2 Text Text2 Text a(i) “ Next i 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 f LBound(Data) index LBound(Data) m Dat
11、a(index) For i f 1 To UBound(Data) If Data(i) m Then m Data(i) index i End If Next i t Data(f) Data(f) Data(index) Data(index) t End Sub 步骤 3：调试并运行程 序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “，将 问号改为正确的内容。 参考答案 Private Sub Command2_Click() Dim i， j As Integer Dim
12、 s As Single Dim temp As Single For i 1 To 10 s 0 For j 2 To 6 s s a(i， j) Next j List1 AddItem s 6 Next i For i 0 To List1 ListCount 1 For j i 1 To List1， LisstCount 1 If List1 List(i) List1 List(j) Then temp List1 List(j) Then List1 List(i) List1 List1 List(j) List1 List(j) temp End If Next j Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
