6楼的兄弟 再一次谢谢你```
答案确定是1265了 也就是你的程序对了
早知给你30分```

开玩笑?!!!!  
有一句话我经常说的,就是:
记住!你可以不相信全世界的人包括你自己,但不可以怀疑我.

我还是不那么了解
for j = (i+1) to 100这句话的意思啊~~~
可以说明一下没 不然我记住它好了 以后出现任意取的时候我就用上

如果把FOR J=（I+1）TO 100改成FOR J=I TO 100

如果我把for j = (i+1) to 100   
改成 for j = i to 100
就会有重复
比如多出1*1，2*2，3*3，4*4……

defint a-z
for i=1 to 100
j=i
do while j<=100
if i*j mod 9 then else n=n+1
j=j+1
loop
next
end

defint a-z           '默认全部变量为短整形
n=0
for i = 1 to 100     'step可以省略，默认为+1
  for j = (i+1) to 100   '应该是从i到一百，才不会有重复换位或相同的乘数
    if i*j mod 9 = 0 then   'n=n 这一句没有任何作用
      n=n+1
      print i;"*";j;"=";i*j,
    end if
   next j
next i
print "n="; n
end
'按道理你的程序没大的错误，不可能死循环的。你肯定隐瞒了一些事实。否则我会很佩服你不改变for的值也能写得出死循环的for程序来

[quote]defint a-z&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'[color=000FF0]默认全部变量为短整形[/color]
n=0
for i = 1 to 100&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'[color=000FF0]step可以省略，默认为+1[/color]
&nbsp;&nbsp;for j = (i+1) to 100&nbsp;&nbsp;&nbsp;'[color=000FF0]应该是从i到一百，才不会有重复换位或相同的乘数[/color]
&nbsp;&nbsp;&nbsp;&nbsp;if i*j mod 9 = 0 then&nbsp;&nbsp;&nbsp;'[color=000FF0]n=n 这一句没有任何作用[/color]
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;n=n+1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print i;"*";j;"=";i*j,
&nbsp;&nbsp;&nbsp;&nbsp;end if
&nbsp;&nbsp;&nbsp;next j
next i
print "n="; n
end
'[color=000FF0]按道理你的程序没大的错误，不可能死循环的。你肯定隐瞒了一些事实。否则我会很佩服你不改变for的值也能写得出死循环的for程序来。[/color][/quote]

for i=1 to 100
for j=1 to 100
if i<>j and i*j mod 9=0 then print "i*j=";ltrim$(str$(i*j)):n=n+1
next j
next i

for i=1 to 100
 for j=1 to 100
 if i<>j and i*j mod 9=0 then
   print ltrim$(str$(i));"*";ltrim$(str$(j));"=";ltrim$(str$(i*j))
   n=n+1
 end if
 next j
next i
print "n=";ltrim$(str$(n))
end