Cómo usar VB para resolver ecuaciones cuadráticas de una variable
Debido a que en sqr(y), y no puede ser menor que 0, entonces
x1
=
(-b
sqr(y))
/
(2
*
a)
x2
=
( -b
-
sqr(y))
(2< / p>
*
a)
Si
y
gt =
entonces; .
Modificar:
privado
sub
command1_click()
atenuado
a
como
single,
b
como
single,
c
como
único
tenue
x1
como
único,
x2
como
single,
y
como
single
.single
a
=
inputbox("a",
"Resolver ecuación cuadrática")
b
=
inputbox("b",
"Resolver ecuación cuadrática")
c
=
inputbox("c",
"Resolver ecuaciones cuadráticas")
y
=
b
^
2
-
4
*
a
*
c
si
y
gt;=
entonces
x1
=
(-b
sqr( y) )
/
(2
*
a)
x2
=
(-b
sqr(y))