a=0
for i=1 to 100
for j=1 to 200
a=i*i+j*j-301*ij
if a>=0
    '当a=i*i+j*j-301*ij计算的结果<0时，循环返回到j再增加1，直至符合条件a>0才在立即窗口中显示并继续循环，请问在这行（或这行的注释符前面）要加个怎样的代码，谢谢（我加了个loop电脑提示出错）

else
endif
debug.print "a=";a
next j
next i

for i=1 to 100
  for j=1 to 200
    a=i*i+j*j-301*i*j
    if a>0 then debug.print "a=" & a
  next
next

现在问题是在i,j的取值范围内没有能满足a>0的

先生不好意思，等式是a=i*i+j*j-301*j

那就直接把a的表达式修改了就行了

啊，对不起，我的第五行代码应该是：if a<0,其他与原问题一样，请教在注释行前应添加怎样的代码，谢谢

a=0
for i=1 to 100
for j=1 to 200
a=i*i+j*j-301*ij
if a>=0 then debug.print "a=";a  '这不就结了
next j
next i

for i=1 to 100
  for j=1 to 200
    a=i*i+j*j-301*i
    if a<0 then debug.print "a=" & a
  next
next
不管a是否小于0,都要执行next j ,否则代码就无法执行.区别只是在于a<0时,要打印.

a=0
for i=1 to 1000
for j=1 to 2000
a=8888888*i*j-i*i-j*j
if a>0
    '当a=i*i+j*j-301*ij计算的结果<0时，循环返回到j再增加1，直至符合条件a>0才在立即窗口中显示并继续循环，请问在这行（或这行的注释符前面）要加个怎样的代码，谢谢（我加了个loop电脑提示出错）
    '假如这里有很多很复杂的关于i、j的计算关系式
    '在这里有个“if a>0”条件的话，可以少很多计算量，或在这里要将计算的结果写入DBF文件时，若没有这个“if a>0”限止条件，全部写入到DBF文件会使该文件空间很大，所以这里想设置这个“不符合条件返回循环”的代码，谢谢
else
endif
  '打开DBF表
     'FF1rs1.AddNew
     ,将计算结果写入DBF表
  'FF1rs1.Update
next j
next i

楼上的不是回答了吗？

a=0
for i=1 to 1000
for j=1 to 2000
a=8888888*i*j-i*i-j*j
if a>0
   '继续其他运算
   '打开DBF表
     'FF1rs1.AddNew
     ,将计算结果写入DBF表
  'FF1rs1.Update
else
  '这里不动作
endif
next j
next i

哦，我的要求是想当a>0时不执行中间的计算更不写入到DBF，立即返回到下一个j（甚至返回到下一个i），直到a<=0时才进行计算并写入到DBF，如何添加代码来实现，谢谢先生