[问答题] 改错题(14分)【题目】本程序的功能是在六位正整数中查找超级自恋数。如果将一个六位正整数从高位到低位,每两位分为一组,共分为三组,三组数据的立方的和正好等于其本身,则称该六位正整数

[问答题] 改错题(14分) 【题目】 本程序的功能是在六位正整数中查找超级自恋数。如果将一个六位正整数从高位到低位,每两位分为一组,共分为三组,三组数据的立方的和正好等于其本身,则称该六位正整数

[问答题] 改错题(14分) 【题目】 本程序的功能是在六位正整数中查找超级自恋数。如果将一个六位正整数从高位到低位,每两位分为一组,共分为三组,三组数据的立方的和正好等于其本身,则称该六位正整数为超级自恋数。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.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。 2.改错时,不得增加或删除语句,但可适当调整语句的位置。 3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。

正确答案：

第E行 st="" 改为挪动至 For循环内 ，如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)