Function F2 (x As Variant)
F2 = (x ^ 20 * Range ("m20"). Value) + (x ^ 19 * Range ("m19"). Value) + (x ^ 18 * Range ("m18"). Value) + (x ^ 17 * Range ("m17"). Value) + (X ^ 16 * Range ("m16"). Value) + (x ^ 15 * Range ("m15"). Value) + (x ^ 14 * Range ("m14"). Value) + (x ^ 13 * Range ("m13"). Value) + (x ^ 12 * Range ("m12"). Value) + (X ^ 11 * Range ("m11"). Value) + (x ^ 10 * Range ("m10"). Value) + (x ^ 9 * Range ("m9"). Value) + (x ^ 8 * Range ("m8"). Value) + (x ^ 7 * Range ("m7"). Value) + (x ^ 6 * Range ("m6"). Value) + (x ^ 5 * Range ("m5"). Value) + (x ^ 4 * Range ("m4"). Value) + (x ^ 3 * Range ("m3"). Value) + (x ^ 2 * Range ("m2"). Value) + (x * Range ("m1"). Value) + Range ("m21"). Value
End Function
Public Sub Gra ()
Sheets ("Лист1"). Select
Range ("e1"). Select
For i = -10 To 10
ActiveCell.Value = F (i)
ActiveCell.Cells (2). Select
Next i
End Sub
Public Function DetectBorders ()
'Функція визначення меж дійсних коренів
ma = 0
For Each curcell In Range ("Koeffs")
If curcell.Value> Ma Then ma = curcell.Value
If curcell.Value <> 0 Then Ao = curcell.Value
Next curcell
DetectBorders = 1 + (Ma * Ao)
End Function
UNIT2
Sub auto_open ()
Sheets ("Лист1"). Select
Form_Main.Show
End Sub
FORM_ABOUT
Private Sub CommandButton1_Click ()
Form_About.Hide
End Sub
FORM_KOEFF
Private Sub CommandButton1_Click ()
ko = TextBox1.Value
st = TextBox2.Value
Select Case st
Case 0
Range ("A21"). Value = ko
Case 1
Range ("A1") = Ko
Case 2
Range ("A2") = ko
Case 3
Range ("A3") = ko
Case 4
Range ("A4") = ko
Case 5
Range ("A5") = ko
Case 6
Range ("A6") = ko
Case 7
Range ("A7") = ko
Case 8
Range ("A8") = Ko
Case 9
Range ("A9") = ko
Case 10
Range ("A10") = ko
Case 11
Range ("A11") = ko
Case 12
Range ("A12") = ko
Case 13
Range ("A13") = ko
Case 14
Range ("A14") = ko
Case 15
Range ("A15") = Ko
Case 16
Range ("A16") = ko
Case 17
Range ("A17") = ko
Case 18
Range ("A18") = ko
Case 19
Range ("A19") = ko
Case 20
Range ("A20") = ko
Case Else
MsgBox ("Вихід за межі допустимих значень")
st = st - 1
End Select
TextBox1.Value = 0
TextBox2.Value = st + 1
End Sub
Private Sub CommandButton2_Click ()
Form_Koeff.Hide
End Sub
Private Sub ...
