Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Двумерные массивы
3.1. Перейдите на новый лист. Назовите его Журнал. С помощью макроса Оценки заполните ячейки А2 до А6 формулой, копирующей данные Листа 2.
| Range(“A2”).FormulaR1C1 = “=Лист2!RC” Range(“A2”).AutoFill Destination:=Range(“A2:A6”), _ Type:=xlFillDefault |
| For J = 2 To 5 For I = 2 To 6 MyValue = Int(6 * Rnd) Cells(I, J) = MyValue Next I Next J |
3.2. 
Дополните макрос операторами, которые заполнят диапазон ячеек В2:Е6 случайными целыми числами до 5 (включительно), которые фактически для нашей задачи будут являться текущими оценками. В данном примере J – это номер столбца, I – номер строки, причем цикл по I вложен в цикл по J. Подобный пример цикла уже встречался в предыдущей лабораторной.
3.3. Проверьте работу макроса. Почему расставляются нули? Измените строку с функцией Rnd так, чтобы нули и единицы не встречались.
3.4. Самостоятельно надпишите автозаполнением даты к оценкам.
3.5. Для дальнейшей работы понадобиться поместить все оценки в память, использовать необходимо массив, но двумерный, так как нельзя потерять местоположение ни по вертикали, ни по горизонтали каждого числа. Опишите массив:
Date: 2015-07-24; view: 384; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |