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

操作步骤
(1)在VisualBasic集成环境中执行“文件”→“打开工程”命令，在对话框中选择ylc6.vbp工程文件，单击“打开”按钮。
(2)选择工具箱的TextBox控件，在窗体上创建名称为Text1、Text2、Text3、Text4和Text5的五个文本框控件，标题都设置为空。
(3)通过工具箱选择命令按钮，创建标题为“求和”，名称为C1的命令按钮。
2．行为编码
(1)编写Command1命令按钮的Click事件过程，代码如下：
PrivateSubCommand1_Click()
’定义Double型求和变量dnum
DimdnumAsDouble
’定义数组arr
Dimarr(0To4)AsInteger
’使数组元素赋得其值
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)
EndSub
(2)按F5键运行该程序。
3．存盘保存
执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。