Private Sub Command1_Click()

Dim a As Double

Dim b As Double

Dim c As Double

Dim d As Double

Dim e As Double

Dim f As Double

Dim g As Double

Dim h As Double

Dim i As Double

Dim j As Double

a = InputBox("a""input a")

b = InputBox("b""Input b")

c = InputBox("c""input c")

d = (b ^ 2) - 4 * a * c

e = 2 * a

f = d ^ (1 / 2)

g = -b + f

h = -b - f

i = g / e

j = h / e

Print "X1=" & i

Print "X2=" & j

End Sub

This one is more complex than the others because there is a lot of mathematics behind this program. You have to solve the quadratic equation from top to bottom using the normal maths after which you will convert the relevant steps of the maths into V.B code. Logical reasoning is also needed here.

I hope you understand this one.

Any question? Use the comment box.

Dim a As Double

Dim b As Double

Dim c As Double

Dim d As Double

Dim e As Double

Dim f As Double

Dim g As Double

Dim h As Double

Dim i As Double

Dim j As Double

a = InputBox("a""input a")

b = InputBox("b""Input b")

c = InputBox("c""input c")

d = (b ^ 2) - 4 * a * c

e = 2 * a

f = d ^ (1 / 2)

g = -b + f

h = -b - f

i = g / e

j = h / e

Print "X1=" & i

Print "X2=" & j

End Sub

This one is more complex than the others because there is a lot of mathematics behind this program. You have to solve the quadratic equation from top to bottom using the normal maths after which you will convert the relevant steps of the maths into V.B code. Logical reasoning is also needed here.

I hope you understand this one.

Any question? Use the comment box.

## Comments

## Post a Comment