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

Лабораторная работа №8. Работа с массивами и чтение/запись на диск

Цель работы:научиться на VBA: применению статических и динамических, одномерных и двухмерных массивов, а также читать и записывать данные в файлы на диске

Порядок работы:

Уровень Уровень Примечание

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

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

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

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 баллов,

если пройден

уровень А

Расчетные формулы

TF=9/5Тс+32

1атм  748torr  101,325кПа

Фрагмент расчетной части программы (на 10 точек)

Dim X(10), Y(2, 10) As Variant ' объявление массивов уровня модуля Private Sub CommandButton1_Click()

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

' цикл считывания N ячеек первого столбца в одномерный массив X, ' второго и третьего столбцов - в двухмерный массив Y

For i = 1 To N

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

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

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

Next i

'пересчет град. Цельсия в град.Фаренгейта Y(1,i) и мм.рт.столбца в килоПаскали Y(2,i)

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)