Как из ряда данных чисел можно определить наименьшее

[VBFAN]

Люди помогите!
Как из ряда данных чисел можно определить наибольшее и наименьшее программно? Неплохо бы былобе расположить их еще в порядке возростания или убывания...
Зарание спасибо!

[Aleksej]

Код: Выделить всё

Dim iArray(9) As Integer
Dim iDigit As Integer
Dim iCounter As Integer
Dim iMin As Integer

' Создаём массив из случайных чисел от 1 до 10
For iCounter = 0 To 9
    iDigit = Int((10 * Rnd) + 1)
    iArray(iCounter) = iDigit
Next iCounter
' Выбераем наименьшее число
iMin = 11
For iCounter = 0 To 9
    If iMin > iArray(iCounter) Then
        iMin = iArray(iCounter)
    End If
Next iCounter
' Выбераем наибольшее число
iMax = 0
For iCounter = 0 To 9
    If iMax < iArray(iCounter) Then
        iMax = iArray(iCounter)
    End If
Next iCounter

[VBFAN]

Спасибо большое! ты мне очень помог!