>>598
以下をメモ帳にでもかき、a.vbsとか名前付けて保存しダブルクリック

FOR I=100000 TO 1 STEP -1
J=I*I
FOR K=1 TO 9
IF INSTR(J,K)=0 THEN EXIT FOR
NEXT
IF K>9 THEN
MSGBOX J&"="&I&"^2"
EXIT FOR
END IF
NEXT