Как составить разветвляющуюся программу решения квадратного уравнения вида ax^2+bx+c=0 - VB
Формулировка задачи:
Составьте разветвляющуюся программу решения квадратного уравнения вида ax^2+bx+c=0
Желательно прикрепить скрин формы
Решение задачи: «Как составить разветвляющуюся программу решения квадратного уравнения вида ax^2+bx+c=0»
textual
Листинг программы
Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, d As Double Dim x1 As Double, x2 As Double, s As String a = InputBox("a = ", , 2) b = InputBox("b = ", , 5) c = InputBox("c = ", , 2) d = b ^ 2 - 4 * a * c If a = 0 Then MsgBox "ОШИБКА ! a=0 !", vbCritical, " Error " ElseIf d < 0 Then MsgBox "Нет решения,дискриминант < 0", vbCritical, " Error " Else x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) If x1 = x2 Then s = "Корень уравнения :" & x1 Else s = "Корни уравнения :" & x1 & " и " & x2 End If MsgBox s, vbInformation, "Результат." End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д