Question

用vb编程 水仙花数 求程序。万分感谢

水仙花数是指一个n位数 ( n≥3 )，它每位上的数字的 n 次幂之和等于它本身。（例如：1^3 + 5^3 + 3^3 = 153）
要求：编程查找小于1000的所有水仙花数，并按图示格式在列表框中输出显示。
l 点击“生成水仙花数列表”则显示水仙花数；
l 点击“清空数据列表”则清空列表框显示；
l 点击“退出”按钮结束程序；
l 双击列表框中某项，则仅将该项从列表框中移除。

Answer 1

Private Sub Command1_Click()
For i = 100 To 999
a = Mid(i, 1, 1)
b = Mid(i, 2, 1)
c = Mid(i, 3, 1)
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Debug.Print i & "=" & a & "^3+" & b & "^3+" & c & "^3"
End If
Next i
End Sub

Answer 2