表格最后一行的结果

[iroad1985]

[iroad1985]

不会贴图 http://user.qzone.qq.com/584103700/infocenter 这个是图片的地址 QQ相册里就这一个图片。

要求最后一行 填的结果 依次是：
（6，2）=5 - （1*7 + 4*1 + 8*9 + 7*5）
（6，3）= 6 - （7*7 + 8*1 + 1*9 + 1*5）
········
·······

本来的代码是
Dim x As Integer, i As Integer, j As Integer
For i = 2 To 5
For j = 2 To 5
x = x + Val(MSHFlexGrid1.TextMatrix(i, j)) * Val(MSHFlexGrid1.TextMatrix(i, 1))
Next j
MSHFlexGrid1.TextMatrix(6, j) = Val(MSHFlexGrid1.TextMatrix(1, j)) - x
Next i

错误咯

[iroad1985]

看不到图的 或者 先回个贴 然后加我QQ396045752
最后我好结贴去

呵呵

多谢了

[zdingyun]

看不到图，不明白你的要求。

[iroad1985]

[Quote=引用 3 楼 zdingyun 的回复:]
看不到图，不明白你的要求。
[/Quote]
看二楼啊

[jhone99]

[Quote=引用 4 楼 iroad1985 的回复:]
引用 3 楼 zdingyun 的回复:
看不到图，不明白你的要求。

看二楼啊
[/Quote]


您还没有登录

[iroad1985]

[Quote=引用 5 楼 jhone99 的回复:]
引用 4 楼 iroad1985 的回复:
引用 3 楼 zdingyun 的回复:
看不到图，不明白你的要求。

看二楼啊



您还没有登录
[/Quote]
登陆啊 已经等QQ了 396045752 这个告诉我 我也加分 昨天问一个问题就是QQ里告诉 然后加分的

[jhone99]

Private Sub Command5_Click()
    Dim x As Integer, i As Integer, j As Integer
    
    For j = 2 To 5
        For i = 2 To 5
            x = x + Val(MSHFlexGrid1.TextMatrix(i, j)) * Val(MSHFlexGrid1.TextMatrix(i, 1))
        Next i
        
        MSHFlexGrid1.TextMatrix(6, j) = Val(MSHFlexGrid1.TextMatrix(1, j)) - x
    Next j
End Sub

[jhone99]

Private Sub Command5_Click()
    Dim x As Integer, i As Integer, j As Integer
    
    For j = 2 To 5
        x = 0
        
        For i = 2 To 5
            x = x + Val(MSHFlexGrid1.TextMatrix(i, j)) * Val(MSHFlexGrid1.TextMatrix(i, 1))
        Next i
        
        MSHFlexGrid1.TextMatrix(6, j) = Val(MSHFlexGrid1.TextMatrix(1, j)) - x
    Next j
End Sub