变方向而向上运动；当Shape1的顶端到达Line1时，会自动改变方向而向下运动。
文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 Dim s As Integer, h As Long Private Sub Form_Load()
' Timer1.Enabled = ? ***** True ***** s = - 40 End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left, Shape1.Top + s
' If Shape1.Top <= ? Then ***** Line1.Y1 ***** s = - s End If
' If Shape1.Top + ? >= Line2.Y1 Then ***** Shape1.Height ***** s = - s End If End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。其功能如下：
1)单击\读数据\按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中； 2)单击\计算\按钮，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
\读数据\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 ' ***** 需考生编写的程序 *****
If Combo1.ListIndex = 0 Then For i = 1 To 100
If a(i) Mod 2 = 0 Then s = s + a(i) n = n + 1 End If Next i
Text1.Text = s \\ n End If
If Combo1.ListIndex = 1 Then For i = 1 To 100
If a(i) Mod 2 <> 0 Then s = s + a(i) n = n + 1 End If Next i
Text1.Text = s \\ n End If
If Combo1.ListIndex = 0 Then For i = 1 To 100 s = s + a(i) Next i
Text1.Text = s \\ 100 End If
**********************************************
*****第16套 综合应用题★★★★
在考生文件夹下有一个工程文件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列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
Option Base 1
Private Sub Form_Click() Const N = 5 Const M = 5
' Dim ? ***** Mat(N,M) As Integer ***** Dim i, j, t
' Open App.Path & \ ? As #1 ***** For Input ***** For i = 1 To N
For j = 1 To M
' ？ ***** Input #1,Mat(i,j) ***** Next j Next i Close #1 Print
Print \初始矩阵为：\Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j)； Next j Print Next i
For i = 1 To N
t = Mat(i, 2)
Mat(i, 2) = Mat(i, 4)
' ? ***** Mat(i,4)=t ***** Next i Print
Print \交换第二列和第四列后的矩阵为：\
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j)； Next j Print Next i End Sub
*****第17套 简单应用题★★★★
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个正整数读入数组a中； ②单击\计算\按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数
236?6?所以36就是一个完全平方数)，并计算这些完全的平方，那么它就是完全平方数。如：
平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。
在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行\计算\，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。 ' ***** 需考生编写的程序 *****
Private Sub Command2_Click() Dim sum As Long For k = 1 To 100
For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k
Text1 = Fix(sum / n) End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有1个计时器和2个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是\演示\和\退出\。请添加1个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为\程序设计\，标题字体为黑体小四号字。如图所示。程序功能如下：
①单击标题为\演示\的命令按钮时，则该按钮的标题自动变换为\暂停\，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
②单击标题为\暂停\的命令按钮时，则该按钮的标题自动变换为\演示\，并暂停标签的滚动。
③单击\退出\按钮，则结束程序运行。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
Private Sub Command1_Click()
' If Command1.Caption = ? Then ***** 演示 *****
' ? = True ***** Timer1.Enabled ***** Command1.Caption = \暂停\
Else
' ? = False ***** Timer1.Enabled ***** Command1.Caption = \演示\ End If End Sub
Private Sub Command2_Click() End End Sub
Private Sub Timer1_Timer()
' If ? > Form1.Width Then ***** Label1.Left+Label1.Width ***** Label1.Left = - Label1.Width Else
' Label1.Left = ? + 100 ***** Label1.Left ***** End If End Sub
*****第17套 综合应用题★★★★
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有3个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请添加3个命令按钮，名称分别为Cmd1、Cmd2和cmd3，标题分别为\产生数组\、\统计\和\退出\。如图所示。程序功能如下：
①单击\产生数组\按钮时，随机生成20个0 10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值在Text1文本框内显示。
②单击\统计\按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。
③单击\退出\按钮时，结束程序运行。
注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 Option Base 1
Dim a(20) As Integer, b(20) As Integer Private Sub Cmd1_Click()
Text1.Text = \： Text2.Text = \： Text3.Text = \ For i = 1 To 20
' a(i) = Fix(Rnd * ? + 1) ***** 9 ***** b(i) = 1
Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub
Private Sub Cmd2_Click() fmax = 0
For i = 1 To 20
' For j = 1 To ? ***** i-1 ***** If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j
' If b(i) > ? Then fmax = b(i) ***** fmax ***** Next i
For i = 1 To 20
' If b(i) = ? Then ***** fmax ***** Text2.Text = Text2.Text + Str(a(i)) + Space(2) End If Next i
Text3.Text = fmax End Sub
Private Sub Cmd3_Click()
' ? ***** End ***** End Sub
第18套 基本操作题★★★
（1）在名称为Form1，标题为“框架”的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有二个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2
Line1 600 1200 1600 300 Line2 1600 300 1600 1200 Line3 600 1200 2600 1200
要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。
请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
Private Sub Cmd1_Click() Private Sub Cmd2_Click()