表格最后一行的结果

Answer 1

不会贴图 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错误咯

Answer 2

登陆啊  已经等QQ了  396045752   这个告诉我 我也加分  昨天问一个问题就是QQ里告诉 然后加分的

Answer 3

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

Answer 4

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