关于VB编程（急）

代码如下：
private Sub Command1_Click()
If Combo1.Text = "△型连接" And Combo2.Text = "a连y、b连z、c连x" Then
Dim p As Single
For i = 1 To VSFlexGrid1.Cols - 1
a = Val(VSFlexGrid1.TextMatrix(1, i))
b = Val(VSFlexGrid1.TextMatrix(2, i))
c = Val(VSFlexGrid1.TextMatrix(3, i))
p = (a + b + c) / 3
VSFlexGrid1.TextMatrix(4, i) = (b - p) - a * c / (b - p)
VSFlexGrid1.TextMatrix(5, i) = (a - p) - b * c / (a - p)
VSFlexGrid1.TextMatrix(6, i) = (c - p) - a * b / (c - p)
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 If
end sub

Private Sub Form_Load()
VSFlexGrid1.TextMatrix(0, 0) = "档位"
VSFlexGrid1.TextMatrix(0, 1) = "Ⅰ"
VSFlexGrid1.TextMatrix(0, 2) = "Ⅱ"
VSFlexGrid1.TextMatrix(0,

关于VB编程（急） VB编程 AP函数 （急！） vb 编程问题,急!!!! vb 编程急!!!!!!!!!!!!!! VB 编程 急！！！ vb+sql 急!!!编程 VB编程急急急!!! VB编程进 急~~~~~~~~~~~~ VB编程进 急~~~~~~~~~~~~~ VB编程进 急~~~~~~