我的题目是一个四位数它的前两个数相同，后两位数也相同。而且这个数是一个正整数个平方。求这个数。
<script language="VBScript">
dim a,b,b1,c,c1,d,e
for e=1 to 9999
a=int(e/1000)
b=e-a*1000
b1=int(b/100)
c=e-a*1000-b1*100
c1=int(c/10)
d=int(e-a*1000-b1*100-c1*10)
if a=b1 and c1=d and then
document.write(e)
end if
netx
</script>
2005-03-24 14:41