Arkadaşlar aşağıdaki programda girilen dizi elemanlarını belli bir formulle hesaplattırıp bunları kucukten buyuğe bide buyukten kucuğe sıralıyor.Baya bi uğraştım saatlerimi aldı fakat kucukten buyuğe doğru sıralayamadım.Aynı şeklde Buyukten kucuğe doğru sıralıyor.Programı yazıp calştırırsanız ne demek istedğimi anlarsınız.Lufen yardım edin.İşte program.Sadece button 1 button 2 vardır
Public Class Form1
Dim a(100), b(100), c(100), p(100), m(100), c1, c2, t1, t2 As System.Single


Dim i, k, n As System.Int32
Dim yazi As System.Drawing.Graphics
Dim yazi_tipi1 As System.Drawing.Font
Dim yazi_tipi2 As System.Drawing.Font
Dim yazi_rengi1 As New SolidBrush(Color.Blue)
Dim yazi_rengi2 As New SolidBrush(Color.Black)
Dim Cevap As Windows.Forms.DialogResult
Dim Label1Text As String
Private _t As Object
Dim koordinatp As Single

Private Property t(ByVal s As Integer) As Object
Get
Return _t
End Get
Set(ByVal value As Object)
_t = value
End Set
End Property

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.Text = "İki Dizi Elemanlarından Yeni Oluşturan ve Yazdıran Program"
Button1.Text = "Dizi Elemanlarını Yazdır"
Button2.Text = "&Cıkış"
n = Convert.ToInt32(InputBox("Biraz sonra elemanları sizden istenecek olan iki dizinin ortak eleman sayısını giriniz", "Dizi Eleman Sayısı"))
For i = 1 To n
a(i) = Convert.ToSingle(InputBox("Birinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For i = 1 To n
b(i) = Convert.ToSingle(InputBox("İkinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For k = 1 To n
t1 = 0 : t2 = 0
For i = 1 To k
t1 = t1 + ((b(i)) ^ 2)
t2 = t2 + ((a(i)) ^ 2) * b(i)
Next i
c(k) = (a(k) + t1) / (k * t2)
Next k
End Sub

Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
yazi = Me.CreateGraphics
yazi_tipi1 = New System.Drawing.Font("Arial", 14, FontStyle.Bold)
yazi_tipi2 = New System.Drawing.Font("Arial", 10, FontStyle.Regular)
Dim koordinata As New PointF(10, 0)
yazi.DrawString("Birinci Dizi (a(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinata)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 50)
yazi.DrawString(a(i), yazi_tipi2, yazi_rengi2, koor)
Next i

Dim koordinatb As New PointF(10, 100)
yazi.DrawString("İkinci Dizi (b(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinatb)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 150)
yazi.DrawString(b(i), yazi_tipi2, yazi_rengi2, koor)
Next i

Dim koordinatc As New PointF(10, 200)
yazi.DrawString("Yeni Dizi Elemanları", yazi_tipi1, yazi_rengi1, koordinatc)
For i = 1 To n
Dim koor As New PointF(100 * (i - 1), 250)
yazi.DrawString(c(i), yazi_tipi2, yazi_rengi2, koor)
Next i
Dim koordinatp As New PointF(10, 300)
yazi.DrawString("Yeni Dizi Elemanlarının Kucukten Buyuğe Sıralanışı", yazi_tipi1, yazi_rengi1, koordinatp)
For i = 1 To n
Dim koor As New PointF(100 * (i - 1), 350)
yazi.DrawString(p(i), yazi_tipi2, yazi_rengi2, koor)
Next i

For k = 1 To n
For j = k + 1 To n

If t(k) > t(j) Then
b = t(j)

t(j) = t(k)
t(k) = b
End If
Next j


Next k
For s = i To 1

Next s
i = i + 1

Dim koordinatm As New PointF(10, 200)
yazi.DrawString("Yeni Dizi Elemanlarının Buyukten Kucuğe Sıralanışı", yazi_tipi1, yazi_rengi1, koordinatm)
For i = 1 To n
Dim koor As New PointF(100 * (i - 1), 450)
yazi.DrawString(m(i), yazi_tipi2, yazi_rengi2, koor)
Next i

For k = 1 To i - 1
For j = k + 1 To i
If t(k) < t(j) Then
b = t(k)
t(k) = t(j)
t(j) = b

End If
Next j, k
For s = i To 1 Step -1

Next s
For s = i To 1

Next s
i = i + 1
End Sub

Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
Cevap = MessageBox.Show("Cıkmak istediğinize emin misiniz?", "Program Kapatma", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Cevap = Windows.Forms.DialogResult.Yes Then
End
End If
End Sub

Private Function e(ByVal i As Integer) As String
Throw New NotImplementedException
End Function

End Class
__________________