Question

vf编程题 各位大神快进来，本人在考试 急急急！！！

若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。例如： 由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。求所有"四位双平方数"且十位数字是3的数的之和"。

Answer 1

k=1000
he=0
do whil k<=9999
s=0
m=1
if mod(sqrt(k),1)=0
if subs(allt(str(k)),3,1)="3"
do whil m<=4
zf=subs(allt(str(k)),m,1)
s=s+val(zf)
m=m+1
endd
if mod(sqrt(s),1)=0
he=he+k
?"满足条件的数有：",k,"是",sqrt(k),"的平方，各位数之和为：",s,"是",sqrt(s),"的平方!"
endi
endi
endi
k=k+1
endd
?"其和为：",he

Answer 2

s=0
for i=1 to 9
for j= 0 to 9
for k=0 to 9
for m=0 to 9
x=i*1000+j*100+k*10+m
y=i+j+k+m
if int(sqrt(x))=sqrt(x) and int(sqrt(y))=sqrt(y) and k=3
s=s+x
endif
next
next
next
next
?s