VB编程实现水仙花数的判定与输出

水仙花数是数学中一个经典的数概念，特指一个三位数，其各位数的立方和等于该数本身。例如153，即1³+5³+3³=1+125+27=153。用VB编程实现水仙花数的判定与输出，是理循环逻辑、数分和条件判断的基础练习。

打开Visual Basic 6.0，新建标准EXE工程。在窗体中添加一个标签Label用于显示标题，一个文本框Text1用于展示结果，一个命令按钮Command1触发计算。界面设计需复杂，核心在于代码逻辑的实现。

双击命令按钮进入代码编辑窗口，编写事件过程。首先，要遍历所有三位数100到999，因为水仙花数的定义限定了是三位数。用For循环设定变量num从100到999，步长为1。

循环体内，需分num的各位数：百位数可通过num\\100整除运算获取，十位数用(num Mod 100)\\10先取余再整除，个位数直接用num Mod 10。例如num=153时，百位=153\\100=1，十位=(153 Mod 100)\\10=5，个位=153 Mod 10=3。

计算各位数的立方和：sum = 百^3 + 十^3 + 个^3。若sum等于原数num，则num是水仙花数。将条件的num依次添加到文本框中，用vbCrLf实现换行显示。

整代码如下：

Private Sub Command1_Click() Dim num As Integer, 百 As Integer, 十 As Integer, 个 As Integer, sum As Integer Text1.Text = \"\" For num = 100 To 999 百 = num \\ 100 十 = (num Mod 100) \\ 10 个 = num Mod 10 sum = 百 ^ 3 + 十 ^ 3 + 个 ^ 3 If sum = num Then Text1.Text = Text1.Text & CStr(num) & vbCrLf End If Next num End Sub

运行程序，点击命令按钮，文本框中会依次显示所有水仙花数：153、370、371、407。这串数既验证了逻辑的正确性，也展现了VB编程在处理数学问题时的简洁高效。

通过这个过程，不仅能掌握循环结构、整除与取余运算的应用，更能理如何将数学定义转化为可执行的代码逻辑，为更复杂的编程任务奠定基础。