«Работа с массивами и чтениезапись на диск»

3. Через кнопку «РАСЧЕТ» открыть редактор VBA и набрать фрагмент программы чтения данных из таблицы листа в одномерный массив X(i) и двухмерный массив Y(i,j), количество элементов массива N при этом прочитать с диска из файла 2050.txt

4. Дополнить программу пересчета элементов двухмерного массива Y из град. Цельсия в град. Фаренгейта и из мм ртутного столба – в МПа и программой записи элементов массива на лист (в столбцы 4 и 5)

5. Через кнопку «ОЧИСТКА» открыть редактор VBA и набрать фрагмент программы, стирающий содержимое столбцов 4 и 5

6. Дополнить программу фрагментом записи массива Y на диск в виде текстового файла ФИО.txt, повторить расчет и убедиться, что именно этот файл появился на диске (сравнить с данными на листе

Excel, они должны полностью совпасть) Максимум 15 баллов

B 7. Заменить статические массивы динамическими и добиться такого же результата работы программы

8. В отчете привести фрагмент дополненной программы и показать преимущество динамических массивов. Пример фрагмента программы работы с динамическим массивом найти найти в рекомендованной литературе (по ссылке, найденной

в л.р.№2 и 3). +5 баллов,

если пройден

уровень А

For i = 1 To N

Y(1, i) = Y(1, i) * 9 / 5 + 32

Y(2, i) = Y(2, i) / 748 * 101.325

Next i

' цикл записи результатов из массива 4 и 5 столбцы первого листа Excel

For i = 1 To N

Worksheets(1).Cells(i + 2, 4).Value = Y(1, i)

Worksheets(1).Cells(i + 2, 5).Value = Y(2, i)

Next i

**********сюда вставить фрагмент записи массива Y на диск(выбрать из Примера программы чтения/записи, приведенного ниже)

End Sub

Private Sub CommandButton2_Click()

' цикл очистки 4 и 5 столбцов первого листа Excel ‘***************сюда вставить фрагмент, подобный очистке в предыдущих лабораторных работах

End Sub

Пример чтения числа N с диска и записи на диск N строк массива Y

Dim Y(2, 10) As Integer Dim n As Integer

Sub Disk()

Open "d:\2050.txt" For Input As #1

Open "d:\Fattahov.txt" For Output As #2

While Not EOF(1)

Input #1, N

MsgBox N

Wend

For i = 1 To N

Print #2, Y(1, i), Y(2, i)

Next i

Close #1

Close #2

End Sub

Ход работы

Задание 1. Создать на диске в корневом каталоге файл 2050.txt и записать туда одно число N(в соответствии с индивидуальным заданием)

Рисунок 1

Задание 2. Набрать на листе 1 в первых трех столбцах таблицу исходных данных X и Y, например

«Прогноз температуры и давления» на N дней (это число дано в индивидуальном задании), первую и вторую строки использовать для подписи заголовков столбцов. Под таблицей поместить командные кнопки «РАСЧЕТ» и «ОЧИСТКА»

Рисунок 2

Задание 3. Через кнопку «РАСЧЕТ» открыть редактор VBA и набрать фрагмент программы чтения данных из таблицы листа в одномерный массив X(i) и двухмерный массив Y(i,j), количество элементов массива N при этом прочитать с диска из файла 2050.txt

Рисунок 3

Задание 4. Дополнить программу пересчета элементов двухмерного массива Y из град. Цельсия в град. Фаренгейта и из мм ртутного столба – в МПа и программой записи элементов массива на лист (в столбцы 4 и 5)