задаа VBA кто сможет

[alex_94_2331]

ребят помогите пожалуйста
последовательность а1,а2, ..., аn состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.

[Hugo121]

Private Sub SortArray(ByRef a As Variant) 
    Dim i As Long, j As Long 
    Dim t As Variant 
  
    'standard bubble sort loops 
    For i = LBound(a) To UBound(a) - 1 
        For j = i + 1 To UBound(a) 
            If a(i) > a(j) Then 'change to < for descending order 
                t = a(i) 
                a(i) = a(j) 
                a(j) = t 
            End If 
        Next j 
    Next i 
End Sub

[alex_94_2331]

что-то не работает

[alex_94_2331]

For i = LBound(a) To UBound(a) - 1
где-то здесь ошибочка

[Hugo121]

Так подкрутите под свой массив.

[alex_94_2331]

Сообщение от Hugo121

Так подкрутите под свой массив.

я вообще дно а как это можешь объяснить если не сложно как вообще это все работает

[Hugo121]

Создаёшь из своей последовательности массив, скармливаешь функции - получаешь его сортированным.

Sub test()
    Dim a
    a = Array("d", "a", "f")
    SortArray a
    MsgBox a(0) & vbNewLine & a(1) & vbNewLine & a(2)
End Sub

Private Sub SortArray(ByRef a As Variant)
    Dim i As Long, j As Long
    Dim t As Variant

    'standard bubble sort loops
    For i = LBound(a) To UBound(a) - 1
        For j = i + 1 To UBound(a)
            If a(i) > a(j) Then    'change to < for descending order
                t = a(i)
                a(i) = a(j)
                a(j) = t
            End If
        Next j
    Next i
End Sub

Соотв. возможен такой массив:

a = Array(0, 1, 0)

[alex_94_2331]

Сообщение от Hugo121

Создаёшь из своей последовательности массив, скармливаешь функции - получаешь его сортированным.

огромное спасибо но я все равно тебя не понемаю у меня не получается чето вообще

[Hugo121]

Показывай, что не получается.

[alex_94_2331]

я вообще непонимаю нечиго мне дали задач целую кучу а инфа у нас не проводилась я только знаю что нужно масив сделать а что такое и как его делать вообще не знаю и еще сказали в этой программе Microsoft Office Access 2007 работать