'сортировка

List1.Clear

For i = 1 To m - 1 k = i

For j = i To m

If Abs(KRxy(k)) > Abs(KRxy(j)) Then k = j Next j

sz = smassiv(k) smassiv(k) = smassiv(i) smassiv(i) = sz

Next i

For i = m To 1 Step -1 List1.AddItem (smassiv(i)) Next i

End Sub