用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身如153=1??+5??+3??

Question

用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身
如153=1??+5??+3??

Answer 1

Option Explicit
Private Sub command1_click()
Dim I As Integer, a As Integer, b As Integer, c As Integer
Dim st As String
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
I = a * 100 + b * 10 + c
If I = a ^ 3 + b ^ 3 + c ^ 3 Then
st = I & "=" & a & "^3+" & b & "^3+" & c & "^3"
List1.AddItem st
End If
Next c
Next b
Next a
End Sub