求助,关于数组求倒问题
我定义一个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 编辑 ]