Codes for quadratic equation on vb net?

Answer 1

dim a as string

dim b as string

dim c as string

a = val(txt1.text)

b = val(txt2.text)

c = val(txt3.text)

lbl1.caption = (-b + sqr((b ^ 2) - ((4) * (a * c))) / (2 * a)

lbl2.caption = (-b - sqr((b ^ 2) - ((4) * (a * c))) / (2 * a)