Помогите мне пожалуйста с задачкой

[umiko]

Помогите мне пожалуйста с задачкой
Вот условие: Дан двумерный массив из 20 строк. Перенести первые k строк в конец массива, соблюдая порядок их следования.
Код:
Private Sub CommandButton1_Click()
Dim A()
Dim B()
Dim c
Dim k

c = 18
k = 13
ReDim A(19, c)
ReDim B(19, c)

For i = 0 To 19
For j = o To c
A(i, j) = i
Next i
Next j

For i = 0 To 19
For j = 0 To c
B(i, j) = A((i + k) Mod 19, j)
Next j
Next i

For i = 0 To 19
For j = 0 To c
A(i, j) = B(i, j)
Next j
Next i

End Sub


Задачка выдает ошибку: ссылается на Next i с таким предупреждением Invalid Next control variable reference

[EducatedFool]

Посмотри внимательно на свой код.
У тебя не в той последовательности закрываются циклы.

Правильно будет так:

For i = 0 To 19
        For j = o To c
            A(i, j) = i
        Next j
Next i

[Utkin]

For i = 0 To 19
For j = o To c
A(i, j) = i
Next i
Next j

Давно не программировал на бейсике . Но еще помню, что циклы должны быть вложенными. Поменяйте местами Next i и Next j для первого блока циклов. Вообще правило такое: циклы закрываются наоборот, т.е. если сначала идет цикл i, потом j, потом k, то закрывать nextом надо сначала k, затем j, затем i.