VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000003&
   Caption         =   "Исследование методов сортировки массивов"
   ClientHeight    =   7650
   ClientLeft      =   2610
   ClientTop       =   2505
   ClientWidth     =   8805
   BeginProperty Font 
      Name            =   "Comic Sans MS"
      Size            =   8.25
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7650
   ScaleWidth      =   8805
   Begin VB.PictureBox Picture3 
      BackColor       =   &H80000013&
      Height          =   5145
      Left            =   3240
      ScaleHeight     =   5085
      ScaleWidth      =   3195
      TabIndex        =   4
      Top             =   2280
      Width           =   3255
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H80000013&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3600
      ScaleHeight     =   315
      ScaleWidth      =   2595
      TabIndex        =   1
      Top             =   1200
      Width           =   2655
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000013&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3600
      ScaleHeight     =   315
      ScaleWidth      =   2595
      TabIndex        =   0
      Top             =   480
      Width           =   2655
   End
   Begin VB.Label Label4 
      BackColor       =   &H80000003&
      Caption         =   "Таблица сортированного массива:"
      Height          =   255
      Left            =   1080
      TabIndex        =   5
      Top             =   1920
      Width           =   3255
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000003&
      Caption         =   "Сортированный массив"
      Height          =   255
      Left            =   1080
      TabIndex        =   3
      Top             =   1200
      Width           =   2175
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000003&
      Caption         =   "Генерированный массив"
      Height          =   255
      Left            =   1080
      TabIndex        =   2
      Top             =   480
      Width           =   2175
   End
   Begin VB.Menu mnuF 
      Caption         =   "Файл"
      Begin VB.Menu mnuG 
         Caption         =   "Генерировать массив"
      End
      Begin VB.Menu mnuS 
         Caption         =   "Сортировать"
         Begin VB.Menu mnuP 
            Caption         =   "Методом пузырька"
         End
         Begin VB.Menu mnuV 
            Caption         =   "Методом простых вставок"
         End
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Выход"
      End
      Begin VB.Menu mnuM 
         Caption         =   "График"
      End
   End
   Begin VB.Menu mnuH 
      Caption         =   "О программе"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim am(10) As Integer
Dim I, J, k, p As Integer
Dim str As String






Private Sub mnuG_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Randomize

For I = 0 To 9
  am(I) = Rnd * 9
  Picture1.Print am(I);
Next

  Open CurDir + "\Mассив.txt" For Output As #1
   For I = 0 To 9
     Print #1, am(I);
   Next
    Print #1, ""
    Close #1
End Sub
Private Sub Podkluchenie()
Open CurDir + "\Mассив.txt" For Input As #1
Input #1, str
Close #1
av = Split(str, "  ")
For I = 0 To 9
am(I) = Val(av(I))
Picture3.Print am(I);
Next
Picture3.Print
End Sub
Private Sub Pyzirek()
Podkluchenie

For I = 0 To 9
       For J = I + 1 To 10
    If am(I) < am(J) Then
      a = am(I)
      am(I) = am(J)
      am(J) = a
      For m = 0 To 9
      Picture3.Print am(m);
      Next
      Picture3.Print
    End If
    
   Next
Next
  For I = 0 To 9
   Picture2.Print am(I);
  Next
End Sub
Private Sub ProstVst()
Podkluchenie

    I = 1
    Do
        J = 0
        Do
            If am(I) >= am(J) Then
                k = I
                p = am(I)
                Do
                    am(k) = am(k - 1)
                    k = k - 1
                Loop Until Not k > J
                am(J) = p
                
                For J = 0 To 9
                Picture3.Print am(J);
                Next
                Picture3.Print
                J = I
            Else
                J = J + 1
            End If
        Loop Until Not J < I
        I = I + 1
    Loop Until Not I <= 9

For I = 0 To 9
Picture2.Print am(I);
Next
End Sub

Private Sub mnuH_Click()
Form2.Show
End Sub



Private Sub mnuM_Click()
Form3.Show
End Sub

Private Sub mnuP_Click()
Picture2.Cls
Picture3.Cls
Pyzirek

End Sub

Private Sub mnuV_Click()
Picture2.Cls
Picture3.Cls
ProstVst



End Sub

Private Sub mnuExit_Click()
End
End Sub