狗咬了有点破皮怎么办:50分~用QB语言输出所有水仙花数
来源:百度文库 编辑:高校问答 时间:2024/05/24 05:47:31
循环结构就用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