Red de conocimiento informático - Problemas con los teléfonos móviles - Programación de ecuaciones en Vb

Programación de ecuaciones en Vb

En muchos casos, los sistemas de ecuaciones lineales de dos variables no tienen solución. Coloque un control de comando en el formulario y copie este código en el cuadro de código.

Marcar a, b, c, d, e, f como cadenas

Marcar X e Y como doble precisión

Subcomando privado 1_Click( )

A = Val(InputBox("Ingrese el coeficiente a1 de la primera ecuación Coeficiente b1 de la primera ecuación Y (el valor predeterminado se reemplaza por 0):")

C = Val(InputBox( "Ingrese el término constante de la primera ecuación, c1 (el valor predeterminado se reemplaza por 0):" )

D = Val(InputBox("Ingrese el coeficiente a2 de la segunda ecuación El coeficiente b2 de la segunda ecuación Y (reemplazada por 0 de forma predeterminada):")

F = Val(InputBox("Ingrese el término constante c2 de la segunda ecuación (reemplazada por 0 de forma predeterminada):" )

Si a = d, b = e, c & lt& gtfEntonces

MsgBox "La ecuación original no tiene solución"

Si no, Si a = 0, b = 0, c & lt& gt0 y d & lt& gt0 y e & lt& gt0 y f & lt& gt entonces 0

MsgBox "La ecuación original no tiene solución"

ElseIf a & lt& gt0 y b & lt& gt0 y c & lt& gt0 y d = 0 y e = 0 y f & lt& gt entonces 0

MsgBox "La ecuación original no tiene solución"

ElseIf (a / d ) = (b / e) Entonces

MsgBox "La ecuación original no tiene solución"

En caso contrario, a = d, b = e, c = f

MsgBox "La ecuación original no tiene solución"

ElseIf a = 0, b = 0, c = 0, d & lt& gt0 y e & lt& gt0 y f & lt& gt entonces 0

MsgBox "La ecuación original no tiene solución"

ElseIf a & lt& gt0 and b & lt& gt0 and c & lt& gt0, d = 0, e = 0, f = 0

MsgBox "Original La ecuación no tiene solución"

ElseIf a = 0 y b & lt& gt0 y c & lt& gt0 y d = 0 y e & lt& gt0 y f & lt& gt entonces 0

MsgBox" La ecuación original no tiene solución"

ElseIf a & lt& gt0 y b = 0 y c & lt& gt0 y d & lt& gt0 y e = 0 y f & lt& gttthen 0

MsgBox "La ecuación original no tiene solución"

Otros

X = (c*e - b*f) / (a* e - b * d)

Y = (c * d - a * f) / (b * d - a * e)

MsgBox La solución del sistema de ecuaciones original es: x = " &; X & amp, Y = " & ampY & amp. "

Terminará si...

Finalizar conector