继续优化，减少一层 If/EndIf 辨别，减少 K 循环数：

For K = 1 To 13
    B = 84/K - K/2
    If Int (B) = B
        ? "OUT = " + Transform(Int(B*B - 100))
    Endif
Endfor

不一定是优化的，只是表示使用语句最少，三句命令：

For K = 13 To 1 Step - 1
    ?? Iif(Int(84/K - K/2) = (84/K - K/2), "OUT = " + Transform(Int((84/K - K/2)*(84/K - K/2) - 100)) + Chr(10) + Chr(13), "")
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
*!*    假设：b > a > 0
*!*    a = (b-k) = (84/k+k/2-k) > 0
*!*    k^2 < 168
*!*    k <= 12
*!*    k是偶数，并且 2<=k<=12

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

[此贴子已经被作者于2016-5-24 07:35编辑过]

看到 23 楼的帖子，应该是优化的顶点/截至/拐点，我放弃了继续优化的兴趣，就此刹车，打住。

等待下一个有兴趣算法的帖子出现ing

有意思，看到当年学C语言时，书本上的C语言算法的影子了。

这个算是经典问题。
这类与“完全平方数”相关的问题，经常在小学数学竞赛（或小学奥数竞赛）中出现。

回过头来我们小结一下。

对计算机初级编程的人来说，其实要求你掌握循环、赋值、判别、显示等语句，只要程序走的通，可以上机，一般用暴力/遍历方法；

对数学专业的人来说，一定要有独特的算法；

对计算机编程专业的人来说，不仅要有算法，还要有优化。

暴力/遍历法也许不太科学，但也不至于伪科学、不科学，因为预测、猜测、概率、博弈也是一门学问，他们是研究不可知、不确定性的学科。
只要猜测不是胡说八道，不是迷信。

谢谢大家。