数学方法：
CLS
DEFINT A-Z
FOR i = 1 TO 100
  t = INT(LOG(i) / LOG(10)) + 1
  IF ABS(i * i - (i * i \ 10 ^ t) * 10 ^ t - i) <= .00001 THEN PRINT i
NEXT

字符串法：
CLS
FOR i = 1 TO 100
  i$ = LTRIM$(STR$(i)): i2$ = LTRIM$(STR$(i * i))
  IF INSTR(LEN(i2$) - LEN(i$) + 1, i2$, i$) <> 0 THEN PRINT i
NEXT