水仙花数vb代码 vb空格代码


水仙花数vb代码 vb空格代码

文章插图
大家好,小跳来为大家解答以上的问题 。vb空格代码 , 水仙花数vb代码这个很多人还不知道,现在让我们一起来看看吧!
1、Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 9For b = 0 To 9For c = 0 To 9If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then Print a & b & cNext cNext bNext a答案补充 运行结果是:153 370 371 407 。
【水仙花数vb代码 vb空格代码】本文到此分享完毕,希望对大家有所帮助 。