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

学习 时间:2026-05-31 00:40:46 阅读:3981
求水仙花数程序通用程序即可

最佳回答

想人陪的树叶

矮小的果汁

2026-05-31 00:40:46

Dim p As IntegerFor n = 100 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - (a * 100 + b * 10)p = a ^ 3 + b ^ 3 + c ^ 3If p = n Then List1。AddItem pNext

最新回答共有2条回答

  • 壮观的天空
    回复
    2026-05-31 00:40:46

    Dim p As IntegerFor n = 100 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - (a * 100 + b * 10)p = a ^ 3 + b ^ 3 + c ^ 3If p = n Then List1。AddItem pNext

上一篇 英语对我们生活有什么帮助英语怎么说

下一篇 从下面5根小棒中任意取出3根摆成三角形,有哪些不同的摆法?3cm 4cm 5cm 6cm 9cm