用循环语句求所有的水仙花数(for--next)

看来我来的不晚VB实现的,你用着看吧,源码如下 Sub Main() Dim a As Integer, b As Integer, c As Integer, i As Integer For i = 100 To 999 a = i Mod 10 b = (i - a) / 10 Mod 10 c = (i - b * 10) / 100 If a * a * a + b * b * b + c * c * c = i Then Console。WriteLine(i) End If Next End Su