在考生文件夹下有一个工程文件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
参考答案：
第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt4.vbp。
第二步：双击窗体中的命令按钮，进入代码编辑窗口，对确定按钮的单击事件进行代码编辑如下：
1 Option Base 1
2 Private Function Average(a( )A0Integer)As Single
3 Dim Start As Integer，FinishAs Integer
4 Dim i As Integer
5 Dim Sum As Integer
6 Start=LBound(a)
7 Finish=UBound(a)
8 Sum=0
9 For i=Start To Finish
10 Sum=Sum+a(i)
11 Next i
12 Average=Sum/Finish
13 End Function
14 Private Sub Command1_Click( )
15 Dim arr1
16 Dim art2(4)As Integer
17 arr1=Array(Val(Text1.Text)，Val(Text2.Text)，Val(Text3.Text)，Val(Text4.Text))
18 For i=1 To 4
19 arr2(i)=CInt(arr1(i))
20 Next i
21 Aver=Average(art2( ))
22 Print"平均值是："；Aver
23 End Sub
第三步：填写完毕，调试成功后，以原文件名保存。
解析：
使用LBound函数来返回数组的指定维数的最小可用下标，使用UBound函数确定数组的指定维数的最大可用下标。