Question

vb程序，水仙花数

编一个程序，显示所有的水仙花数。所谓的水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为153=1^3+5^3+3^3

Answer 1

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
For d = 100 To 999
a = d \ 100 '求出百位数字
b = (d - a * 100) \ 10 '求出十位数字
c = d Mod 10 '求出个位数字
If (a ^ 3 + b ^ 3 + c ^ 3) = d Then
Print d
End If
Next
End Sub