VERSION 5.00
Begin VB.Form Int_g 
   Caption         =   "График изучаемой функции"
   ClientHeight    =   6900
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   7170
   LinkTopic       =   "Form1"
   ScaleHeight     =   6900
   ScaleWidth      =   7170
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Построить"
      Height          =   495
      Left            =   3960
      TabIndex        =   12
      Top             =   6120
      Width           =   1335
   End
   Begin VB.CommandButton toMain 
      Caption         =   "На главную"
      Height          =   495
      Left            =   5520
      TabIndex        =   10
      Top             =   6120
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "График"
      Height          =   5295
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   6735
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   4440
         TabIndex        =   11
         Text            =   "0,001"
         Top             =   600
         Width           =   735
      End
      Begin VB.PictureBox Picture2 
         Height          =   3375
         Left            =   480
         ScaleHeight     =   3315
         ScaleWidth      =   5955
         TabIndex        =   9
         Top             =   1200
         Width           =   6015
      End
      Begin VB.PictureBox Picture1 
         Height          =   855
         Index           =   1
         Left            =   1560
         Picture         =   "Int_g.frx":0000
         ScaleHeight     =   795
         ScaleWidth      =   915
         TabIndex        =   2
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label12 
         Caption         =   "5"
         Height          =   255
         Index           =   5
         Left            =   5280
         TabIndex        =   27
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label12 
         Caption         =   "4"
         Height          =   255
         Index           =   4
         Left            =   3960
         TabIndex        =   26
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label12 
         Caption         =   "3"
         Height          =   255
         Index           =   3
         Left            =   2880
         TabIndex        =   25
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label12 
         Caption         =   "2"
         Height          =   255
         Index           =   2
         Left            =   1680
         TabIndex        =   24
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label12 
         Caption         =   "6"
         Height          =   255
         Index           =   1
         Left            =   6360
         TabIndex        =   23
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label12 
         Caption         =   "1"
         Height          =   255
         Index           =   0
         Left            =   480
         TabIndex        =   22
         Top             =   4800
         Width           =   135
      End
      Begin VB.Label Label11 
         Caption         =   "4"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   21
         Top             =   1680
         Width           =   135
      End
      Begin VB.Label Label11 
         Caption         =   "3"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   20
         Top             =   2400
         Width           =   135
      End
      Begin VB.Label Label11 
         Caption         =   "2"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   19
         Top             =   3120
         Width           =   135
      End
      Begin VB.Label Label11 
         Caption         =   "1"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   18
         Top             =   3840
         Width           =   135
      End
      Begin VB.Label Label11 
         Caption         =   "5"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   16
         Top             =   1080
         Width           =   135
      End
      Begin VB.Label Label10 
         Caption         =   "0"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   4560
         Width           =   255
      End
      Begin VB.Label Label9 
         Caption         =   "Y*10^-2"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   840
         Width           =   735
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         Caption         =   "X"
         Height          =   255
         Left            =   6480
         TabIndex        =   13
         Top             =   4320
         Width           =   255
      End
      Begin VB.Line Line2 
         X1              =   360
         X2              =   360
         Y1              =   1080
         Y2              =   4680
      End
      Begin VB.Line Line1 
         X1              =   360
         X2              =   6600
         Y1              =   4680
         Y2              =   4680
      End
      Begin VB.Label Label7 
         Caption         =   "b = 6"
         Height          =   255
         Left            =   5640
         TabIndex        =   8
         Top             =   840
         Width           =   615
      End
      Begin VB.Label Label6 
         Caption         =   "a = 1"
         Height          =   255
         Left            =   5640
         TabIndex        =   7
         Top             =   480
         Width           =   615
      End
      Begin VB.Label Label5 
         Caption         =   "Область определения [a;b]:"
         Height          =   255
         Left            =   3840
         TabIndex        =   6
         Top             =   240
         Width           =   2175
      End
      Begin VB.Label Label4 
         Caption         =   "Шаг H:"
         Height          =   255
         Left            =   3840
         TabIndex        =   5
         Top             =   600
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "с шагом H"
         Height          =   255
         Left            =   2640
         TabIndex        =   4
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "в области [a;b]"
         Height          =   255
         Left            =   2640
         TabIndex        =   3
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "График функции"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Label Label11 
      Caption         =   "5"
      Height          =   255
      Index           =   1
      Left            =   360
      TabIndex        =   17
      Top             =   4560
      Width           =   135
   End
End
Attribute VB_Name = "Int_g"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Picture2.Cls
H = Text1
a = 1
b = 6
Picture2.Scale (a, -0.05)-(b, 0)
For i = a To b Step H
X1 = i
Y1 = -(Log(X1) / X1) ^ 3
X2 = X1 + H
Y2 = -(Log(X2) / X2) ^ 3
Picture2.Line (X1, Y1)-(X2, Y2)
Next i


For x = 0 To b Step 1
Picture2.Line (x, -0.05)-(x, 0), RGB(255, 0, 0)
Next x

For y = -0.05 To 0 Step 0.01
Picture2.Line (0, y)-(b, y), RGB(255, 0, 0)
Next y


End Sub

Private Sub toMain_Click()
 Main.Show
 Int_g.Hide
End Sub