vb编程求所有“水仙花束”

水仙花数：在100-999这些三位数中，有些数本身等于它百位上数字的立方加上十位上数字的立方加上个位上数字的立方。

大哥,下次最好把什么是水仙花数的概念说出来,害我还去查了一下。代码这样写：

Dim xhbl As Long, s(1 To 3) As Long
xhbl = 100
Do While xhbl < 1000
s(1) = xhbl \ 100: s(2) = (xhbl Mod 100) \ 10: s(3) = xhbl Mod 10
If xhbl = s(1) ^ 3 + s(2) ^ 3 + s(3) ^ 3 Then Print xhbl
xhbl = xhbl + 1
Loop

用个循环，符合条件的打出了，很简单的嘛

另外，问问题的时候，把题目说清楚