编写VB代码，求4位“水仙花数”。即满足这样的条件的数：各位数字的4次方的和等于该数自身。

for a=0 to 9
for b=0 to 9
for c=0 to 9
for d=0 to 9
if a^4+b^4+c^4+d^4=a*1000+b*100+c*10+d then print a^4+b^4+c^4+d^4
next d
next c
next b
next a

还有一个方法就是
dim str as string
for i=1000 to 9999
str = cstr(i)'将数字转化为字符串
a=val(mid(str ,1 , 1))
b=val(mid(str ,2 , 1))
c=val(mid(str ,3 , 1))
d=val(mid(str ,4 , 1))
if a^4+b^4+c^4+d^4=i then print i
next i