ödev yapılmıştır arkadaşlar.

Dizinin ilk elemanıyla en küçük elemanının yer değiştirmesi.lazım olur belki birine ilerde

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i, size, min, p, temp As Integer
        Dim a() As Integer = {4, 8, 3, 1, 18, 9, 21, 20, 5, 17}
        size = 10

        min = a(0)

        For i = 0 To size - 1
            ListBox1.Items.Add(a(i))
            If a(i) < min Then
                min = a(i)
                p = i
            End If
        Next

        temp = a(p)
        a(p) = a(0)
        a(0) = temp


        For i = 0 To 9
            ListBox2.Items.Add(a(i))

        Next
    End Sub
End Class