求出各数字的立方和为1000的五位数的第10个

来源：百度知道 编辑：UC知道 时间：2024/06/07 09:48:00

19336

呵呵,VB的代码:

Private Sub Command1_Click()
Dim i&, s1%, s2%, s3%, s4%, s5%, j%

For i = 10000 To 99999
s1 = Val(Mid(CStr(i), 1, 1))
s2 = Val(Mid(CStr(i), 2, 1))
s3 = Val(Mid(CStr(i), 3, 1))
s4 = Val(Mid(CStr(i), 4, 1))
s5 = Val(Mid(CStr(i), 5, 1))

If s1 ^ 3 + s2 ^ 3 + s3 ^ 3 + s4 ^ 3 + s5 ^ 3 = 1000 Then
j = j + 1
If j = 10 Then Print i
End If
Next

End Sub