[問答題] 改錯題(14分) 【題目】 本程序的功能是在六位正整數(shù)中查找超級自戀數(shù)。如果將一個六位正整數(shù)從高位到低位,每兩位分為一組,共分為三組,三組數(shù)據(jù)的立方的和正好等于其本身,則稱該六位正整數(shù)為超級自戀數(shù)。1 Option Explicit2 Private Sub CmdFind_Click()3 Dim k As Long,num()As Integer,fg As Boolean4 Dim i As Integer,st As String5 st=""6 For k=100000 To 9999997fg=False8Call judge(k,num,fg)9If fg Then10 For i=UBound(num) To 1 Step -111 st=st & num(i) & "^3+"12 Next i 13 List1.Additem Left(st,Len(st)-1) & "=" & k14 End If15 Next k16 End Sub17 Private Sub judge(n As Long,a()As Integer,fg As Boolean)18 Dim k As Integer,nt As Long,sum As Long19 nt=n20 Do21 k=k+122 ReDim a(k)23 a(k)=n Mod 10024 n=n10025 Loop Until n=026 For k=1 To UBound(a)27sum=sum+a(k)^328 Next k29 If sum=nt Then fg=True30 End Sub【要求】 1.新建工程,按參考界面形式創(chuàng)建窗體,再從T盤根目錄下的err.txt文件中將有錯誤的程序代碼復(fù)制到代碼編輯器窗口中或自行輸入上述代碼,改正程序中的錯誤。 2.改錯時,不得增加或刪除語句,但可適當(dāng)調(diào)整語句的位置。 3.將窗體文件和工程文件分別命名為F1和P1,并保存到T盤的根目錄下。

第E行 st="" 改為挪動至 For循環(huán)內(nèi) ，如fg=False之后 第AG行Private Sub judge(n As Long,a()As Integer,fg As Boolean) 改為ByVal n 第BB行 ReDim a(k) 改為Redim Preserve a(k)