VB代码题！急速求！50分，要求完全做出。求1000以内的水仙花数（水仙花数一个三位数，其各位数的立方和等于该数本身。要求将水仙花数保存到数组a()中，并打印到窗体上。请

Question

VB代码题！急速求！50分，要求完全做出。
求1000以内的水仙花数（水仙花数一个三位数，
其各位数的立方和等于该数本身。
要求将水仙花数保存到数组a()中，并打印到窗
体上。请用For循环结构实现。

Answer 1

需要在画面追加一个按钮控件:command1
Private Sub Command1_Click()
Print "水仙花数有:";
For i = 100 To 999
If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i;
Next i
End Sub