三十六段魔尺变大海龟:50分~用QB语言输出所有水仙花数
来源:百度文库 编辑:杭州交通信息网 时间:2024/04/20 10:48:39
循环结构就用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/04/20 10:48:39
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