用循环语句求所有的水仙花数(for--next)
问题描述：
用循环语句求所有的水仙花数(for--next)
水仙花数：指一个三位数,其各位数的立方和等于该数,如153=13+53+3
答
看来我来的不晚VB实现的,你用着看吧,源码如下Sub Main()Dim a As Integer, b As Integer, c As Integer, i As IntegerFor i = 100 To 999a = i Mod 10b = (i - a) / 10...