作业帮 > 综合 > 作业

求水仙花数程序通用程序即可

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/02 23:02:29
求水仙花数程序
通用程序即可
Dim p As Integer
For n = 100 To 999
a = Int(n / 100)
b = Int((n - a * 100) / 10)
c = n - (a * 100 + b * 10)
p = a ^ 3 + b ^ 3 + c ^ 3
If p = n Then List1.AddItem p
Next