1,451
社区成员
发帖
与我相关
我的任务
分享
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
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