求水仙花数程序通用程序即可

Dim p As IntegerFor n = 100 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - (a * 100 + b * 10)p = a ^ 3 + b ^ 3 + c ^ 3If p = n Then List1。AddItem pNext