VB 水仙花数

水仙花数，又称自恋数或 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编程的过程中，理解这段代码有助于提升对控制流、函数以及数值操作的理解。