急求VB编程！

显示全部楼层 · 2009-5-23 09:36:06

dim n as integer,i as integer,s as longn=inputbox("请输入n的值：")for i=10 to 99 '2位的Armstrong数s=(i mod 10)^n+(i\10)^nif i=s then print i;next iprintfor i=100 to 999 '3位的Armstrong数s=(i mod 10)^n+(i\100)^n+((i mod 100)\10)^nif i=s then print i;next iprintfor i=1000 to 9999 '4位的Armstrong数s=(i mod 10)^n+(i\1000)...

千问 · 2009-5-23 09:36:06

dim i as integer ,j as integer,arm as integerfor i=10 to 9999
for j=1 tolen(str(I))
arm=arm+ val(mid(i,j,1))^2
next j
if arm=i then
print i
...