在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，

问题：

在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来(如下图所示)。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的“”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

[试题源程序]

1 Option Base 1

2 Private Function Average(a( )As Integer)As Single

3 Dim Start As Integer，Finish As Integer

4 Dim i As Integer

5 Dim Sum As Integer

6 ’Start=(a)

7 ’Finish=(a)

8 ’Sum=

9 For i=Start To Finish

10 ’Sum=Sum+

11 Next i

12 ’Average=

13 End Function

14

15 Private Sub Command1_Click( )

16 Dim arr1

17 Dim arr2(4)As Integer

18 arr1=Array(Val(Text1.Text)，Val(Text2Text)，Val(Text3.Text)，Val(Text4.Text))

19

20 For i=1 To 4

21 arr2(i)=CInt(arrl(i))

22 Next i

23 ’Aver=Average()

24 Print "平均值是："；Aver

25 End Sub