同济大学医学院地址:50分~用QB语言输出所有水仙花数
来源:百度文库 编辑:中科新闻网 时间:2024/05/16 06:45:36
循环结构就用DO WHILE
For n = 100 To 999
i = Int(n / 100)
j = Int((n - i * 100) / 10)
k = n Mod 10
If i ^ 3 + j ^ 3 + k ^ 3 = n Then Print n,
Next
中科新闻网是一部内容开放、自由的互动网络百科全书
客观、专业、权威的知识性百科全书
来源:百度文库 编辑:中科新闻网 时间:2024/05/16 06:45:36
For n = 100 To 999
i = Int(n / 100)
j = Int((n - i * 100) / 10)
k = n Mod 10
If i ^ 3 + j ^ 3 + k ^ 3 = n Then Print n,
Next