用流程图描述100-999的水仙花数 水仙花数含义：一个正整2113数有x（x>；2）位，它每位位数5261上的x次幂等于它本身。4102题目要求流程图得到在1653100~999之间的水仙花数，首先设定2个变量x，n。x表示变量100~999，n表示水仙花数量，并且设初始x=100，n=0。接下来判断x是不是属于该范围，若是，则进行水仙花数的判定（附一），判定水仙花数过后x自加一，x=x+1。若不是，则在100~999之间的数都遍历完成，输出数量n。附一（水仙花判定）：x是一个3位数，判定要求按照水仙花数定义。x/100取整；得到百位的数字，x除100的余数再除10取整，得到十位的数字；x除10的余数，就是x的个位数，依次百位十位个位的三次方相加，若与原数x相等则是水仙花数，输出该数字，n自加一；若不等，则不是。流程图如下图所示：
VB编程水仙花数 VB实现水仙花数的程序代码如下：Private Sub Command_Click()For num=100 To 999a=num Mod 10b=num \\ 10 Mod 10c=num \\ 100If a^3+b^3+c^3=num Then Print numNext numEnd 。
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
