【用VB求三位数的水仙花数】在编程学习中，水仙花数是一个经典的算法问题。所谓“水仙花数”，是指一个三位数，其各位数字的立方和等于该数本身。例如：153 = 1³ + 5³ + 3³，因此153是一个水仙花数。
使用Visual Basic（VB）语言可以很方便地编写程序来找出所有的三位数中的水仙花数。下面将总结出三位数范围内的所有水仙花数，并通过表格形式展示结果。
一、水仙花数的定义
水仙花数（Narcissistic number）又称自恋数、自幂数，是指一个n位数，其各位数字的n次幂之和等于该数本身。对于三位数来说，n=3，因此判断条件为：
> 个位³ + 十位³ + 百位³ = 三位数本身
二、VB程序思路
1. 遍历所有三位数（从100到999）。
2. 对每个数，提取百位、十位、个位。
3. 计算各数字的立方和。
4. 判断是否与原数相等，若相等则输出。
三、三位数的水仙花数汇总
以下是通过VB程序计算得出的三位数中的水仙花数列表：
| 水仙花数 | 各位数字立方和 | 是否符合 |
| 153 | 1³ + 5³ + 3³ = 1 + 125 + 27 = 153 | 是 |
| 370 | 3³ + 7³ + 0³ = 27 + 343 + 0 = 370 | 是 |
| 371 | 3³ + 7³ + 1³ = 27 + 343 + 1 = 371 | 是 |
| 407 | 4³ + 0³ + 7³ = 64 + 0 + 343 = 407 | 是 |
四、结论
通过VB程序可以高效地找到所有三位数中的水仙花数。上述表格展示了四位符合条件的水仙花数，它们分别是153、370、371和407。这些数字不仅具有数学上的趣味性，也常被用于编程教学中作为逻辑练习的案例。
如果你正在学习VB或想了解如何编写类似的小程序，这个例子是一个很好的起点。
