|
发表于 2012-1-20 12:41:00
|
显示全部楼层
For I,100,999
If instring(string(i),"0")~=0 then
Cycle
Endif
If mid(string(i^2),3,3)="000" then
Disp I," ",i^2
Elseif mid(string(i^2),2,3)="000" then
Disp I," ",i^2
Elseif mid(string(i^2),2,1)="0" and mid(string(i^2),4,2)="00" then
Disp I," ",i^2
Elseif mid(string(i^2),2,2)="00" and mid(string(i^2),5,1)="0" then
Disp I," ",i^2
Endif
Endfor |
|