在Visual Basic（VB）中，要计算并显示所有的水仙花数，你可以使用以下几种方法：
方法一：使用三重循环
通过三重循环，将三个数连接成一个三位数再进行判断。
```vb
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
d = 100 * a + b * 10 + c
If d = a ^ 3 + b ^ 3 + c ^ 3 Then
Print d
End If
Next c
Next b
Next a
End Sub
```
方法二：使用一重循环
通过一重循环，将所有的三位数逐位分离后再进行判断。
```vb
Private Sub Command1_Click()
Dim ge As Integer, shi As Integer, bai As Integer, i As Integer
Print "水仙花数如下:"
For i = 100 To 999
ge = i Mod 10
shi = Int(i / 10) Mod 10
bai = Int(i / 100)
If ge ^ 3 + shi ^ 3 + bai ^ 3 = i Then
Print i
End If
Next i
End Sub
```
方法三：使用列表保存结果
使用列表保存所有满足条件的三位数，并在循环结束后输出结果。
```vb
Imports System
Module Program
Sub Main(args As String())
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
' 输出结果
For Each num As Integer In result
Console.WriteLine(num)
Next
End Sub
End Module
```
方法四：使用字符串处理
通过字符串处理将数字拆分为各个位上的数字，并计算各个数字的立方和。
```vb
Private Sub Form_Click()
For i = 100 To 999
z = CStr(i)
a = Val(Left(z, 1))
b = Val(Mid(z, 2, 1))
c = Val(Right(z, 1))
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i
End If
Next i
End Sub
```
以上是几种在VB中计算并显示水仙花数的方法。你可以根据自己的需求和喜好选择合适的方法。