题目

水仙花数也被称为超完全数字不变数，是指一个3位数，它的每个位上的数字的3次幂之和等于它本身（例如：13+53+33=153）。课堂上老师布置作业要求用VB编写一个程序，找出所有的水仙花数，下面是小丽同学完成的作业，其中有几处错误，请帮她修改。 Private Sub Command1_Click()     Dim i As Long, j As Long, k As long     Dim As long     For i=0 To 9         For j=0 To 9             For k=0 To 9                 s=i*100+j*10+k                 If(i^3)+(j^3)+(k^3)=s Then                     Debug. Print s                 End If             Next k         Next j     Next i End Sub （1） 修改“Dim As Long”行中的错误； （2） 修改“For i=0 To 9”行中的错误； （3） 修改“If(i^3)+(j^3)+(k^3)= s Then”行中的错误； 答案： 改成“Dim s As Long” 改成“For i=1 To 9” 改成“If (^3)+(j^3)+(k^3)= s Then”

查看本题答案和解析