不是平均为完全平方数,是均为完全平方数.
完全平方数:一个数的开方值是整数,就是这个数能写成2个相同的整数的乘积.
FOR i=1 TO 3162
    FOR j=1 TO 3162
        FOR k=1 TO 3162
            FOR l=1 TO 3162
                s$=LTRIM$(STR$(i*i+j*j+k*k+l*l))
                IF LEN(s$)=10 THEN f=1 ELSE f=0
                IF f THEN 
                   FOR m=1 TO 9
                       FOR n=m+1 TO 10
                           IF MID$(s$,m,1)=MID$(s$,n,1) THEN f=0:GOTO 1
                   NEXT n,m
1                  IF f THEN PRINT i*i,j*j,k*k,l*l:END
                END IF
NEXT l,k,j,i
END

程序我看懂了,可你的解释我还是不懂

时不时可以这样理解？
将10个数字，组合成四个多位数或个位数，这四个数的平均数是一个完全平均数。
至于完全平均数是什么，我也不知道啊

如:
36开方是6
而6*6=36;
懂了吗?

恩，知道了