сортировка

[hachyhacha]

Помогите пожалуйста
Создать 27 случайных чисел и рассортировать по убыванию с помощью перемещения друг друга через "если" и транспортирующей переменной. Т.е. Если число2>число1, то число2= транпортирующая переменная= число2, а число1 заменяет число2. После, число2 встает на место число1
Возможно плохо объяснил, извиняюсь.
Надеюсь поможете. Заранее спасибо.

[Aleksandr H.]

первый запрос в гугле выдал 10 предустановленных чисел. Осталось научиться пользоваться rnd что-бы переделать в случайные и прочитать как задать значения элементов массива

Dim sortArray(9) as Integer
sortArray(0) = 100
sortArray(1) = 20
sortArray(2) = 30
sortArray(3) = 70
sortArray(4) = 10
sortArray(5) = 40
sortArray(6) = 90
sortArray(7) = 80
sortArray(8) = 60
sortArray(9) = 50
For i = 0 to Ubound(sortArray)  
 For x = Ubound(sortArray) to i + 1 Step - 1   
   if sortArray(x) < sortArray(i) Then      
   holdInt = sortArray(x)
         sortArray(x) = sortArray(i)
         sortArray(i) = holdInt         
 end if   
 Next x
Next i