用vb程序做 求水仙花数的个数，所谓水仙花数是指一个三位数，该数的各位数字立方之和等于该数本身

Answer 1

Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3
For i = 10 To 999
If i < 100 Then
 ge = i Mod 10
 shi = i \ 10
 If ge ^ 3 + shi ^ 3 = i Then Print ,
Else
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 5 = 0 Then Print
 End If
End If
Next i
 Print
 Print
 
Print geshu
End Sub

追问

jieshu是什么意思

追答

geshu吧？是统计水仙花个数

追问

\
这个呢

追答

shi = i \ 10 Mod 10
例如：如果i=181，i \ 10的意思是i÷10取商，结果是18，然后18 mod 10，就是18÷10取余数，得8

取的就是十位数这个数字8

Answer 2

直接用枚举法。
#include "stdio.h"
void main()
{
int a,b,c,i;
for(i=100;i<1000;i++)
{
a=i/100;
b=i%100/10;
c=i%10;
if(a*a*a+b*b*b+c*c*c==i)
printf("%d\t",i);
}
}
这是100~999内的水仙花数，其实只有几个数。