求100^999中所有的水仙花数,
问题描述:
求100^999中所有的水仙花数,
答
Private Sub Form_Load() Me.AutoRedraw = True For i = 100 To 999If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i Next iEnd Sub