在窗体中创建一个按钮、一个表格(用到vsflexgrid控件、在论坛中找得到),然后将以下代码粘贴到代码窗中即可。Private Sub Command1_Click()
End
End SubPrivate Sub Form_Load()
VSFlexGrid1.TextMatrix(0, 0) = "A"
VSFlexGrid1.TextMatrix(0, 1) = "B"
VSFlexGrid1.TextMatrix(0, 2) = "C"
VSFlexGrid1.TextMatrix(0, 3) = "D"
VSFlexGrid1.TextMatrix(0, 4) = "E"
VSFlexGrid1.TextMatrix(0, 5) = "F"
End SubPrivate Sub VSFlexGrid1_AfterRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long)
For i = 1 To VSFlexGrid1.Rows - 1
a = Val(VSFlexGrid1.TextMatrix(i, 0))
b = Val(VSFlexGrid1.TextMatrix(i, 1))
c = Val(VSFlexGrid1.TextMatrix(i, 2))
VSFlexGrid1.TextMatrix(i, 3) = a + b
VSFlexGrid1.TextMatrix(i, 4) = a * b
VSFlexGrid1.TextMatrix(i, 5) = a + b + c
Next i
For i = 1 To VSFlexGrid1.Rows - 1
For j = 0 To VSFlexGrid1.Cols - 1
If Val(VSFlexGrid1.TextMatrix(i, j)) = 0 Then VSFlexGrid1.TextMatrix(i, j) = ""
Next j
Next i
End Sub
End
End SubPrivate Sub Form_Load()
VSFlexGrid1.TextMatrix(0, 0) = "A"
VSFlexGrid1.TextMatrix(0, 1) = "B"
VSFlexGrid1.TextMatrix(0, 2) = "C"
VSFlexGrid1.TextMatrix(0, 3) = "D"
VSFlexGrid1.TextMatrix(0, 4) = "E"
VSFlexGrid1.TextMatrix(0, 5) = "F"
End SubPrivate Sub VSFlexGrid1_AfterRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long)
For i = 1 To VSFlexGrid1.Rows - 1
a = Val(VSFlexGrid1.TextMatrix(i, 0))
b = Val(VSFlexGrid1.TextMatrix(i, 1))
c = Val(VSFlexGrid1.TextMatrix(i, 2))
VSFlexGrid1.TextMatrix(i, 3) = a + b
VSFlexGrid1.TextMatrix(i, 4) = a * b
VSFlexGrid1.TextMatrix(i, 5) = a + b + c
Next i
For i = 1 To VSFlexGrid1.Rows - 1
For j = 0 To VSFlexGrid1.Cols - 1
If Val(VSFlexGrid1.TextMatrix(i, j)) = 0 Then VSFlexGrid1.TextMatrix(i, j) = ""
Next j
Next i
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货