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

Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol