[問答題] 在考生文件夾下有一個(gè)工程文件stj4.vbp，相應(yīng)的窗體文件為stj4.frm，其功能是通過調(diào)用過程FindMax求數(shù)組的最大值，請(qǐng)裝入該文件，程序運(yùn)行后，在四個(gè)文本框中各輸入一個(gè)整數(shù)，然后單擊命令按鈕，即可求得數(shù)組的最大值，并在窗體上顯示出來(如下圖所示)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。試題源程序：1 Option Base 12 Private Function FindNax(a( )As Integer)3 Dim Start As Integer4 Dim Finish As Integer，i As Integer5 ’Start=(a)6 ’Finish=(a)7 ’Max=(Start)8 For i=Start To Flnlsh9 ’If a(i)Nax Then Nax=10 Next i11 FindMax=Nax12 End Function13 Private Sub Command1_Click( )14 Dim arr115 Dim art2(4)As Integer16 arr1=Array(Val(Text1.Text)，Val(Text2.Text)，Val(Text3.Text)，Val(Text4.Text))17 For i=1 To 418 arr2(i)=CInt()19 Next i20 ’M=FindUax()21 Print"最大值是："；M22 End Sub

(1)啟動(dòng)VB程序，打開考生文件夾下的工程文件stj4.vbp。(2)雙擊窗體中的任何位置，進(jìn)入代碼編輯窗口，完善程序如下：1 private Function FindMin(a( )As Integer)2 Dim Start As Integer3 Dim Finish As Integer，i AsInteger4 Start=LBound(a)5 Finish=UBound(a)6 Min=a(Start)7 For i=Start To Finish8 If a(i)＜Min Then Min

過程FindMin求數(shù)組的最小值。將數(shù)組的第一個(gè)值設(shè)為最小值Min，其后的值依次與之比較，若小，則將其賦給Min，最終得到的就是最小值。所以有Start=LBound(a)，F(xiàn)inish=UBound(a)和Min=a(Start)