BilisiMerkez

Sayilari Sira ile Siralama VB

Bu dersimizde girilen 10 sayıyı büyükten küçüğe ListBox'a yazdıran kodları göstermek istiyorum.

Gerekli nesneler:
- 1 tane ListBox

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 Sub
End Class
 
Bu yazıda hatalar varsa yazarlarımız yorum olarak düzeltme belirtebilirler. Bu düzenlemeler yöneticiler tarafından en kısa sürede derse uygulanacaktır.
Sayıları dizi ile büyükten küçüğe sıralama Dersini Yazdirin
Yazdır

Facebook'ta Paylaş | Sayfanın Çıktısını Al | Foxit'le PDF Olarak Kaydet

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=