编写程序，找到1至100的全部同构数

用VB解决

---

C语言的：
void main()
{
int i,j,s;
int count=0;
for(i=1;i<100;i++)
{
if(i<10)
s=1;
else s=2;
j=i*i;
if(i==j%(int)pow(10,s))
{
printf("%d\n",i);
count++;
}
}
printf("谈猛谨含基total number:%d\n",count);

}
应该有5个，1，5，知裤6，25，76
PASCAL:
var i:integer;
begin
for i:=1 to 9 do
if i*i-i mod 10=0
then writeln(i);
for i:=10 to 99 do
if i*i-i mod 100=0
then writeln(i);
if 100*100-100 mod 1000=0 then writeln(100);
end.

---