• Home
 · 
• Math/Dates
 · 
• Solve two equations and two unknowns

Solve two equations and two unknowns

Solve two equations and two unknowns

Rate Solve two equations and two unknowns

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  Dim a As Single, b As Single, c As Single
  Dim d As Single, e As Single, f As Single
  Dim X As Single, Y As Single
  Dim delta As Single, delta1 As Single, delta2 As Single
  a = Val(txta.Text)
  b = Val(txtb.Text)
  c = Val(txtc.Text)
  d = Val(txtd.Text)
  e = Val(txte.Text)
  f = Val(txtf.Text)
  delta = (a * e) - (b * d)
  delta1 = (c * e) - (b * f)
  delta2 = (a * f) - (c * d)
  If delta = 0 Then
  MsgBox "no solve exist", vbInformation, "invalid"
  Else
  X = delta1 / delta
  Y = delta2 / delta
  txtx.Text = X
  txty.Text = Y
  End If
  
  End Sub