Информатика. Индришенок В.И - 27 стр.

                         -27-

      TablList.AddItem (Tmpstr)
Next i
Tmpstr = Str(B) & "         "
f(num + 1) = b ^ 2 - 2 * b - 3
     If mx < f(num + 1) Then mx = f(num + 1)
     If mn > f(num + 1) Then mn = f(num + 1)
Tmpstr = Tmpstr + Str(f(num + 1))
TablList.AddItem (Tmpstr)
MAXText.Text = Str(mx)
MINText.Text = Str(mn)
End Sub
'Построение графика:
Private Sub Command_GRAPH_Click()
Dim yymax As Integer
Dim yymin As Integer
Dim xxmin As Integer
Dim xxmax As Integer
yymax = Int(Abs(mx)) + 1
yymin = Int(Abs(mn)) + 1
xxmax = Int(Abs(B)) + 1
xxmin = Int(Abs(A)) + 1
'Процедура построения графика
Call Figureee(xxmin, xxmax, yymin, yymax)
End Sub
'Определение корней:
Private Sub RootCom_Click()
Dim FA, FB, x1, x2 As Double
Dim xroot, xroot1 As Double
Dim j As Integer
Dim Xstr As String
Dim K As Integer
K = 0
RootList1.Clear
For j = 0 To num
x = A + j * d
FA = xfunc(x)
FB = xfunc(x + d)
If FA = 0 Then
     xroot = x
     x1 = x
     x2 = x