Решение кубического уравнения в vba

[Stevo]

Здравствуйте, помогите, пожалуйста, написать программу для решения кубического уравнения, я совсем новичок и в программировании ни бум-бум, заранее благодарен за помощь.

Задача:
С клавиатуры вводятся четыре целые числа, являющиеся коэффициентами кубического уравнения. Вывести все целые числа X принадлежащие [-10,10], которые являются решением этого уравнения.

Вот то, что я пытался навоевать, но там, скорее всего, полный завал:

Sub cubic_equation()
Dim a, b, c, d As Double, x1, x2, x3 As Integer
a = InputBox("Введите коэффициент а ")
If a = 0 Then MsgBox " а не может быть равным 0": Exit Sub
b = InputBox("Введите коэффициент b ")
с = InputBox("Введите коэффициент с ")
d = InputBox("Введите коэффициент d ")
x1 = (-bx1 ^ 2 - c - d) / a * x1 ^ 2
If -10 <= x1 <= 10 Then MsgBox "x1= " & x1 Else MsgBox "x1 не входит в отрезок [-10;10]"
x2 = (-bx2 ^ 2 - c - d) / a * x2 ^ 2
If -10 <= x2 <= 10 Then MsgBox "x2= " & x2 Else MsgBox "x2 не входит в отрезок [-10;10]"
x3 = (-bx3 ^ 2 - c - d) / a * x3 ^ 2
If -10 <= x3 <= 10 Then MsgBox "x3= " & x3 Else MsgBox "x3 не входит в отрезок [-10;10]"
End Sub

[p51x]

x1 = (-bx1 ^ 2 - c - d) / a * x1 ^ 2

Что это за формула? Кто такой bx1? Вы же ищите x1 и тут же на него делите... не смущает?

https://ru.wikipedia.org/wiki/%D0%9A...BD%D0%B8%D0%B5

[Stevo]

Эта формула—выраженный x1 из уравнения :
ax1 ^3+bx1^2+cx1+d=0
Просто на запись в стандартном виде бейсик ругается и я не понимаю как ее записать.

[kvitaliy]

Перебираем делители от 1 до кв. корня из d, большего делителя быть не может.
Цикл проходится два раза, с k=-j и k=j

Sub cubic_equation()
Dim i, j, k, a, b, c, d
Dim Otvet$
a = InputBox("Введите коэффициент а ")
If a = 0 Then MsgBox " а не может быть равным 0": Exit Sub
b = InputBox("Введите коэффициент b ")
c = InputBox("Введите коэффициент с ")
d = InputBox("Введите коэффициент d ")
If d = 0 Then MsgBox " d не может быть равным 0": Exit Sub
i = 6
For j = 1 To Sqr(Abs(d))
  If d Mod j = 0 Then
    For k = -j To j Step 2 * j
      If a * k * k * k + b * k * k + c * k + d = 0 Then
         Otvet$ = Otvet + " ; x" & (i - 5) & " = " & k
        i = i + 1
         
      End If
    Next
  End If
Next
If i = 6 Then
MsgBox ("Целых корней нет!")
Else
MsgBox (Otvet$)
End If
End Sub

[Stevo]

Спасибо большое!

[Stevo]

Сообщение от kvitaliy

Перебираем делители от 1 до кв. корня из d, большего делителя быть не может.
Цикл проходится два раза, с k=-j и k=j

Sub cubic_equation()
Dim i, j, k, a, b, c, d
Dim Otvet$
a = InputBox("Введите коэффициент а ")
If a = 0 Then MsgBox " а не может быть равным 0": Exit Sub
b = InputBox("Введите коэффициент b ")
c = InputBox("Введите коэффициент с ")
d = InputBox("Введите коэффициент d ")
If d = 0 Then MsgBox " d не может быть равным 0": Exit Sub
i = 6
For j = 1 To Sqr(Abs(d))
  If d Mod j = 0 Then
    For k = -j To j Step 2 * j
      If a * k * k * k + b * k * k + c * k + d = 0 Then
         Otvet$ = Otvet + " ; x" & (i - 5) & " = " & k
        i = i + 1
         
      End If
    Next
  End If
Next
If i = 6 Then
MsgBox ("Целых корней нет!")
Else
MsgBox (Otvet$)
End If
End Sub

Можете пожалуйста объяснить вот эту строчку:
Otvet$ = Otvet + " ; x" & (i - 5) & " = " & k

[Stevo]

Здравствуйте, помогите, пожалуйста, написать программу в vba excel по заданию с использованием функции.

Задание:
С клавиатуры вводятся четыре целые числа, являющиеся коэффициентами кубического уравнения. Вывести все целые числа x[-10,10], являющиеся решением этого уравнения.

Sub cubic_equation()
Dim i, j, k, a, b, c, d
Dim Otvet$
a = InputBox("Введите коэффициент а ")
If a = 0 Then MsgBox " а не может быть равным 0": Exit Sub
b = InputBox("Введите коэффициент b ")
c = InputBox("Введите коэффициент с ")
d = InputBox("Введите коэффициент d ")
If d = 0 Then MsgBox " d не может быть равным 0": Exit Sub
i = 6
For j = 1 To Sqr(Abs(d))
  If d Mod j = 0 Then
    For k = -j To j Step 2 * j
      If a * k * k * k + b * k * k + c * k + d = 0 Then
         Otvet$ = Otvet + " ; x" & (i - 5) & " = " & k
        i = i + 1
         
      End If
    Next
  End If
Next
If i = 6 Then
MsgBox ("Целых корней нет!")
Else
MsgBox (Otvet$)
End If
End Sub

[p51x]

http://www.programmersforum.ru/showthread.php?t=327552

[Serge_Bliznykov]

Сообщение от p51x

http://www.programmersforum.ru/showthread.php?t=327552

Спасибо. Слил в одну тему.