Bu dersimizde girilen 3 sayıyı büyükten küçüğe yeni düzeniyle sıralayan bir program yapalım.

Kullanacağımız nesneler:

Sayıları gireceğimiz 3 textbox ve işlem yaptıracağımız 1 button.

Kodlarımızı button1_click olayına yazıyoruz:

a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text

If a > b Then
a = b
b = d
End If

 If a > c Then
d = a
a = c
c = d
End If

If b > c Then
d = c
c = b
b = d
End If



TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c

Burada da değişkenlerimizi tanımlayalım.

Dim a, b, c, d As Integer