VB输出所有水仙花数 Private Sub Command1_Click()For i=100 To 999j=Left(i，1)k=Mid(i，2，1)l=Right(i，1)If j^百 3+k^3+l^3=i ThenPrint iEnd IfNext iEnd Sub输出后度总共只知有4个道153 370 371 4071000以内就是专这么多属
vb水仙花数是求什么？？？急 不会
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
