Двумерные массивы

Одномерные массивы строкового типа.

2.1. Перейдите на другой лист Лист 2. Заполните ячейки от А2 до А6 произвольными фамилиями.

2.2. Создайте новый макрос, в котором объявите одномерный массив строкового типа: Dim Mas2(4) As String. В этом примере не указан номер первого элемента, а только последнего. Учтите, что для таких массивов нумерация адресов начинается с 0.

2.3. Считайте из ячеек данные и присвойте их элементам массива. Проверьте программу.

2.4. Скопируйте предыдущий текст макроса и произведите лишь некоторые исправления для того, чтобы фамилии располагались по алфавиту в третьем столбце:

2.5. Проверьте программу.

2.6. Самостоятельно напишите модуль для расположения обратно алфавитному порядку фамилий во втором столбце.

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. Для дальнейшей работы понадобиться поместить все оценки в память, использовать необходимо массив, но двумерный, так как нельзя потерять местоположение ни по вертикали, ни по горизонтали каждого числа. Опишите массив:

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