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
编程，枚举算法，急 迪杰斯特拉（Dijkstra）算法求图的单源最短路径templatevoid Dijkstra(int n，int v，Type dist[]，int prev[]，Type*c){单源最短路径问题的 Dijkstra 算法bool s[maxint]；for(int i=1；i；i+){dist[i]=c[v][i]；s[i]=false；if(dist[i]=maxint)prev[i]=0；else prev[i]=v；}dist[v]=0；s[v]=true；for(int i=1；i；i+){int temp=maxint；int u=v；for(int j=1；j；j+)if。s[j]&dist[j]){u=j；temp=dist[j]；}s[u]=true；for(int j=1；j；j+)if。s[j]&c[i][j]){Type newdist=dist[u]+c[u][j]；if(newdist[j]){dist[j]=newint；prev[j]=u；}}}}如果还没解决你的问题，可以加我HI账号。
用两种方法求关于VB的伪代码 1dim i as integer，a as integer，b as integer，c as integerfor i=100 to 999a=i \\ 100b=(i mod 100)\\10c=i mod 10if a*a*a+b*b*b+c*c*c=i thenprint i；是水仙花数2113end ifnext2如果一个数N是素数 必须满足 不能被52612-sqr(N)中的任何一个自然数整除4102算法说明了具体程1653序代码略过3这道题目 用枚举的算法dim x as integer，y as interger，z as integer'x 公鸡，y 母鸡，z 小鸡for x=0 to 20for y=0 to 33z=100-x-yif 5*x+3*y+z/3=100 thenprint\"公；x，\"母；y，\"小；zend ifnext y，x你需要流程图吗 我可以画一张
求水仙花数，是指一个三位正整数，其各位数字立方和等于该数本身，如一百五十三等于一的三次方加五的三次
如何使用Raptor画程序流程图并得到运行结果，用Rator画流程图非常方便，它自己就提供了一个程序所需要的各种结构，比如输入，输出，顺序，选择，循环等。。
