用VB编写水仙花数的代码

列出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