سلام
خب طبیعیه خطا میده چون پیاده سازیتون اشتباهه ، کلاس Sort به این شکل میشه
Public Class BubbleSort
Public Function SortArray(inputArray As Integer()) As Integer()
Dim localArray = inputArray.Clone()
Dim i, j, temp As Integer
For i = 0 To localArray.Length - 2
For j = 0 To localArray.Length - i - 2
If localArray(j) > localArray(j + 1) Then
temp = localArray(j)
localArray(j) = localArray(j + 1)
localArray(j + 1) = temp
End If
Next
Next
Return localArray
End Function
End Class
استفاده هم به این صورت
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim bubbleSort As New BubbleSort
Dim array() = bubbleSort.SortArray(New Integer() {5, 34, 12, 56, 2, 4, 12, 78, 90, 22, 1, 43})
End Sub
پیشنهاد میکنم کمی بیشتر مطالعه بفرمائید.