vb题 一个整数加上100是完全平方数，再加168又是完全平方数，输出该数

Question

如题所述

Answer 1

 flag = True
 i = 10
 While flag
    i = i + 1 '利用最笨的穷举法，不对就一直加下去
    t = i * i + 68  '这里:i*i=该数+100,所以 è¯¥æ•°+168=i*i-100+168=i*i+68
    If Sqr(t) = Int(Sqr(t)) Then '开方结果为整数，符合要求，输出并置循环标志为假
     Print i * i - 100 '要减去100，所求该数最小是156
     Print i; i * i
     Print Sqr(i * i + 68); i * i + 68
     flag = False '退出循环标志
    End If
   
 Wend追问

可以不用flag吗，还没学
只用循环判断可以吗

追答
for i=10 to 100000 '随便设置一个上限，比如 100000
    i = i + 1 '利用最笨的穷举法，不对就一直加下去
    t = i * i + 68  '这里:i*i=该数+100,所以 è¯¥æ•°+168=i*i-100+168=i*i+68
    If Sqr(t) = Int(Sqr(t)) Then '开方结果为整数，符合要求，输出并置循环标志为假
     Print i * i - 100 '要减去100，所求该数最小是156
     Print i; i * i
     Print Sqr(i * i + 68); i * i + 68
     exit for '退出for循环
    End If    
next i

Answer 2

我擦。计算器编程。可惜我是自学c的