水仙花数，又称自恋数或 Narcissistic number，在数学上是指一个三位数，它的每一位数字的立方和等于这个数本身。例如，153是一个水仙花数，因为\(1^3 + 5^3 + 3^3 = 1 + 125 + 27 = 153\)。在VB（Visual Basic）编程中，我们可以编写程序来找出所有的水仙花数。
以下是一个基于VB的水仙花数计算示例代码：
```vbnet
Module Module1
Sub Main()
Dim startNum As Integer = 100 '水仙花数的起始范围
Dim endNum As Integer = 999 '水仙花数的结束范围
For Each num In Enumerable.Range(startNum, endNum - startNum + 1)
If IsNarcissistic(num) Then
Console.WriteLine(num)
End If
Next
Console.ReadLine()
End Sub
Function IsNarcissistic(ByVal num As Integer) As Boolean
Dim sum As Integer = 0
Dim digits As String = num.ToString()
For Each digit In digits
sum += CInt(digit) ^ 3 '计算每位数字的立方和
Next
Return sum = num '如果立方和等于原数，返回True，否则返回False
End Function
End Module
```
这段代码首先定义了水仙花数的查找范围（100到999），然后通过`For Each`循环遍历这个范围内的每个数。对于每一个数，它调用`IsNarcissistic`函数来判断是否为水仙花数。这个函数将数字转换为字符串，以便逐位处理，然后对每一位进行立方并求和。如果求得的和与原始数字相等，就返回`True`，否则返回`False`。
在主程序中，当找到一个水仙花数时，就会通过`Console.WriteLine`打印出来，直到所有可能的数都被检查完。`Console.ReadLine()`用于暂停程序，让用户有机会查看输出结果。
通过这个VB程序，我们可以了解到如何在VB环境中实现基本的数值计算和条件判断。同时，这也是一种很好的实践，展示了如何利用循环结构和自定义函数来解决特定问题。在学习VB编程的过程中，理解这段代码有助于提升对控制流、函数以及数值操作的理解。
水仙花数.rar （4个子文件） 
水仙花数 
工程1.vbw 49B
