求1000以内的玫瑰花数！！
答案:1 悬赏:50 手机版
解决时间 2021-03-17 00:56
- 提问者网友：玫瑰园
- 2021-03-16 19:55
编写程序求1000以内玫瑰花数，玫瑰花花数是一个3位正整数，其各位数字的立方之和等于该数，例：153=1^3+5^3+3^3 麻烦高手写出代码！！！
最佳答案
- 五星知识达人网友：长青诗
- 2021-03-16 21:35
Private Sub Command1_Click()
For i = 100 To 999
a1 = (i Mod 10) '个位数
a2 = Int((i Mod 100) / 10) '十位数
a3 = Int(i / 100) '百位数
If a1 ^ 3 + a2 ^ 3 + a3 ^ 3 = i Then
Print a3 & "的立方+" & a2 & "的立方+" & a1 & "的立方=" & i
End If
Next i
End Sub
For i = 100 To 999
a1 = (i Mod 10) '个位数
a2 = Int((i Mod 100) / 10) '十位数
a3 = Int(i / 100) '百位数
If a1 ^ 3 + a2 ^ 3 + a3 ^ 3 = i Then
Print a3 & "的立方+" & a2 & "的立方+" & a1 & "的立方=" & i
End If
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯