Private Sub Command1_Click()
Dim a%, b%, sum As Integer, c As String
For a = 100 To 999
c = CStr(a)
sum = 0
For b = 1 To 3
sum = sum + Val(Mid(c, b, 1)) ^ 3
Next b
If sum = a Then
Print a
End If
Next a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024