Question

3、用VB编一程序，显示出所有的水仙花数。

所谓水仙花数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153=13+53+33，希望能给详细的编码，感激万分啊

Answer 1

Private Sub Command1_Click()
Dim i As Integer

For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub

Answer 2

PrivateSubCommand1_Click()
DimiAsInteger
Fori=100To999
If(i\100)^3+(i\10Mod10)^3+(iMod10)^3=iThenPrinti
Next
EndSub

Answer 3

挖出

Answer 4

很佩服一楼的见解，