矩阵数组（20，20） 高斯消去法化成上三角

For k = 1 To n-1 ‘ 循环次数 For i = k + 1 To n For j = k To n R(i, j) = R(i, j) - R(k, j) * R(i, k) / R(k, k) Next j Next i Next k 发现j就执行了等于k的值，没有一直循环到n， 例如： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

程序执行后变为： 1 2 3 4 0 6 7 8 0 0 11 12 0 0 0 16 请问该如何编程使得每行后面的数也变化，非常急，还请指教，谢谢！！