1、二级 VISUAL+BASIC 机试-119 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)完成下列问题：（分数：30.00）(1).在名称为 Form1 的窗体上画一个名称为 Drive1 的驱动器列表框、一个名称为 Dir1 的目录列表框，一个名称为 File1 的文件列表框，一个名称为 Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle 为 1 的标签。窗体的标题没置为“文件系统控件”，如图 1 所示。请编写适当的程序，使得这 3 个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目
2、录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2 中。*注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_(2).在名称为 Form1 的窗体上画一个名称为 Hscroll1 的水平滚动条，其刻度范围为 1100；再画一个名称为 Text1 的文本框，初始内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置，运行情况如图 2 所示。*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生
3、文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：15.00）_二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有一个工程文件 sjt3.vbp。窗体上有名称为 Timer1 的定时器，以及名称为 Line1 和Line2 的两条水平直线。请用名称为 Shape1 的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：圆的顶端距离窗体 Form1 顶端的距离为 360。圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图 3 所示。*程序运行
4、时，Shape1 将在 Line1 和 Lihe2 之间运动。当 Shape1 的顶端到达 Line1 时，会自动改变方向而向下运行；当 Shape1 的底部到达 Line2 时，会改变方向而向上运动。文件中给出的程序不完整，请在程序中的横线处填写正确的内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出的控件的属性，最后把修改后的文件按原文件名存盘。题目提供的源程序Dim s As Integer, h As LongPrivate Sub Form_Load( )Timer1.Enabled= (1) s=-40End SubPrivate Sub Timer1_Timer()Sh
5、ape1.Move Shape1.Left, Shape1.Top+sIf Shape1.Top= (2) Thens=-sEnd IfIf Shapp1.Top+ (3) =Line2.Y1 Thens=-sEnd IfEnd Sub（分数：20.00）_(2).在考生文件夹下有一个工程文件 sjt4.vbp，包含了所有控件和部分程序，如图 4 所示。程序功能如下：*单击“渎数据”按钮，可将考生文件夹下 in4.dat 文件中的 100 个整数读到数组 a 中。单击“计算”按钮，则根据从名称为 Combo1 的组合框中选中的项目，对数组 a 中的数据计算平均值，并将计算结果四舍五入取整后显示
6、在文本框 Text1 中。“读数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程，实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。题目提供的源程序Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & “/in4.dat“ For Input As #1For k=1 To 100Input #1, a(k)Next kClose #1End Sub
7、Private Sub Command2_Click()考生应编写的程序End Sub（分数：20.00）_三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm，此外还有一个名为datain.txt 的文本文件，其内容如下：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程序运行后单击窗体，将把文件 datain.txt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，然后交换矩阵第
8、二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 5 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。（分数：30.00）_二级 VISUAL+BASIC 机试-119 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)完成下列问题：（分数：30.00）(1).在名称为 Form1 的窗体上画一个名称为 Drive1 的驱动器列表框、一个名称为 Dir1 的目录列表框，一个名称为 File1 的文件列表框，一个名称为 Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle
9、 为 1 的标签。窗体的标题没置为“文件系统控件”，如图 1 所示。请编写适当的程序，使得这 3 个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2 中。*注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：新建一个标准 EXE 工程，修改窗体的 Caption 属性为“文件系统控件”。第 2 步：在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框，保持各控件的默认属性
10、不变。第 3 步：在窗体上画一个标签控件，修改其 Caption 属性为“文件名”；再画一个标签控件，修改其BorderStyle 属性值为 1。第 4 步：编写程序。Private Sub Dir1_Change()File1.Path=Dir1.PathEnd SubPrivate Sub Dirve1_Change()Dir1.Path=Drive1.DriveEnd SubPrivate Sub File1_Click( )Label2=File1.FileNameEnd Sub第 5 步：调试、运行并保存程序。)解析：解析 驱动器列表框显示系统下的盘符，目录列表框显示当前盘符下的目录
11、文件路径，文件列表框显示当前目录下的文件名。通过下面的事件，使得三者同步变化：Private Sub Drive1_Change()Dir1.path=Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path=Dir1.PathEnd Sub单击文件列表框时，可以通过文件列表框的 FileName 属性取得当前从列表框中选取的文件名。(2).在名称为 Form1 的窗体上画一个名称为 Hscroll1 的水平滚动条，其刻度范围为 1100；再画一个名称为 Text1 的文本框，初始内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过
12、程，使得程序运行时，文本框中实时显示滚动框的当前位置，运行情况如图 2 所示。*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：新建一个标准 EXE 工程，保持窗体默认属性不变。第 2 步：在窗体上画一个水平滚动条，将其 Min 属性设置为 1，Max 属性设置为 100。由于先添加滚动条，后添加文本框，滚动条的 TabIndex 属性默认为 0，所以无须修改。第 3 步：添加文本框。在窗体上画一个文本框，将其 Text 属性改为 1。
13、第 4 步：编写代码。双击窗体上的滚动条控件进入代码编辑窗口，编写如下事件过程：Private Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd Sub第 5 步：调试并运行程序，按题目要求保存工程。)解析：解析 滚动条的刻度范围由 Min 和 Max 两个属性决定，对于本题只需将滚动条的 Min 属性设置为1，Max 属性设置为 100 即可满足刻度范围要求。窗体上控件焦点的顺序由各控件的 TabIndex 属性控制。程序运行时，要求焦点在滚动条上，只需将滚动条的 TabIndex 属性设置为 0 即可。滚动条的滑块位置由其 Value 属性
14、设置，当 Value 属性值发生改变时会引发滚动条的 Change 事件。二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有一个工程文件 sjt3.vbp。窗体上有名称为 Timer1 的定时器，以及名称为 Line1 和Line2 的两条水平直线。请用名称为 Shape1 的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：圆的顶端距离窗体 Form1 顶端的距离为 360。圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图 3 所示。*程序运行时，Shape1 将在
15、 Line1 和 Lihe2 之间运动。当 Shape1 的顶端到达 Line1 时，会自动改变方向而向下运行；当 Shape1 的底部到达 Line2 时，会改变方向而向上运动。文件中给出的程序不完整，请在程序中的横线处填写正确的内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出的控件的属性，最后把修改后的文件按原文件名存盘。题目提供的源程序Dim s As Integer, h As LongPrivate Sub Form_Load( )Timer1.Enabled= (1) s=-40End SubPrivate Sub Timer1_Timer()Shape1.Move S
16、hape1.Left, Shape1.Top+sIf Shape1.Top= (2) Thens=-sEnd IfIf Shapp1.Top+ (3) =Line2.Y1 Thens=-sEnd IfEnd Sub（分数：20.00）_正确答案：(操作步骤第 1 步：添加形状控件。打开工程 sjt3.vbp，进入窗体设计状态。单击工具箱中的形状按钮 )解析：解析 在窗体的载入事件中启动计时器 Timer1，在 Trimer1 的 Timer 事件中通过形状控件的 Move方法移动形状，移动时只改变了 Y 轴方向的值，即可实现形状的上下移动。通过对 Shape1.Top 的值和Line1Y1 的
17、值的比较来判定圆形是否越过上界，通过对 Shape1.Top+Shape1.Height 的值和 Line2.Y1 的值的比较来判定圆形是否越过下界。(2).在考生文件夹下有一个工程文件 sjt4.vbp，包含了所有控件和部分程序，如图 4 所示。程序功能如下：*单击“渎数据”按钮，可将考生文件夹下 in4.dat 文件中的 100 个整数读到数组 a 中。单击“计算”按钮，则根据从名称为 Combo1 的组合框中选中的项目，对数组 a 中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Text1 中。“读数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程
18、，实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。题目提供的源程序Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & “/in4.dat“ For Input As #1For k=1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()考生应编写的程序End Sub（分数：20.00）_
19、正确答案：(操作步骤第 1 步：打开工程文件 sjt4.vbp。第 2 步：编写程序。参考程序如下：Dim m As Long, n As LongDim x As Integer, y As IntegerFor i=1 to 100if a(i) Mod 2=0 Thenm=m+a(i)y=y+1Elsen=n+a(i)y=y+1End IfNextSelect Case Combo1.TextCase “所有偶数“Text1=Round(m/x)Case “所有奇数“Text1=Round(n/y)Case “所有数“Text1=Round(m+n)/(x+y)End Select第 3
20、 步：调试、运行并保存程序。)解析：解析 Command1_Click 事件过程实现“读数据”，将数据读入到数组 a 中。Command2_Click 事件过程负责数组 a 中数据平均值的计算和结果的显示。计算时可采用两种方法：一种方法是把数组 a 中所有的偶数、奇数及其个数分别累加到一个变量中，例如 m 为所有偶数的总和，x 为偶数的个数，n 为所有奇数的总和，y 为奇数的个数，根据组合框当前选取的计算内容来决定将 m/x、n/y 或(m+n)/(x+y)四舍五入取整显示在 Text1 中；另一种方法是先取得组合框当前选择的内容，再决定对数组 a 中的哪些数求平均数。用循环语句遍历数组 a，
21、用 If 语句和 Mod 运算符可判断奇偶数，用 Int()或 Round()函数可以实现数据的四舍五入。三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm，此外还有一个名为datain.txt 的文本文件，其内容如下：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程序运行后单击窗体，将把文件 datain.txt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，然后交换矩阵第二
22、列和第四列的数据，并在窗体上输出交换后的矩阵，如图 5 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。（分数：30.00）_正确答案：(操作步骤第 1 步：打开工程文件第 2 步：分析修改源程序第 3 步：调试、运行并保存程序。1Mat(N,M) 2For Input 3Input #1, Mat(i,j) 4Mat(I,4)=t)解析：解析 根据已给出的源程序可以看出，程序中采用数组来存储所有的数据，因此在1处明显就是要求定义一个数组，再根据循环体循环次数和引用的数组元素可以确定数组为 Mat(N，M)。有了数组后，需要从文件中读取数据存入到数组中，因此打开文件的模式应该是 For Input。3处应该是读数据。4处应该是交换两列的值，根据两变量交换的常用写法很容易得出答案。
