在考生文件夹下有一个工程文件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

在考生文件夹下有一个工程文件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