房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • 求水仙花数程序

    通用程序即可

    提问者：666wksn

    发布于2011-01-16

共1个回答
  • gelunbu 丨Lv 3
    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
    +1 2011-01-16 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。