Visual Basic ile sayı sıralama
Az önce basit bir sayı sıralama programcığı gerekti, işte kodlar;
Dim sayilar(100)
Randomize Timer
veri_sayisi = 10For a = 1 To veri_sayisi
sayilar(a) = Int(Rnd * 100) + 1
Next aFor a = 1 To veri_sayisi
For b = a To veri_sayisi
If sayilar(a) < sayilar(b) Then
tmp = sayilar(a)
sayilar(a) = sayilar(b)
sayilar(b) = tmp
End If
Next b
Next a
Cls
‘ Büyükten Küçüğe Sırala
For q = 1 To veri_sayisi
Debug.Print sayilar(q)
Next‘ En büyük 2. sayı = sayilar(2)
‘ En küçük 2. sayı = sayilar(q-1)
işte bu kadar önce tüm dizi içersindeki alana rastgele tamsayılar yerleştiriliyor, sonra ikili döngü içersinde büyük küçük sayılar yer değiştiriliyor (Quickbasic de yazanlar bilir SWAP komutu vardı). Yer değişimi bitince de tüm sayılar debug alanında yazılıyor.
Eğer istenirse sıralamadaki N sırasındaki bir sayı rahatça görülebiliyor
‘Diğer Bi yol ‘
Public Class Form1
Dim a(5), b, c, d As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For c = 0 To 5
a(c) = Int(Rnd() * 48)
ListBox1.Items.Add(a(c))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For c = 0 To 4
For b = c + 1 To 5
If a(c) > a(b) Then
d = a(c)
a(c) = a(b)
a(b) = d
End If
Next
Next
For c = 0 To 5
ListBox2.Items.Add(a(c))
Next
End Sub
End Class