- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu dersimizde girilen 10 sayıyı büyükten küçüğe ListBox'a yazdıran kodları göstermek istiyorum.
Gerekli nesneler:
- 1 tane ListBox
Kod:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sayi(10), yedek, k, i, j As Long For i = 1 To 10 sayi(i) = InputBox(i & ".Sayıyı Giriniz...") Next i For i = 1 To 10 For j = 1 To 10 If sayi(i) > sayi(j) Then yedek = sayi(j) sayi(j) = sayi(i) sayi(i) = yedek End If Next j Next i For k = 1 To 10 ListBox1.Items.Add(sayi(k)) Next k End SubEnd Class
Gerekli nesneler:
- 1 tane ListBox
Kod:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sayi(10), yedek, k, i, j As Long For i = 1 To 10 sayi(i) = InputBox(i & ".Sayıyı Giriniz...") Next i For i = 1 To 10 For j = 1 To 10 If sayi(i) > sayi(j) Then yedek = sayi(j) sayi(j) = sayi(i) sayi(i) = yedek End If Next j Next i For k = 1 To 10 ListBox1.Items.Add(sayi(k)) Next k End SubEnd Class