vb怎么求合数？VB，中的穷举法水仙花数

• 水仙花数

水仙花数（Narcissistic number）也被称为超完全数字不变数（pluperfect digital invariant, PPDI）、自恋数、自幂数、阿姆斯壮数或阿姆斯特朗数（Armstrong number），水仙花数是指一个 n 位数（n≥3 ），它的每个位上的数字的 n 次幂之和等于它本身（例如：1^3 5^3 3^3 = 153）。水仙花数只是自幂数的一种，严格来说3位数的3次幂数才称为水仙花数。

常见水仙花数

水仙花数又称阿姆斯特朗数。

三位的水仙花数共有4个：153，370，371，407；

四位的四叶玫瑰数共有3个：1634，8208，9474；

五位的五角星数共有3个：54748，92727，93084；

六位的六合数只有1个：548834；

七位的北斗七星数共有4个：1741725，4210818，9800817，9926315；

八位的八仙花数共有3个：24678050，24678051，88593477

1. 设计界面

2. 设置属性

3. 编写代码

mid 这些是用于字符串的 用的话要转换 而我没有转换 你们可不要学习我的坏的

我这里用 ^ 这个我不提议用 ^ 因为这个有时候你得数大的话它会给你的答案是近似值的 这个是我老师我说的