Gaussian Elimination

Text1

Text2

Text3

Text10

Text4

Text5

Text6

Text1 1

Text7

Text8

Text9

Text1 2

Label1

Label2

Label3

Comman d1

Comman d2

Sub form1_load Private Sub Command1_Click() Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) g = Val(Text7.Text) h = Val(Text8.Text) i = Val(Text9.Text) j = Val(Text10.Text) k = Val(Text11.Text) l = Val(Text12.Text)

m = e - ((d / a) * b) n = f - ((d / a) * c) o = k - ((d / a) * j) p = h - ((g / a) * r) q = i - ((g / a) * c) r = l - ((g / a) * j) z = (r - ((p / m) * o)) / (q - ((p / m) * n)) y = (o - (n * z)) / m x = (j - (b * y) - (c * z)) / a

Label1.Caption = x Label2.Caption = y Label3.Caption = z

End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() Text1.Text = "" Text2.Text = ""

Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" Command1.Caption = "COMPUTE" Command2.Caption = "END"

End Sub