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 (b2 -4ac) less than zero, the code write a message box (end the program). 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 = "" 1111 %3D MsgBox ("End the program"): Exit Sub 3-.... 4-.... 5-... End Sub

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
icon
Related questions
Question
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 (b2 -4ac) less than zero, the code
write a message box (end the program).
-btvb2-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
%3D
%3D
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-.....
%3D
4-.....
5-....
End Sub
Transcribed Image Text: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 (b2 -4ac) less than zero, the code write a message box (end the program). -btvb2-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 %3D %3D 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-..... %3D 4-..... 5-.... End Sub
Expert Solution
steps

Step by step

Solved in 2 steps with 3 images

Blurred answer
Knowledge Booster
Mathematical functions
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education