1、二级 VISUAL+BASIC 机试-107 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 HS1 的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为 200，最小刻度值为 100，在运行时使用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10 个刻度。再在滚动条下面绘制两个名称分别为 Lab1 和 Lab2 的标签，并分别显示 100 和 200，运行时的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为
2、sj1.frm。（分数：15.00）_2.在 Form1 的窗体上绘制一个命令按钮，名为 md1，标题为 Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现，此时如果单击命令按钮，则在窗体上显示 VisualBasic。程序运行情况如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中。工程文件名为 sj2.vbp，窗体文件名为sj2.frm。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有一个标签数组，名为 Lab1
3、，该数组有 4 个控件元素，标题分别是 Wait、Edit、Aix 和 Move，如下图所示。在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_4.在考生文件夹中有一个工程文件 sj4.vbp(相应的窗体文件名为 sj4.frm)。在名为 Form1 的窗体上有 4个文本框，
4、初始内容为空；1 个命令按钮，标题为“按降序排列”。其功能是通过调用过程 Sort 将数组按降序排序。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生的文件夹下有一个工程文件 sj5.vbp，相应的窗体文件为 sj5.frm。在窗体 Form1 上有两个命令按钮，其名称分别为 Cmd1 和 Cmd2，标题分别为“文件写入”和“文件读出”，如下图所示。其中“文件写入”命令按钮事件过程用来建立一个通信录，以
5、随机存取方式保存到文件 out57.txt 中；而“文件读出”命令按钮事件过程用来读出文件 out57.txt 中的每个记录，并在窗体上显示出来。通信录中的每个记录由 3 个字段组成，结构如下：（分数：30.00）_二级 VISUAL+BASIC 机试-107 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 HS1 的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为 200，最小刻度值为 100，在运行时使用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动
6、10 个刻度。再在滚动条下面绘制两个名称分别为 Lab1 和 Lab2 的标签，并分别显示 100 和 200，运行时的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 HScrollBar 控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为 HS1.Max 为 200，Min 为 100，LargeChange 为 10；单击工具箱中的 Label 控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为 Lab1 和Lab
7、2，Caption 属性分别为 100 和 200；按要求保存文件即完成本题。)解析：2.在 Form1 的窗体上绘制一个命令按钮，名为 md1，标题为 Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现，此时如果单击命令按钮，则在窗体上显示 VisualBasic。程序运行情况如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中。工程文件名为 sj2.vbp，窗体文件名为sj2.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性
8、窗口设置该命令按钮名称为 Cmd1，Caption 属性为 Display，Visible 属性为 False；打开代码窗口输入如下代码：Private Sub Cmd1 Click()Print“VisualBasic“在窗体显示 VisualBasicEnd SubCmd1.Visible=True使命令按钮可见End Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有一个标签数组，名为 Lab1，该数组有 4 个控件元素，标题分别是 Wait、E
9、dit、Aix 和 Move，如下图所示。在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目所给工程文件；将注释语句改为：Form1.MousePointer=0Select Case Index，按要求保存文件即完成本题。)解析：4.在考生文件夹中有一个
10、工程文件 sj4.vbp(相应的窗体文件名为 sj4.frm)。在名为 Form1 的窗体上有 4个文本框，初始内容为空；1 个命令按钮，标题为“按降序排列”。其功能是通过调用过程 Sort 将数组按降序排序。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。（分数：20.00）_正确答案：(打开题目所给工程文件；将注释语句改为：Start=LBound(a)Finish=UBound(a)For i=4 To 2 Step-1For j=1 To 3If a(j)a(j+1)按要求保
11、存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在考生的文件夹下有一个工程文件 sj5.vbp，相应的窗体文件为 sj5.frm。在窗体 Form1 上有两个命令按钮，其名称分别为 Cmd1 和 Cmd2，标题分别为“文件写入”和“文件读出”，如下图所示。其中“文件写入”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件 out57.txt 中；而“文件读出”命令按钮事件过程用来读出文件 out57.txt 中的每个记录，并在窗体上显示出来。通信录中的每个记录由 3 个字段组成，结构如下：（分数：30.00）_正确答案：(1打开题目所给工程文件；2将注释语句改为：Rec Num=RecNum+1Put#1,RecNum,PersLoop While UCase(asp)=”Y”Rec Num=LOF(1)/Len(Pers)Get#1,i,Pers3按要求保存文件即完成本题。)解析：
