[问答题] 在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一个整数

[问答题] 在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来(如下图所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的“”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。[试题源程序]1 Option base 12 Private Function Average(a( )As Integer)As Single3 Dim Start As Integer，Finish As Integer4 Dim i As Integer5 Dim Sum As Integer6 ’Start=(a)7 ’Finish=(a)8 ’Sum=9 For i=Start To Finish10 ’Sum=Sum+11 Next i12 ’Average=13 End Function1415 Private Sub Command1_Click( )16 Dim arr117 Dim arr2(4)As Integer18 arr1=Array(Val(Text1.Text)，Val(Text2Text)，Val(Text3.Text)，Val(Text4.Text))1920 For i=1 To 421 arr2(i)=CInt(arrl(i))22 Next i23 ’Aver=Average()24 Print "平均值是："；Aver25 End Sub

第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt4.vbp。第二步：双击窗体中的命令按钮，进入代码编辑窗口，对确定按钮的单击事件进行代码编辑如下：1 Option base 12 Private Function Average(a( )A0Integer)As Single3 Dim Start As Integer，FinishAs Integer4 Dim i As Integer5 Dim Sum As Integer6 Start=LBound(a)7 Finish=UBo

使用LBound函数来返回数组的指定维数的最小可用下标，使用UBound函数确定数组的指定维数的最大可用下标。