自己看下书,试着写一下就好,
太简单了别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的我没VB，代码大概是Private Sub Command1_Click()a1 = Text1.Texta2 = Text4.Textb1 = Text2.Textb2 = Text5.Textc1 = Text3.Textc2 = Text6.TextX2 = (c2 * a1 - c1 * a2) / (b1 * a2 - a1 * b2)X1 = (-X2 - b1 * X2) / a1 / 2Print X1, X2End Sub