Imm

Text1

Text2

Text3

Text10

Text4

Text5

Text6

Text11

Text7

Text8

Text9

Text12

Label1

Label2

Label3

Comman d1

Comman d2

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 = (c / a) - ((f - ((c * d) / a)) / (e - ((b * d) / a))) * (b / a)

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

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