今天来聊聊关于四叶玫瑰数有哪几个，四叶玫瑰数vb的文章，现在就为大家来简单介绍下四叶玫瑰数有哪几个，四叶玫瑰数vb，希望对各位小伙伴们有所帮助。

1、四位数各位上的数字的四次方之和等于本身为四叶玫瑰数。

2、实现源码如下： program roseNumber; var a,b,c,d:longint; function four(n:longint):longint; begin four:=n*n*n*n; end; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do for d:=0 to 9 do begin if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then begin writeln(a,b,c,d); end end end.。

相信通过四叶玫瑰数vb这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。