Страницы: 1
RSS
[ Закрыто ] Сортировка данных массива.
 
Добрый вечер.
Ув. ветераны форума, помогите понять, почему при попытке отсортировать массив выбивает ошибку?

Private Sub test1()
Dim MyArray(5)
MyArray(1) = "Иван"
MyArray(2) = "Антон"
MyArray(3) = "Виктор"
MyArray(4) = "Яна"
MyArray(5) = "Костя"
Сортировка (MyArray)
End Sub

Private Sub Сортировка(List() As String)

Dim First As Integer
Dim Last As Integer
Dim I As Integer, j As Integer
Dim temp As String

First = LBound(List)
Last = UBound(List)

For I = First To Last - 1
    For j = I + 1 To Last
If List(I) > List(j) Then

temp = List(j)
List(j) = List(I)
List(I) = temp

End If
    Next j
Next I

End Sub
Изменено: 7Brod9ga - 30.03.2014 23:43:08
 
1. Оформляйте код тегом.
2. Поменяйте имя на вменяемое.
 
Код
Private Sub Сортировка(byref List)
 
Ошибка пропала. Но массив не сортируется.

P.S.
как оформить код тегом?
Изменено: 7Brod9ga - 30.03.2014 23:34:39
 
Нажать соответствующую кнопку. И я про имя ещё говорил....
 

И ник... Такой хорош для пароля, но для общения - никудышний.
 
Только без стеба (извините за сленг).
Перечетал правила. Переклацал доступные кнопки.
Кнопку "оформить тегом" не нашел.
И какое имя Вы имели в виду. Заголовок, имя макроса или др?
Изменено: 7Brod9ga - 30.03.2014 23:50:47
 
Я Вам кнопку показал.

Зайдите в свой профиль, поменяйте ник (отображаемое имя).
И милости просим с новой темой.

ЗАКРЫТА
Страницы: 1
Наверх