Private Sub Command2_Click()
Picture1.Cls
    Picture2.Cls
    'метод простых вставок
    For K = 2 To 10
        d = am(K)
        For i = 1 To K - 1
            If am(i) < d Then Exit For
        Next i
        For J = K - 1 To i Step -1
            am(J + 1) = am(J)
        Next J
        am(i) = d
    Next K
  
    For i = 1 To 10
        Picture2.Print am(i)
    Next i

Private Sub Command2_Click()
    Picture1.Cls
    Picture2.Cls
    'метод бинарных вставок
    i = 2
    For i = 2 To n
        B = 1
        E = i - 1
        C = Int((B + E) / 2)
        Do Until B = C
            If am(C) < am(i) Then E = C
            If am(C) >= am(i) Then B = C
            C = Int((B + E) / 2)
        Loop
        If am(C) >= am(i) And am(C + 1) < am(i) Then
            z = Val(am(i))
            For J = i - 1 To C + 1 Step -1
                am(J + 1) = am(J)
            Next J
            am(C + 1) = z
        End If
        If am(C) <= am(i) Then
            z = Val(am(i))
            For J = i - 1 To C Step -1
                am(J + 1) = am(J)
            Next J
            am(C) = z
        End If
    Next i
    For i = 1 To n
        Picture2.Print am(i)
        Picture1.Line (i - 1, 0)-(i, am(i)), RGB(255 - i * 15, 150 - i * 15, 200 - i * 15), BF
    Next i
End Sub