[問答題] 改錯題（14分）【題目】本程序的功能是生成由n（n通過InputBox函數(shù)輸入）個3位升序數(shù)構(gòu)成的隨機(jī)數(shù)組,所謂升序數(shù)是指從高位到低位數(shù)字值依次增加的整數(shù)(本程序界面由1個TextBox和1個CommandButton組成，所有對象均采用缺省名)Option ExplicitOption Base 1Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“輸入數(shù)據(jù)個數(shù);”,”升序數(shù)數(shù)組”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>nEnd Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n10 Next i For i=1 to 2If a(i)>=a(i+1) Then Exit For Next i judge=TrueEnd Function1.新建工程,按參考界面形式創(chuàng)建窗體,再從T盤根目錄下的err.txt文件中將有錯誤的程序代碼復(fù)制到代碼編輯器窗口中或自行輸入上述代碼,改正程序中的錯誤。2.改錯時,不得增加或刪除語句,但可適當(dāng)調(diào)整語句的位置。3.將窗體文件和工程文件分別命名為F1和P1,并保存到T盤的根目錄下。

第15行 Loop Until k>n 改為 k=n第17行 Private Function judge(n as integer) As Boolean 改為 Byval n第24行 If a(i)>=a(i+1) Then Exit Function 改為Exit Function