Gaussian With Maximum Pivot

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) If a < d Or a < g Then msg = MsgBox("PLACE HIGHEST X VALUE ON TOP", 1, "ERROR") Label1.Visible = False Label2.Visible = False Label3.Visible = False ElseIf a > d Or a = d And a > g Or a = g Then Label1.Visible = True Label2.Visible = True Label3.Visible = True

End If 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) z=t/s y = (o - (z * n)) / m x = (j - (y * b) - (z * c)) / a

Label1.Caption = x Label2.Caption = y Label3.Caption = z ElseIf p > m Then s = n - ((m * q) / p) t = o - ((m * r) / p) z=t/s y = (r - (z * q)) / p x = (j - (y * b) - (z * c)) / a Label1.Caption = x Label2.Caption = y Label3.Caption = 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