Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
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. Проверьте работу программы.
Date: 2015-07-24; view: 355; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |