Не работает оператор выбора - Visual Basic .NET

Формулировка задачи:

но программа не идет...

Public Class Form1
    Dim i, j, n, k, d, m, g, A(100), B(100) As Integer
 
    Dim c As Object
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        DataGridView1.ColumnCount() = 0
        n = TextBox3.Text
        DataGridView1.Columns.Add("Колонка", 0)
        For Me.i = 1 To n  'столбец'
            DataGridView1.Columns.Add("Колонка", i)
            DataGridView1.Columns(i).Width = 50
        Next i
        For Me.i = 0 To 1  'строка'
            DataGridView1.Rows.Add()
        Next i
        DataGridView1.Rows(0).Cells(0).Value = "Исх. Массив"
        DataGridView1.Rows(1).Cells(0).Value = "Нов. Массив"
        DataGridView1.Rows(2).Cells(0).Value = "Сор. Массив"

            Randomize()
        For Me.i = 1 To n
            A(i) = Int(Rnd() * 40 - 20)
            DataGridView1.Rows(0).Cells(i).Value = A(i)
        Next i
 
        k = 0
        For Me.i = 1 To n
            If A(i) < 5 Then
                k = k + 1
                B(k) = A(i)
                DataGridView1.Rows(1).Cells(k).Value = B(k)
            End If
        Next i
 
        For Me.i = 1 To m - 1
            d = i
            For Me.j = i + 1 To m
                If c(j) > c(d) Then
                    d = j
                End If
            Next j
 
        Next i
        For Me.i = 1 To m
            DataGridView1.Rows(2).Cells(i).Value = c(i)
        Next i
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Решение задачи: «Не работает оператор выбора»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim n, k, A(), B(), C() As Integer
        With DataGridView1
            .Columns.Clear()
            n = TextBox3.Text
            ReDim A(n - 1)
            ReDim B(n - 1)
            For i = 0 To n - 1
                .Columns.Add("myCol" & i + 1.ToString, "Кол. " & i + 1.ToString)
                .Columns(i).Width = 50
            Next
            .Rows.Add(3)
            .Rows(0).HeaderCell.Value = "Исх. Массив"
            .Rows(1).HeaderCell.Value = "Нов. Массив"
            .Rows(2).HeaderCell.Value = "Сор. Массив"
            .RowHeadersWidth = 150
            Dim rndValue As New Random()
            For i = 0 To n - 1
                A(i) = rndValue.Next(-20, 20)
                .Rows(0).Cells(i).Value = A(i)
            Next
            k = -1
            For i = 0 To n - 1
                If A(i) < 5 Then
                    k += 1
                    B(k) = A(i)
                    .Rows(1).Cells(k).Value = B(k)
                End If
            Next
            ReDim Preserve B(k)
            ReDim C(k)
            C = cSort(B)
            For i = 0 To k
                .Rows(2).Cells(i).Value = C(i)
            Next
        End With
    End Sub
 
    Private Function cSort(ByVal incoming As Integer()) As Integer()
        Dim min As Integer
        For i As Integer = 0 To incoming.Count - 2
            min = i
            For j As Integer = i + 1 To incoming.Count - 1
                If incoming(j) < incoming(min) Then
                    min = j
                End If
            Next
            Dim tmp As Integer = incoming(i)
            incoming(i) = incoming(min)
            incoming(min) = tmp
        Next
        Return incoming
    End Function
End Class
                        