电脑程序的高手们帮帮忙，在线跪求

来源：百度知道 编辑：UC知道 时间：2024/06/17 05:01:02
在0—999之间，找出满足条件的数，从大到小排列。条件为：例407=4的三方+0的三方+7的三方。
最好把怎么算出来的方法也说下，谢谢

用vb写吧：
Dim i, j, k As Integer
Dim m As Integer
For m = 0 To 999
i = Int(m / 100)
j = Int((m - i * 100) / 10)
k = m Mod 10

If i ^ 3 + j ^ 3 + k ^ 3 = m Then
Form1.Print m
End If

Next m

结果为：
0，1，153，370，371，407