Question

vb编程题 输出所有的水仙花数。所谓的水仙花数是指一个3位数，其各

vb编程题 输出所有的水仙花数。所谓的水仙花数是指一个3位数，其各位数字立方和等于该数
本身。例如：153是一个水仙花数，因为
333
153153++=。试编写程序找出所有的水仙花
数，并将其在窗体上打印输出，要求每行打印3个输出。

Answer 1

Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3
For i = 10 To 999
If i < 100 Then
 ge = i Mod 10
 shi = i \ 10
 If ge ^ 3 + shi ^ 3 = i Then Print ,
Else
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 5 = 0 Then Print
 End If
End If
Next i
 Print
 Print
 
Print geshu
End Sub