[问答题] 在考生文件夹下完成如下简单应用。 1．在一个工程文件ylc5.vbp，工程中已有一个Aver函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按

[问答题] 在考生文件夹下完成如下简单应用。
1．在一个工程文件ylc5.vbp，工程中已有一个Aver函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图17所示。
提供的函数过程如下：
Function Aver(arr()As Integer)As Double
Aver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4)
End Function
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体丈件名为ylc5.frm。

参考答案：

操作步骤 (1)在Visual Basic集成环境中执行“文件”→“打开工程”命令，在对话框中选择ylc6.vbp工程文件，单击“打开”按钮。 (2)选择工具箱的TextBox控件，在窗体上创建名称为Text1、Text2、Text3、Text4和 Text5的五个文本框控件，标题都设置为空。 (3)通过工具箱选择命令按钮，创建标题为“求和”，名称为C1的命令按钮。 2．行为编码 (1)编写Command1命令按钮的Click事件过程，代码如下： Private Sub Command1_Click() ’定义Double型求和变量dnum Dim dnum As Double ’定义数组arr Dim arr(0 To 4)As Integer ’使数组元素赋得其值 arr(0)=Text1.Text arr(1)=Text2.Text arr(2)=Text3.Text arr(3)=Text4.Text arr(4)=Text5.Text ’调用函数过程Aver，返回求得的和 dnum=Aver(arr()) ’清除窗体的显示内容 Form1.Cls ’将求得的总数显示在窗体上 Form1.Print("求得的总数是:"& dnum) End Sub (2)按F5键运行该程序。 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

问题解析:

(1)本题考查对函数的调用数值的计算。通过5个文本框得到输入的整数，调用题目中提供的函数过程得到它们的和，最后通过Print方法显示在窗体上。 (2)注意函数过程调用，数值计算，窗体文本的显示。 (3)Command1的Click事件中使用文本框接收5个输入的数据，然后调用已有的函数过程Aver得到求得的和后，通过窗体的Print方法显示。在显示前使用了Cls方法，清除以前的显示内容，使应用可以多次运用，而窗体不至于显得混乱。