vb求解方程组,利用for多重循环输出所有满足方程2*x^2+y^2=1000的整数解,利用vb的for多重循环结构

Question

vb求解方程组,利用for多重循环
输出所有满足方程2*x^2+y^2=1000的整数解,利用vb的for多重循环结构

Answer 1

1000的平方根约为31.6
500的平方根约为22.3
所以
dim x as integer
dim y as integer
for y=-31 to 31
for x=-22 to 22
if 2 * x^2 + y^2 = 1000 then
print "x=":x,"y=":y
endif
next x
next y

楼上的y取不到32.