导读 列出100~999中的水仙花数及个数Private Sub Form_Click() Dim i, j, k, n As Integer For n = 100 To 999 i = n ...
列出100~999中的水仙花数及个数Private Sub Form_Click() Dim i, j, k, n As Integer For n = 100 To 999 i = n 100 j = n 10 - i * 10 k = n Mod 10 if n = i * i * i + j * j * j + k * k * k then Print n end if Next n End Sub。