Dim Mas3(2 To 6, 2 To 5) As Byte

Mas3(I, J) = Cells(I, J) Cells(I + 7, J) = Mas3(I, J)

3.6. Добавьте внутрь цикла строки, одна из которых будет присваивать массиву числа (оценки), а другая будет временной, чтобы убедиться в работоспособности предыдущей строки.

3.7. Проверьте работу программы. Отключите временную строку, для чего поставьте в начале апостроф. Удалите результат работы временной строки.

For I = 2 To 6 For k = 1 To 4 For J = 2 To 4 If Mas3(I, J) > Mas3(I, J + 1) Then _ Max = Mas3(I, J): Mas3(I, J) = Mas3(I, J + 1): _ Mas3(I, J + 1) = Max Next J Next k Next I

3.8. Опишите переменную Mas3 глобально, иначе во втором макросе этот массив не будет определяться

3.9. Напишите отдельно макрос, который сортирует оценки по возрастанию и заполняет заново таблицу: переменная k – несет функцию очередного повторения перетаскивания в одной строке. Цикл по J является внутренним, так как сортировка внутри строк.

3.10. Проверьте работу программы. Результата нет, так как не производится вывод на экран. Добавьте ниже еще модуль, который выводит на экран элементы массива под таблицей (воспользуйтесь сохраненной временной строкой).

3.11. Измените временную строку так, чтобы данные встали на место самих оценок.

3.12. Проверьте работу программы.

Дата добавления: 2014-12-24