Есть ли у уравнения реальные корни - VB
Формулировка задачи:
даны a, b, c реальные цифры. Решать есть ли у ax^2 + bx+c=0 уравнения реальные корни
Решение задачи: «Есть ли у уравнения реальные корни»
textual
Листинг программы
Option Explicit Dim WithEvents cb As CommandButton, l&, t&, w&, h& Const r = 90 Private Sub cb_Click() Dim a, b, c, d, s$ 'Ввод Do: a = InputBox("Введите коофициент *a*") Loop Until IsNumeric(a) Do: b = InputBox("Введите коофициент *b*") Loop Until IsNumeric(b) Do: c = InputBox("Введите коофициент *c*") Loop Until IsNumeric(c) 'Вычисления d = b * b - 4 * a * c s = "Дискриминант d = " & d & vbLf 'Вывод If d < 0 Then MsgBox s & "Решений нет" Else MsgBox s & "Первый корень x1 = " & (-b - Sqr(d)) / (2 * a) & vbLf & _ "Второй корень x2 = " & (b - Sqr(d)) / (2 * a) End If End Sub Private Sub Form_Load() l = r: t = r: w = r * 20: h = r * 4 Me.Caption = "ax^2 + bx+c=0" Set cb = Controls.Add("vb.CommandButton", "cb") With cb .Move l, t, w, h .Caption = "Начать" .Visible = 1 End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д