Question

100到999的水仙花数是多少

请问用VB语言写出求100到999的水仙花数的代码是什么`

Answer 1

# include <stdio.h>
main()
{
int i,j,k,n;
printf("The water flower number is:\n");
for(n=100;n<=999;n++)
{
i=n/100;//百位//
j=n/10%10;//十位//
k=n%10;//个位//
if(i*100+j*10+k==i*i*i+j*j*j+k*k*k)
{
printf("%d",n);
printf("\n");
}
}

}
四个：153 370 371 407
老子C语言出身咋滴

Answer 2

dim i,a,b,c
for i=100 to 999
a=fix(i/100)
b=i mod 10
c=i-a*100+b*10
if i=a*a*a+b*b*b+c*c*c then
label1.caption=i(显示在标签上)
end if
next i
随便你想要什么地方显示