编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身

编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身
编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身

编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身
Option Explicit
Private Sub Command1_Click()
Dim i%, j%, k%
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If i * i * i + j * j * j + k * k * k = i * 100 + j * 10 + k Then Print i & j & k
Next k: Next j: Next i
End Sub