Visual Basic Dizi Ödevi

ö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

daha önce yazdığınız kodu paylaşırsanız üstünde düzeltme yaparız. sadece ilk eleman yerine max. elemanı bulup yer değiştireceksiniz. ilkini yapan ikincisini de yapar, minimum elemanı bulmuşsanız max ı neden bulamıyorsunuz anlamadım