我明白了，我写的那个嵌套没弄对，我试了一下，这个是对的，万分感谢！！

int(sqrt(i+100))=sqrt(i+100) 和 int(sqrt(i+100))-sqrt(i+100)=0 是等价关系，可以这么做：

Clear

*!*    求一个整数 它加上100是一个完全平方数 再加上268也是完全平方数

For lnX = 0 To 10000  && 或者更大
    If Sqrt(lnX + 100) = Int(Sqrt(lnX + 100)) And Sqrt(lnX + 268) = Int(Sqrt(lnX + 268))
        ? lnX
    Endif
Endfor

不是很懂...不过还是感谢大神~~

如果我把sqrt()分别赋值给两个不同变量 是应该在for循环里面赋值 还是在外面啊
应该是里面吧？之前试过在外面赋值结果没反应

应该在 For 里面：

For lnX = 0 To 10000  && 或者更大
    lnS1 = Sqrt(lnX + 100)
    lnS2 = Sqrt(lnX + 268)
    If lnS1 = Int(lnS1) And lnS2 = Int(lnS2)
         ? lnX
     Endif
 Endfor

最后的结果，简洁。。
这些都是暴力遍历，不知道有无算法的，我记得以前在读书的时候，TC算法，好像什么二分法，三分法。。不知道，这个也能不能用什么算法提高效率的。

[此贴子已经被作者于2016-5-23 08:43编辑过]

都是靠猜测来设定条件，不是科学的方法。

Clear

For I = 1 To 168 - 1 Step 2
    lnSum = 0
    lnCnt = 0
    lnSub = I
    Do While lnSum < 168
        lnSum = lnSum + lnSub
        lnSub = lnSub + 2
        lnCnt = lnCnt + 1
    Enddo
    If lnSum = 168 And lnCnt % 2 = 0
        ? (I - 1) * (I - 1) / 4 - 100
    Endif
Endfor

解法一：枚举/遍历/海选/暴力法

解法二：公因子分解法

解法三：解方程法
*!*    公式:
*!*    a*a = OUT + 100  (1)
*!*    b*b = OUT + 268  (2)
*!*    化简 (2) - (1):
*!*    b*b - a*a = 168
*!*    解方程组:
*!*    (b-a)*(b+a) = 168

For a = 1 To 168
    For b = a To 168
        If b * b - a * a = 168
            ? "OUT = " + Transform(a * a - 100)
        Endif
    Endfor
Endfor

还可以减少一层循环
*!*    公式:
*!*    a*a = OUT + 100  (1)
*!*    b*b = OUT + 268  (2)
*!*    化简 (2) - (1):
*!*    b*b - a*a = 168
*!*    解方程组:
*!*    (b-a)*(b+a) = 168
*!*    设 (b-a) = k
*!*    则 b = 84/k + k/2
*!*    k是偶数，并且 2<=k<=84

FOR k=84 TO 2 STEP -2
    IF 84%k == 0
        b = 84/k + k/2
        IF (b-k) > 0    && a>0
            ? "OUT = " + TRANSFORM(b^2 - 268)
        ENDIF
    ENDIF
ENDFOR