Public Class Form1

    'Процедура ввода массива
    Public Sub form_mass(ByRef x() As Single, ByVal a As Single, ByVal b As Single, ByVal n As Integer)
        ReDim x(n - 1) 'задаем кол-во элементов в массиве
        For i = 0 To n - 1
            x(i) = a + (b - a) * Rnd() 'вводим рандомно эл-ты массива
        Next
    End Sub

    'Процедура вывода массива
    Public Sub PrintL(ByRef x() As Single, ByRef LB As ListBox)
        For i = 0 To UBound(x)
            LB.Items.Add(Format(x(i), "00.00"))
        Next
    End Sub

    'Процедура перестановки элементов стоящих на нечетных позициях в первую половину массива а на четных - во вторую
    Public Sub ismenenie(ByRef x() As Single)
        Dim Y() As Single 'массив который мы сформируем и после присвоим исходному массиву Х
        Dim k As Integer 'номер элемента в массиве Y
        ReDim Y(UBound(x)) 'задаем кол-во элементов в массиве Y
        k = 0
        For i = 0 To UBound(x) Step 2 'переносим в первую часть массива эл-ты стоящие на нечетных позициях
            Y(k) = x(i)
            k = k + 1
        Next
        For i = 1 To UBound(x) Step 2 'переносим во вторую часть массива эл-ты стоящие на четных позициях
            Y(k) = x(i)
            k = k + 1
        Next
        x = Y
    End Sub

    'ф-ция нахождения номера минимального эл-та массива
    Public Function num_min(ByVal x() As Single) As Integer
        Dim imin As Integer = 0 'номер мин. эл-та массива
        For i = 1 To UBound(x)
            'сравниваем мин. элемент массива с другими эл-тами, и если он больше, то сохраняем его номер
            If x(i) < x(imin) Then imin = i
        Next
        num_min = imin
    End Function

    'событийная процедура
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X(), a, b As Single
        Dim n As Integer

        'ввод исходных данных
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        n = Val(TextBox3.Text)
        form_mass(X, a, b, n) 'формируем массив рандомом и после выводим его в листбокс
        PrintL(X, ListBox1)

        TextBox4.Text = Str(X(num_min(X))) 'выводим значение мин. эл-та массива
        TextBox5.Text = Str(num_min(X) + 1) 'выводим номер мин. эл-та массива

        ismenenie(X) 'меняем исходный массив и после выводим в листбокс
        PrintL(X, ListBox2)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class