vba сортировка массива

[Aion]

здравствуйте, на 3 курсе проходим VBA в аксесе, вообще подобные задачи решали на 1 по паскалю, но уже забыл всю эту муть с сортировкой

задача звучит так
Дан двумерный масс mxn. характеристикой столбца целочисленной матрицы назовем сумму его + элементов. Переставить столбцы матрицы в соответствии с убыванием характеристик

потрудился немного - вот что получилось
компилятор ругается на Next j во втором блоке for(пометил)
подкскажите в чем ошибка или может быть вариант более рациональный

PHP код:

Sub LR_8()
Dim Mass() As Double
Dim Mass2() As Double
Dim i As Integer, j As Integer, m As Integer, n As Integer, L As Double

n = InputBox("введите размерность массива - n")
m = InputBox("введите размерность массива - m")
count = 0

ReDim Mass(1 To n, 1 To m) As Double
ReDim Mass2(1 To 2, 1 To m) As Double

For i = 1 To n
    For j = 1 To m
        Mass(i, j) = InputBox("введите элемент Mass(" & i & "," & j & ")")
        Mass2(1, j) = j
    Next j
Next i

For i = 1 To n
    For j = 1 To m
        If (Mass(i, j) >= 0) Then
        Mass2(2, j) = Mass2(2, j) + Mass(i, j)
    Next j////////////тут компилятор говорит, мол Next без For
Next i

For i = 1 To n
    For j = n To (i + 1) Step -1
        If Mass2(2, j - 1) < Mass2(2, j) Then
        L = Mass2(2, j - 1): Mass2(2, j - 1) = Mass2(2, j): Mass2(2, j) = L
        L = Mass2(1, j - 1): Mass2(1, j - 1) = Mass2(1, j): Mass2(1, j) = L
    Next j
Next i





Debug.Print "итоговый масс"
For i = 1 To n
    For j = 1 To m
        Debug.Print Mass(i, Mass2(1, j))
    Next j
    Debug.Print
Next i

Debug.Print
End Sub 


[Aion]

добавил недостающие End if, программа запускается, но работает некорректно

[ovt256]

Проверьте этот вариант:

Dim Mass() As Double
Dim Mass2() As Double
Dim i As Integer, j As Integer, m As Integer, n As Integer, L As Double

n = InputBox("введите размерность массива - n")
m = InputBox("введите размерность массива - m")
Cnt = 0

ReDim Mass(1 To n, 1 To m) As Double
ReDim Mass2(1 To 2, 1 To m) As Double

For i = 1 To n
    For j = 1 To m
        Mass(i, j) = InputBox("введите элемент Mass(" & i & "," & j & ")")
    Next j
Next i

For i = 1 To n
    For j = 1 To m
        If (Mass(i, j) >= 0) Then
           Mass2(2, j) = Mass2(2, j) + Mass(i, j)
        End If
        Mass2(1, j) = j
    Next j
Next i

For i = 1 To m - 1
  For j = 1 To m - i
        If Mass2(2, j) < Mass2(2, j + 1) Then
        L = Mass2(2, j): Mass2(2, j) = Mass2(2, j + 1): Mass2(2, j + 1) = L
        L = Mass2(1, j): Mass2(1, j) = Mass2(1, j + 1): Mass2(1, j + 1) = L
        End If
    Next j
Next i





Debug.Print "итоговый масс"
For i = 1 To n
    For j = 1 To m
        Debug.Print Mass(i, Mass2(1, j))
    Next j
    Debug.Print
Next i

Debug.Print