Dim A(100, 100) As Double, C(100, 100) As Integer, F(i, j) As Double中
F(i, j) As Double定义有错误啊,这个在数组不知道有多少参数的情况下,要先定义成F(),然后在知道数据成员为n的情况下再使用redim F(n,n)来定义
另外这一句
Cells(-2 * (i - 1) + 4 * (j - 1), 5 + 2 * (i - 1)).Borders.LineStyle = xlContinuous
在i,j都等于1的情况下变成
Cells(0,0).Borders.LineStyle = xlContinuous
肯定是不行的.
所以i,j都的限制成大于1.且-2 * (i - 1) + 4 * (j - 1)不能等于0才行. |
转播
