我定义一个5X5阶的数组，比如下面所示，想将各元素求倒数，用到了以下程序，但是当数组元素大于1时，最终的求倒结果显示为0或1，但当数组元素小于1时，求倒结果显示正确！！！！是不是round()函数有误，请求帮忙找下问题根源？？在互拜谢了！我是新手，没有多少积分，所以吝啬了点，希望大侠不吝赐教！
4     5     6     7     5
5     6     7     8     3
12    45    23    10    5
20    40    15    20    25
6     70     6    45    10
************************************
******定义5即阶矩阵a，并对其赋值*****
dimension a(5,5)
for i=1 to 25
  k=alltrim(str(i))
  a(i)=val(thisform.text&k..value)
endfor
****************************************

****************************************
n=val(thisform.text1.value)  &&从文本框取值，并且n小于5
dimension b(n,n),e(n,n)
*****生成矩阵b*******
  for i=1 to n
    for j=1 to n
      if i=j
        b(i,j)=1
      else
        b(i,j)=a(i,j)
      endif
    endfor
  endfor

*****生成矩阵e，为矩阵b中元素的倒数 *********
  for i=1 to n
    for j=1 to n
      if b(i,j)=0
        e(i,j)=0
      else
        e(i,j)=round(1/b(i,j),2)    ？？？？？？？？？
      endif
    endfor
  endfor

*********输出求倒结果*********
thisform.edit1.value=""
for i=1 to n
  p=""
  for j=1 to n
    p=p+str(e(i,j),6)
  endfor
  thisform.edit1.value=thisform.edit1.value+p+chr(13)
endfor
*************************




[ 本帖最后由 dochjp 于 2011-4-21 11:24 编辑 ]

求求你们，帮帮我！！！

放入SET DECIMALS TO

谢谢啊，问题解决了。。。呵呵

是这一步没有做好  p=p+str(e(i,j),6)应该为p=p+str(e(i,j),6，3)才对，3楼提到 的这个方法，我不会用，不过还是谢谢先