|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2009, 13:12 | #1 |
Пользователь
Регистрация: 15.05.2009
Сообщений: 13
|
Помогите мне пожалуйста с задачкой
Помогите мне пожалуйста с задачкой
Вот условие: Дан двумерный массив из 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 |
16.05.2009, 13:15 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Посмотри внимательно на свой код.
У тебя не в той последовательности закрываются циклы. Правильно будет так: Код:
|
16.05.2009, 13:16 | #3 |
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
Код:
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста с задачкой | yogupt | Помощь студентам | 2 | 14.05.2009 18:05 |
Помогите пожалуйста с задачкой | Kold | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.11.2008 16:33 |
Помогите с задачкой, пожалуйста! | korteas | Помощь студентам | 6 | 09.10.2007 12:10 |
Помогите пожалуйста с задачкой | Antowka | Помощь студентам | 1 | 13.06.2007 13:41 |