在VB（Visual Basic）中，计算水仙花数可以通过以下步骤实现：
确定位数 ：首先确定要查找的水仙花数的位数`n`。遍历所有可能的数：
从`10^（n-1）`遍历到`10^n - 1`，对于每一个数，检查它是否是水仙花数。
拆分数字并计算立方和：
对于每一个数，将其拆分为各个位上的数字，并计算这些数字的立方和。
判断条件：
如果立方和等于原数本身，则该数是一个水仙花数。
输出结果：
将所有满足条件的数保存在一个容器中，并在循环结束后输出结果。
```vb
Imports System
Module Program
Sub Main（）
Dim n As Integer = 3 ' 指定位数
Dim result As New List（Of Integer）（） ' 保存结果的容器
For i As Integer = 10 ^ （n - 1） To 10 ^ n - 1
Dim sum As Integer = 0
Dim num As Integer = i
While num > 0
Dim digit As Integer = num Mod 10
sum += digit ^ n
num \= 10
End While
If sum = i Then
result.Add（i）
End If
Next
' 输出结果
Console.WriteLine（"三位水仙花数有："）
For Each num In result
Console.WriteLine（num）
Next
End Sub
End Module
```
代码解释：
确定位数：
`n = 3` 表示我们要找的是三位数。
遍历所有可能的数：
使用`For`循环从`100`到`999`遍历所有三位数。
拆分数字并计算立方和
`Dim sum As Integer = 0` 用于存储立方和。
`Dim num As Integer = i` 是当前遍历到的三位数。
`While num > 0` 循环将`num`拆分为各个位上的数字，并计算它们的立方和。
`digit = num Mod 10` 获取当前位的数字。
`sum += digit ^ n` 计算当前位数字的立方并累加到`sum`中。
`num \= 10` 去掉当前位的数字，继续处理下一位。
判断条件：
`If sum = i Then` 检查立方和是否等于原数本身，如果是，则该数是一个水仙花数。
输出结果：
使用`Console.WriteLine`输出所有找到的水仙花数。
运行上述代码将输出所有三位的水仙花数。