Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3
For i = 10 To 999
If i < 100 Then
ge = i Mod 10
shi = i \ 10
If ge ^ 3 + shi ^ 3 = i Then Print ,
Else
ge = i Mod 10
shi = i \ 10 Mod 10
bai = i \ 100
If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then
Print i,
geshu = geshu + 1
If geshu Mod 5 = 0 Then Print
End If
End If
Next i
Print geshu
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024