Question

如果一个四位数等于它的各数位上的数字的4次方的和，则称这个四位数为“玫瑰花数”， 如 ，设计一个程序，

如果一个四位数等于它的各数位上的数字的4次方的和，则称这个四位数为“玫瑰花数”，
如 ，设计一个程序，找出所有的玫瑰花数. 要用BASIC语言阿，数学必修三教的。

Answer 1

C语言版的。。。BASIC很久没弄了。。不记得怎么搞了。。你看一下思路，自己编吧~~挺简单的
int i,j,k,l,m,n;
for(i=1;i<10;i++)
{
for(j=0;j<10;j++)
{
for(k=0;k<10;k++)
{
for(l=0;l<10;l++)
{
m=i+j+k+l;
n=i*1000+j*100+k*10+l;
if(m==n)
printf("%d",m);
}
}
}
}

Answer 2

a^4+b^4+c^4+d^4=1000a+100b+10c+d
a=1-9,b,c,d=0-9，循环900次即可。

Answer 3

a^4+b^4+c^4+d^4=1000a+100b+10c+d
a=1-9,b,c,d=0-9，循环900次即可。

Answer 4

i=1000
DO
A=i\1000
B=(i-1000*A)\100
C=(i-1000*A-100*B)\10
D=1MOD10
IF i=A^4+B^4+C^4+D^4
THEN
PRINT i
END IF
i=i+1
LOOP UNTIL i>9999
END

Answer 5

Private Sub Command1_Click()
Dim a, b, c, d, m As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
m = a * 1000 + b * 100 + c * 10 + d
If m = a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 Then
Print m
End If
Next d
Next c
Next b
Next a
End Sub