vb中若一个三位整数等于它的各位数字的立方和， 则称该三位整数是 "水仙花数" ， 例如，407=4 3+0 3+7 3，所以 407 是水仙花数。请编程找出所有的"水仙花数"

好的，以下是 VB 代码实现：

' 找出所有的 "水仙花数"
For i = 100 To 999
    ' 将 i 拆分为三个数字
    Dim a As Integer = i \ 100 ' 百位数
    Dim b As Integer = (i Mod 100) \ 10 ' 十位数
    Dim c As Integer = i Mod 10 ' 个位数
    
    ' 判断是否为水仙花数
    If i = a ^ 3 + b ^ 3 + c ^ 3 Then
        Console.WriteLine(i)
    End If
Next

这段代码会输出所有的水仙花数，即 153、370、371、407。