сортировка чисел

[v-adix]

есть массив, в нём числа. как отсортировать эти числа (записав отсортированное в другой массив) во возрастанию и по убыванию?

[Vitaly1]

Переслать в B копию А и отсортировать , ну вот, например, по убыванию и возрастанию:
'переслать
for i=1 to n
b(i) =a(i)
next i

for i=1 to n
for j=i+1 to n
if b(I)<b(j) then
obmen =b(i)
b(i)=b(j)
b(j)=obmen
end if
next j
next i

for i=1 to n
for j=i+1 to n
if b(I)>b(j) then
obmen =b(i)
b(i)=b(j)
b(j)=obmen
end if
next j
next i

n - число ячеек ячеек

[Ilya Vasilyev]

цикл по i должен быть до n-1

[Vitaly1]

цикл по i должен быть до n-1

Совсем не обязательно!

[v-adix]

посмотрите на пример кода:

Private Sub Form_Load()
Dim b() As Integer
For i = 1 To GetRandomNumber(50)
ReDim Preserve b(i)
b(i) = GetRandomNumber(999)
Next i
Dim obmen As Integer
For i = 1 To UBound(b)
For j = i + 1 To UBound(b)
If b(i) < b(j) Then
obmen = b(i)
b(i) = b(j)
b(j) = obmen
List1.AddItem obmen
End If
Next j
Next i
End Sub
Public Function GetRandomNumber(Ton As Long) As Long
Dim RndValue
Randomize
RndValue = Int((Ton + 1) * Rnd)
GetRandomNumber = RndValue
End Function

я правильно сделал? чёто не получается... цифры не по возрастанию идут...

[Ilya Vasilyev]

V-Adix
If b(i) > b(j) Then

Vitaly 1
Совсем не обязательно!
Ошибки конечно не будет, но с точки зрения оптимизации это некорректно... зачем сравнивать друг с другом одинаковые индексы - лишний ресурс

[Vitaly1]

я правильно сделал? чёто не получается... цифры не по возрастанию идут...

Конечно, надо знак сравнения в операторе if поменять на обратный

[v-adix]

попробуй код который я выложил. он не работает.
цифры идут по возрастанию от 1 до 999, потом опять идут по возрастанию от 1 до 999 и т.д. до конца.

[Vitaly1]

Елки, палки, нельзя добавлять в список, тогда, когда переставляешь данные, переставь List1.AddItem :

'это по возрастанию
For i = 1 To UBound(b)
For j = i + 1 To UBound(b)
If b(i) > b(j) Then
obmen = b(i)
b(i) = b(j)
b(j) = obmen
End If
Next j
List1.AddItem b(i)
Next i
End Sub

[v-adix]

всё! спачибо огромное. всё получилось.
продолжу свой проект...