Okulda yaptıgımız örnek programlardan bi kaçı belki işinize yarar.kodlar VİSUAL BASİC.NET'de hatasız çalişiyor diger sürümlerinde farklı olabilir. Bilmiyorum.


Klavyeden girilenl isimleri en sondan ilk girilene doğru sıralayan program

Public Class Form1
    Dim a, b As Integer
    Dim kisi(4) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For b = 4 To 0 Step -1
            MsgBox(kisi(b))

       Next b

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For a = 0 To 4
            kisi(a) = InputBox("kişiyi giriniz", "bilgi girişi")

        Next (a)

End Sub
End Class

Kullanıcıdan inputbox ile alınan 5 sayıyı küçükten büyüğe sıralayan program

Public Class Form1

    Dim dizi(4) As Integer
    Dim i, k, c, b As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dizi(0) = Val(InputBox("sayı giriniz", "bilgi girişi"))
        dizi(1) = Val(InputBox("sayı giriniz", "bilgi girişi"))
        dizi(2) = Val(InputBox("sayı giriniz", "bilgi girişi"))
        dizi(3) = Val(InputBox("sayı giriniz", "bilgi girişi"))
        dizi(4) = Val(InputBox("sayı giriniz", "bilgi girişi"))

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        k = 4
        For i = 0 To k - 1
            For b = i + 1 To k
                If dizi(i) > dizi(b) Then
                    c = dizi(i)
                    dizi(i) = dizi(b)
                    dizi(b) = c
                End If
            Next b
        Next i
        For i = 0 To k
            MsgBox(dizi(i))
        Next i
    End Sub
End Class

Eyvallah