任何有理数的倒数都是一个循环小数.

方法很简单,
把被除数放大10^n倍,取余,直至余数重复为止,循环的次数即为循环小数位数.

n=1997
dim y(n)
i=1
do while i>0
  do until i>n
     i=i*10
  loop
  i=i mod n
  for j=1 to m 
      if i=y(j) then
         print m-j+1
         end
      endif
  next
  if j>m then 
     m=j
     y(m)=i
  endif
loop