Gauss-jordan Reduction Method

Text1

Text2

Text3

Text10

Text4

Text5

Text6

Text1 1

Text7

Text8

Text9

Text1 2

Label1

Label2

Label3

Comman d1

Comman d2

Option Explicit 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 Dim msg 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 * b) / a) n = f - ((d * c) / a) o = k - ((d * j) / a) p = h - ((g * b) / a) q = i - ((g * c) / a) r = l - ((g * j) / a)

If m > p Or m = p Then s = q - ((p * n) / m) t = r - ((p * o) / m) u = (c / a) - ((b * n) / (a * m)) v = (j / a) - ((b * o) / (a * m)) x = v - ((u * t) / s) y = ((o * m * s) - (m * n * t)) / (m ^ 2 * s) z=t/s Label1.Caption = x Label2.Caption = y Label3.Caption = z ElseIf p > m Then s = n - ((m * q) / p) t = o - ((m * r) / p) u = (c / a) - ((b * q) / (a * p)) v = (j / a) - ((b * r) / (a * p)) x = v - ((u * t) / s) y = ((r * p * s) - (p * q * t)) / (p ^ 2 * s) z=t/s Label1.Caption = Round(x) Label2.Caption = Round(y) Label3.Caption = Round(z) End If

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