Visual Basic. Практика. Ищенко В.А - 76 стр.

                                   76
    For i = 1 To N
    sr = sr + y(i)
    Next i
    sr = sr / N
    ' searching for max and min in X array
    max = x(1): k = 1
    min = x(1): l = 1
    For i = 1 To M
    If x(i) > max Then max = x(i) : k = i
    Next i
    For i = 1 To M
    If x(i) < min Then min = x(i) : l = i
    Next i
    If k > l Then c = k: k = l: l = c
    kol = l - k - 1
    For i = 1 To N
    y(i) = y(i) * sr
    Next i
    ' inserting
    For i = 1 To kol
    y(N+i) = x(k + i)
    Next i
    N = N + kol
    End Sub


    Private Sub Command4_Click()
    For i = 1 To M
    List1.AddItem x(i)
    Next i
    For i = 1 To N
    List2.AddItem y(i)
    Next i
    End Sub

   Private Sub Command5_Click()
   If Text1.Text = "" Then GoTo 10
   If Text2.Text = "" Then GoTo 10
   ReDim x(M)
   ReDim y(N + (M - 2))
10 End Sub
   Private Sub Command6_Click()
   End
   End Sub