用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身 Option ExplicitPrivate Sub command1_click()Dim I As Integer，a As Integer，b As Integer，c As IntegerDim st As StringFor a=1 To 9For b=0 To 9For c=0 To 9I=a*100+b*10+cIf I=a^3+b^3+c^3 Thenst=I&\"=\"&a&\"^3+\"&b&\"^3+\"&c&\"^3List1.AddItem stEnd IfNext cNext bNext aEnd Sub
VB如何求水仙花数 水仙花数是指一个 n 位数zhidao(n≥3)，它的每个位上的数字的 n 次幂之和等于它本身。（专例如：1^3+5^3+3^3=153）可以属运用将一个 For.Next 循环放置在另一个 For.Next 循环中，组成嵌套循环来解决水仙花求解问题。以3位10进制数100-999为例，代码如下：Private Sub Command1_Click()Dim i As Long，j As Long，k As LongDim s As LongFor i=1 To 9For j=0 To 9For k=0 To 9s=i*100+j*10+kIf((i^3)+(j^3)+(k^3))=s ThenDebug.Print sEnd IfNext kNext jNext iEnd Sub
VB编程水仙花数 1、首先2113双击桌面图标启动 visual basic 6.0。2、然后新建工程，选5261择标准EXE。3、选择完工程后，4102点击打开，就可以新建一个exe工程了1653。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click()事件中。5、代码：If a*100+b*10+c=a^3+b^3+c^3 Thenn=n+1If(n Mod 5)=0 ThenPrint a&b&cElsePrint a&b&c，End IfEnd IfNext cNext bNext aPrint Chr(13)&Chr(13)&\"三位数中水仙花数个数为\"&n。最后运行这样就完成了。
