求100^999中所有的水仙花数,

问题描述:

求100^999中所有的水仙花数,

Private Sub Form_Load() Me.AutoRedraw = True For i = 100 To 999 If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i Next iEnd Sub