10% O uo 9:46 Asiacell l. blö 3 This code display the value of roots in text boxes for the following quadratic equation using quadratic formula. When the value of coefficient (a) equal to zero or (62...

Slove in visual basic

Extracted text: 10% O uo 9:46 Asiacell l. blö 3 This code display the value of roots in text boxes for the following quadratic equation using quadratic formula. When the value of coefficient (a) equal to zero or (62 -4ac) less than zero, the code write a message box (end the * .(program -b±Vb2-4ac aX2+ bX+ c= 0, X1,2 = 2a Private Sub Command1_Click() Dim a, b, c, x1, x2, z As Single a = InputBox("Enter Value of a") b = InputBox("Enter Value of b") c = InputBox("Enter Value of c") z = b^2 - 4 * a *c 1.... x1 = (-b + Sqr(b ^2 - 4 * a * c)) / 2 * a x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a 2-.. . Text1.Text = "" Text2.Text = " MsgBox ("End the program"): Exit Sub 3-... %3! 4-. 5-... End Sub