Помогите пожалуйста с программой на Visual Basic for Application... =(((

[Студенточка]

Народ! Я только начала осваивать программирование на языке Visual Basic for Application... Очень нужна ваша помощь! Как выглядит программа "упорядочить отрицательные элементы А(10)"...? Напишите, если не трудно..? =))

[HandKot]

Метод "пузырьковой сортировки"

Код:

Public Sub Sort()
    Dim i As Integer    'счетчик
    Dim j As Integer    'счетчик
    Dim A() As Integer  'массив
    
    Dim x As Integer    'вспомогательная переменная
    
    ReDim A(10)      'массив из 10 элементов
    
    'заполняем массив
    For i = 1 To UBound(A)
        A(i) = -10 * Rnd() + 1
    Next i
    
    WriteMas A
    
    'Метод пузырьковой сортировки
    For i = 1 To UBound(A) - 1          'бежим по всем э-там массива
        For j = 1 To UBound(A) - 1      'бежим по всем э-там массива
            If A(j) > A(j + 1) Then     'если элемент массива больше следующего
                x = A(j + 1)            'то меняем их местами
                A(j + 1) = A(j)
                A(j) = x
            End If
        Next j
    Next i
    
    WriteMas A
    
End Sub

Private Sub WriteMas(M() As Integer)
    Dim i As Integer
    Dim s As String
    
    s = ""
    For i = 1 To UBound(M)
        s = s + Str(M(i)) + vbTab
    Next i
    
    Debug.Print s
End Sub

и, кстати, что значит

"упорядочить отрицательные элементы А(10)".

[Студенточка]

и, кстати, что значит

"упорядочить отрицательные элементы А(10)".

Это такая задача.. Дан массив А(10).. в нем самые различные числа.. А упорядочить нужно только отрицательные.. Как это делать..?

[HandKot]

ну тогда пример приведите, что есть, что должно быть

[Алексей++]

я так полагаю, что сначала надо запомнить индексы всех отрицательных чисел, затем сложить их в отдельный массив, отсортировать их там, затем расставить по сохранённым индексам в отсортированном уже порядке
//исходный массив
1,2,-6,4,-3,-2,7

->

//дополнительный массив
-6,-3,-2

->

//сортируем
-2,-3,-6

->

//ставим числа взад
1,2,-2,4,-3,-6,7

[HandKot]

Код:

Public Sub Sort()
    Dim i As Integer    'счетчик
    Dim j As Integer    'счетчик
    Dim z As Integer    'позиция отрицательного э-та
    Dim A() As Integer  'массив
    
    Dim x As Integer    'вспомогательная переменная
    
    ReDim A(10)      'массив из 10 элементов
    
    'заполняем массив
    For i = 1 To UBound(A)
        A(i) = (10 * Rnd() + 1) * (-1 * Rnd() + 0.5)
    Next i
    
    WriteMas A
    
    'Метод пузырьковой сортировки
    For i = 1 To UBound(A) - 1          'бежим по всем э-там массива
        z = 0
        For j = 1 To UBound(A) - 1      'бежим по всем э-там массива
            If A(j) < 0 Then
                If z <> 0 Then
                    If A(z) > A(j) Then     'если элемент массива больше следующего
                        x = A(j)            'то меняем их местами
                        A(j) = A(z)
                        A(z) = x
                        z = j
                    End If
                Else
                    z = j                   'запоминаем позицию отритцательного э-та
                End If
            End If
        Next j
    Next i
    
    WriteMas A
                
End Sub

Private Sub WriteMas(M() As Integer)
    Dim i As Integer
    Dim s As String
    
    s = ""
    For i = 1 To UBound(M)
        s = s + Str(M(i)) + vbTab
    Next i
    
    Debug.Print s
End Sub

исходный массив: 0   1  -1   0  -2   0  -3  -2   4   1 
результат            0   1  -3   0  -2   0  -2  -1   4   1 

[Студенточка]

А можно сделать что-то типа вот этого.. только через массив, а не ячейку...

Sub прим()
Dim i, j, r, a As Integer
For i = 1 To 10
If Cells(i, 1) < 0 Then
r = r + 1
Cells(r, 13) = Cells(i, 1)
End If
Next i
For i = 2 To r
If Cells(i - 1, 13) > Cells(i, 13) Then
a = Cells(i - 1, 13)
Cells(i - 1, 13) = Cells(i, 13)
Cells(i, 13) = a
i = 1
End If
Next i
End Sub

Очень нужна ваша помощь!! Завтра послений день сдачи зачетов..! =(((((