主题：求助如何实现下面的首位次序

Dim v As Integer = val(e.Sender.Text)

Dim r As Row = Tables("表A").Current

If r IsNot Nothing

    Dim idx As Integer = 1

    If v >= 1 AndAlso v <= 12 Then

        For i As Integer = v-1 To 11

            e.Form.Controls("Label" & idx).text = r(i)

            idx += 1

        Next

        For i As Integer = 0 To v-1

            e.Form.Controls("Label" & idx).text = r(i)

            idx += 1

        Next

        idx = 13

        For i As Integer = v-1 To 0 Step -1

            e.Form.Controls("Label" & idx).text = r(i)

            idx += 1

        Next

        For i As Integer = 11 To v-1 Step -1

            e.Form.Controls("Label" & idx).text = r(i)

            idx += 1

        Next

        

    End If

End If