простая задача...

[d3drm]

простая, вот только мозги уже пухнут, ничего не соображают...

массив со словами надо распечатать по алфавиту... кто-нить код сделает?

[Джеффи]

ОЧЕНЬ ПРОСТО=)))

Значит так даю подсказку используй ASCII код, и сравнивай...=)

[alibek]

А зачем? Надо не сравнивать, а отсортировать массив. Типов сортировки - вагон.

[d3drm]

ОЧЕНЬ ПРОСТО=)))

Значит так даю подсказку используй ASCII код, и сравнивай...=)

мне кусочек кода нужен, я уже пробовал до фига всего, только где-то ошибки а где найти не могу. Говору же, башка уже не варит...

[d3drm]

войдите в мое положение, по программированию половинее группы домашку сделал, у тут уже мозг кончаеца.

[alibek]

Яndex, вторая ссылка.

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

Sub ShellSort(vArray As Variant)
  Dim TempVal As Variant
  Dim i As Long, GapSize As Long, CurPos As Long
  Dim FirstRow As Long, LastRow As Long, NumRows As Long
  FirstRow = LBound(vArray)
  LastRow = UBound(vArray)
  NumRows = LastRow - FirstRow + 1
   Do
    GapSize = GapSize * 3 + 1
    Loop Until GapSize > NumRows
    Do
      GapSize = GapSize \ 3
      For i = (GapSize + FirstRow) To LastRow
        CurPos = i
       TempVal = vArray(i)
       Do While CompareResult(vArray(CurPos - GapSize), TempVal)
         vArray(CurPos) = vArray(CurPos - GapSize)
         CurPos = CurPos - GapSize
         If (CurPos - GapSize) < FirstRow Then Exit Do
       Loop
       vArray(CurPos) = TempVal
     Next
   Loop Until GapSize = 1
   End Sub
Private Function CompareResult(Value1 As Variant, Value2 As Variant)
    CompareResult = (Value1 > Value2)
End Function


[d3drm]

alibek, спасибо, должен буду

[Джеффи]

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

Private Function CompareResult(Value1 As Variant, Value2 As Variant)
    CompareResult = (Value1 > Value2)
End Function

Или я чего-то не понимаю, что это такое

[Ariman]

Джеффи
Это похоже на функцию, выдающую результат(result) сравнения (Compare)

[d3drm]

Джеффи
даже более того, она возвращает true если первое число больше второго

[Джеффи]

почему мне раньше об этом никто не сказал??

Мдя... круто...