Dizi kullanmadan üç sayıyı sıralama Vb.Net

Dizi kullanmadan üç sayıyı sıralama Vb.Net 

 

 

 [code lang=”vb”] 

Public Class Form1 

Dim a, b, c, gecici As Integer 

Private Sub btnSirala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSirala.Click 

a = TextBox1.Text 

b = TextBox2.Text 

c = TextBox3.Text 

If a > b Then 

gecici = a 

a = b 

b = gecici 

End If 

If a > c Then 

gecici = a 

a = c 

c = gecici 

End If 

If b > c Then 

gecici = c 

c = b 

b = gecici 

End If 

ListBox1.Items.Clear() 

ListBox1.Items.Add(a) 

ListBox1.Items.Add(b) 

ListBox1.Items.Add(c) 

End Sub 

End Class 

[/code]

Projeyi İNDİR