Хамухин А.А. Введение в информатику для инженеров нефтегазового дела:
Подождите немного. Документ загружается.
Расчетные формулы
.325,1017481
,32
5
9
кПаtorrатм
TT
CF
==
+=
Фрагмент расчетной части программы (на 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
Пример программы чтения/записи на диск (на 10 точек)
Из этого примера требуется выделить фрагмент чтения с диска и фрагмент
записи на диск и вставить их в свою лабораторную работу по-отдельности.
Dim Y(2, 10) As Integer
Dim n As Integer
Sub Disk()
Open "c:\2050.txt" For Input As #1
191
Open "c:\IVANOV.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
Пример окна приведен на рис. П5.13 (Приложение 5).
Контрольные вопросы
1. Чем отличаются двухмерные массивы от одномерных массивов?
2. Можно ли в массив заносить данные разных типов?
3. Чем отличаются динамические массивы от статических массивов?
4. Как определить конец файла при чтении с диска?
5. Как определить конец файла при записи на диск?
П.3.9. Лабораторная работа №9. Логические операции и
стандартные функции VBA
Цель работы: научиться на VBA: использовать встроенные стандартные
функции VBA и логические операции NOT, AND, OR, XOR .
Порядок работы
Уровень
A
1. На листе Excel поместить 3 кнопки: «Вычислить арифметическое
выражение», «Вычислить логическое выражение», «Очистить».
2. Через меню «Сервис-Макрос» (или через размещенные кнопки)
вызвать редактор VBA , набрать и отладить пример программы
вычисления арифметического выражения, используя встроенные
математические функции
VBA.
3. Дополнить программу вычислением логического выражения,
используя логические операции NOT, AND, OR, XOR для примера.
4. Изменить программу в соответствии с заданным преподавателем
вариантом индивидуального задания для арифметического и для
логического выражений, проверить правильность вычислений
192
B
5. Набрать заданное арифметическое выражение в ячейках Excel и
добиться полного совпадения с результатом, полученным на VBA.
6. Составить подробный отчет и сохранить исходные данные и
результаты для проверки вычисления этих выражений в следующих
лабораторных работах
Пример программы
Для арифметического выражения:
,lg
2
3
2
ax
ba
cab
y +
−
+
=
при а = 1,3 b = 2,4 c = 0,75 x = 13 правильный ответ
у = 2,903435.
И для логического выражения:
()
)( DCBAZ
∧
∀¬∨=
Исходные данные Результат
A B C D Z
TRUE TRUE TRUE TRUE
FALSE
FALSE FALSE FALSE FALSE
TRUE
' пп вычисления арифметического выражения
Private Sub CommandButton1_Click()
Dim A, B, C, x, y As Double
A = Worksheets(1).Cells(2, 6).Value
B = Worksheets(1).Cells(2, 7).Value
C = Worksheets(1).Cells(2, 8).Value
x = Worksheets(1).Cells(2, 9).Value
y = (A * B + C ^ 2) / Abs(A – 2 * B) + (Log(A * x) / Log(10)) ^ 3
Worksheets(1).Cells(2, 10).Value = y
End Sub
'пп очистки результатов
Private Sub CommandButton2_Click()
Worksheets(1).Range("J2").Value = ” ”
Worksheets(1).Range("J8:J11").ClearContents
End Sub
'пп вычисления логического выражения
Private Sub CommandButton3_Click()
Dim A, B, C, D, Z As Boolean
A = Worksheets(1).Cells(8, 6).Value
B = Worksheets(1).Cells(8, 7).Value
C = Worksheets(1).Cells(8, 8).Value
D = Worksheets(1).Cells(8, 9).Value
193
If (A = True Or Not B = True) Xor (C = True And D = True) Then Z = True
Worksheets(1).Cells(8, 10).Value = Z
End Sub
Пример проверки вычисления арифметического выражения в Excel
=(F2*G2+H2^2)/ABS(F2-2*G2)+LOG10(F2*I2)^3
Варианты индивидуальных заданий
Индивидуальные задания по двум номерам: № арифметического выражения и
№ исходных данных. Например, если задано индивидуальное задание 3.2, то
необходимо взять арифметическое выражение №3 и набор исходных данных №2.
Аналогично выбирается индивидуальное задание и для логического выражения.
Исходные данные
№
п/п
Арифметические выражения №
п/п
a b c x
1
)(
2
)(
7,0
4,2
ba
e
ba
abcabc
y
+
−
+
−=
1 3,4 1,7 4,5 1,7
2
)lg(
)ln(41,0
3
ba
ba
ba
bxc
y
+
−
+
−
−+
=
2 4,5 1,2 3,1 1,4
3
)sin(
22)(
3
22
bae
a
x
ba
y
ca
−+−
−
+
=
−
3 1,4 2,7 0,5 1,9
4
)ln(10
4,0
)(
2
x
xba
bxatgabc
y
−
−
+−
+
=
4 1,4 27 0,9 1,6
5
)lg()(
)(
22
3
axcba
ebabax
y
ax
++−
+−+−
=
5 1,5 2 1,9 4,7
6
x
ca
x
x
baarctg
y
)(lg
5,2
)(
2
−
−+
−
=
6 4,5 2,5 1,1 5,9
7
xax
bcbc
cbxa
y
322
3
cos10 ++
+−
−
=
−
7 5,2 3,1 –1,5 0,5
8
tgbe
baba
x
c
ba
y
x
+
−−
−−
=
2
))((
)(
2,1
2
3
8 –7,4 4,5 –0,75 1,5
Исходные данные №
п/п
Логические выражения №
п/п
A B C D
1
()
)( DCBAZ ∨∀¬∨=
1
TRUE FALSE TRUE FALSE
2
()
)( DCBAZ ∨
∧
¬∧¬=
2
FALSE TRUE FALSE TRUE
3
()
)( DCBAZ ∀
∧
¬∧=
3
TRUE TRUE TRUE TRUE
194
4
()
)( DCBAZ ∨∀∀¬=
4
FALSE FALSE FALSE FALSE
5
()
)( DCBAZ ∨∧∀=
5
TRUE FALSE TRUE FALSE
6
()
)( DCBAZ ∀
¬
∧∨=
6
FALSE TRUE FALSE TRUE
7
()
)( DCBAZ ¬∧
¬
∀∨=
7
TRUE TRUE TRUE TRUE
8
()
)( DCBAZ ∀∨∧¬=
8
FALSE FALSE FALSE FALSE
Пример окна приведен на рис. П5.14 (Приложение 5).
Контрольные вопросы
1. Какие арифметические стандартные функции VBA Вы знаете?
2. Что означает логическая операция «исключительное ИЛИ»?
3. Как проверить правильность вычисления логического выражения?
4. Как вычислить логарифм по любому основанию через натуральный
логарифм?
5. В каких единицах задается аргумент в тригонометрических функциях VBA,
Excel?
П3.10. Лабораторная работа №10. Условные операторы и
программирование разветвления программы на VBA
Цель работы: научиться на VBA: программировать разветвляющиеся
вычисления с помощью инструкций IF-THEN-ELSE и SELECT CASE, а также
устанавливать выборочный доступ к листам Excel по паролям.
Порядок работы
Занятие 1 (Уровень А)
1. На первых трех листах набрать «секретную» информацию. (Примеры окон
приведены на рис. П5.15–17 в Приложении 5). Защитить эти листы от записи в
ячейки с помощью команд меню «Сервис»-«Защита»-«Защитить лист» и скрыть три
первых листа (перед этим добавить лист 4) с помощью команд меню «Формат»-
«Лист»-«Скрыть». Сохранить файл с «секретной» информацией на диске под
именем LAB10ФИО.xls (при его открытии первые 3 листа должны быть не видны).
2. Через меню «Сервис-Макрос» вызвать редактор VBA , вставить модуль и
набрать пример программы проверки пароля при автозагрузке файла с помощью
инструкции IF-THEN-ELSE. Проверить и отладить ее работу в пошаговом режиме
(проверить соответствие набранного пароля с тем, что записан в программе).
3. Поочередно открывать «секретный» файл LAB10ФИО.xls (при этом должен
автоматически запрашиваться пароль). Показать, что при наборе пароля “LEVEL1”
все три листа становятся видимыми с доступом к записи в ячейки, пароля ”LEVEL2”
– становится видимым лист 1 с доступом к записи в этот лист (лист 2 должен
оставаться невидимым, а лист 3 – защищен от записи в ячейки), пароля ”LEVEL3” –
195
лист 1 появляется только для чтения ячеек. Любой другой пароль не должен
показывать листы с «секретной» информацией.
Занятие 2 (Уровень А)
4. Изменить программу доступа к листам по паролям в соответствии с
вариантом индивидуального задания и добиться правильности работы программы,
проверяя ее в соответствии с п. 3.
(Уровень B)
5. Заменить инструкцию IF-THEN-ELSE на инструкцию SELECT CASE и
добиться такой же работы программы.
6. Изменить пароли “LEVEL1”, “LEVEL2”, “LEVEL3” на свои собственные
и поставить пароль на саму программу. В отчете представить блок-схему
разветвления программы по своему индивидуальному заданию.
Пример программы
Sub Auto_Open()
PassWord
End Sub
Sub PassWord()
Dim PassW As String
PassW = GetPassWord
If PassW = "LEVEL1" Then
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Sheet.Unprotect
Next
MsgBox "Вы получили полный доступ"
ElseIf PassW = "LEVEL2" Then
ActiveWorkbook.Worksheets(1).Visible = True
ActiveWorkbook.Worksheets(1).Unprotect
MsgBox "Вы получили полный доступ к листу1"
ElseIf PassW = "LEVEL3" Then
ActiveWorkbook.Worksheets(1).Visible = True
MsgBox " Вы получили доступ на чтение к листу1"
Else
MsgBox "Пароль неверен"
End If
End Sub
Function GetPassWord()
GetPassWord = LCase(InputBox("ВВЕДИ ПАРОЛЬ: ", "PassWord"))
End Function
196
Варианты индивидуальных заданий
1. LEVEL1 – все три листа видимы, но защищены от записи, LEVEL2 – все три
листа видимы и доступны для записи, LEVEL3 – видим, но защищен от записи
только 3 лист
2. LEVEL1 – лист 1 и лист 2 видимы, но защищены от записи, LEVEL2 – лист 1
и лист 2 видимы и доступны для записи, LEVEL3 – все три листа видимы, но
доступен для записи только лист 3
3. LEVEL1 – только лист 1 виден, но защищен от записи, LEVEL2 – только
лист 2 виден, но защищен от записи, LEVEL3 – видимы все 3 листа, но доступен для
записи только 3 лист
4. LEVEL1 – только лист 2 виден, но защищен от записи, LEVEL2 – только
лист 2 виден, и доступен для записи, LEVEL3 – видимы все 3 листа, но доступен
для записи только 1 лист
5. LEVEL1 – все три листа видимы, но доступны для записи только лист 1 и
лист 2, LEVEL2 – видимы только лист 2 и лист 3 и доступны для записи, LEVEL3 –
видим, но защищен от записи только 3 лист
6. LEVEL1 – все три листа видимы, но доступен для записи только лист 3,
LEVEL2 – видимы и доступны для записи лист 1 и лист 2, LEVEL3 – видим, но
защищен от записи только 3 лист
7. LEVEL1 – все три листа видимы и доступны для записи, LEVEL2 – все три
листа видимы, но защищены от записи, LEVEL3 – видим, но защищен от записи
только 3 лист
8. LEVEL1 – все три листа видимы, защищен от записи только лист 1, LEVEL2
– все три листа видимы, защищен от записи только лист 2, LEVEL3 – видим и
доступен для записи только лист 3
9. LEVEL1 – только лист 2 виден, но защищен от записи, LEVEL2 – только
лист 3 виден, но защищен от записи, LEVEL3 – видимы все 3 листа, но доступен для
записи только 1 лист
10. LEVEL1 – лист 2 и лист 3 видимы, но защищены от записи, LEVEL2 – лист 2
и лист 3 видимы и доступны для записи, LEVEL3 – все три листа видимы, но
доступен для записи только лист 2
11. LEVEL1 – все три листа видимы, но доступны для записи только лист 3 и
лист 2, LEVEL2 – видимы только лист 1 и лист 3 и доступны для записи, LEVEL3 –
видим, но защищен от записи только 2 лист
12. LEVEL1 – только лист 3 виден, но защищен от записи, LEVEL2 – только
лист 1 виден, и доступен для записи, LEVEL3 – видимы все 3 листа, но доступен
для записи только 3 лист
13. LEVEL1 – все три листа видимы, но доступен для записи только лист 1,
LEVEL2 – видимы и доступны для записи лист 1 и лист 3, LEVEL3 – видим и
доступен для записи только 3 лист
14. LEVEL1 – видим и доступен для записи только лист 1, LEVEL2 – видим и
доступен для записи только лист 2, LEVEL3 – видим и защищен от записи только 3
лист
15. LEVEL1 – видимы листы 1 и 2, доступен для записи только лист 1, LEVEL2
– видимы листы 1 и 2, доступен для записи только лист 2, LEVEL3 – видим и
защищен от записи только 3 лист
197
16. LEVEL1 – лист 2 и лист 3 видимы, но защищены от записи, LEVEL2 – лист 2
и лист 3 видимы и доступны для записи, LEVEL3 – все три листа видимы, но
доступен для записи только лист 2
17. LEVEL1 – все три листа видимы, но доступны для записи только лист 3 и
лист 2, LEVEL2 – видимы только лист 1 и лист 3 и доступны для записи, LEVEL3 –
видим, но защищен от записи только 2 лист
18. LEVEL1 – только лист 3 виден, но защищен от записи, LEVEL2 – только
лист 1 виден, и доступен для записи, LEVEL3 – видимы все 3 листа, но доступен
для записи только 3 лист
19. LEVEL1 – все три листа видимы, но доступен для записи только лист 1,
LEVEL2 – видимы и доступны для записи лист 1 и лист 3, LEVEL3 – видим и
доступен для записи только 3 лист
20. LEVEL1 – видим и доступен для записи только лист 1, LEVEL2 – видим и
доступен для записи только лист 2, LEVEL3 – видим и защищен от записи только 3
лист
21. LEVEL1 – видимы листы 1 и 2, доступен для записи только лист 1, LEVEL2
– видимы листы 1 и 2, доступен для записи только лист 2, LEVEL3 – видим и
защищен от записи только 3 лист
22. LEVEL1 – только лист 3 виден, но защищен от записи, LEVEL2 – только
лист 1 виден и доступен для записи, LEVEL3 – видимы все 3 листа, но доступен для
записи только 3 лист
23. LEVEL1 – все три листа видимы, но доступен для записи только лист 1,
LEVEL2 – видимы и доступны для записи лист 1 и лист 3, LEVEL3 – видим и
доступен для записи только 3 лист
24. LEVEL1 – видим и доступен для записи только лист 1, LEVEL2 – видим и
доступен для записи только лист 2, LEVEL3 – видим и защищен от записи только 3
лист
25. LEVEL1 – видимы листы 1 и 2, доступен для записи только лист 1, LEVEL2
– видимы листы 1 и 2, доступен для записи только лист 2, LEVEL3 – видим и
защищен от записи только 3 лист
26. LEVEL1 – все три листа видимы и доступны для записи, LEVEL2 – все три
листа видимы но защищены от записи, LEVEL3 – видим но защищен от записи
только 3 лист
27. LEVEL1 – все три листа видимы, защищен от записи только лист 1, LEVEL2
– все три листа видимы, защищен от записи только лист 2, LEVEL3 – видим и
доступен для записи только лист 3
28. LEVEL1 – только лист 2 виден, но защищен от записи, LEVEL2 – только
лист 3 виден, но защищен от записи, LEVEL3 – видимы все 3 листа, но доступен для
записи только 1 лист
29. LEVEL1 – лист 2 и лист 3 видимы, но защищены от записи, LEVEL2 – лист 2
и лист 3 видимы и доступны для записи, LEVEL3 – все три листа видимы, но
доступен для записи только лист 2
30. LEVEL1 – все три листа видимы, но доступны для записи только лист 3 и
лист 2, LEVEL2 – видимы только лист 1 и лист 3 и доступны для записи, LEVEL3 –
видим, но защищен от записи только 2 лист
198
Контрольные вопросы
1. Какие управляющие структуры для разветвления программ VBA Вы знаете?
2. Для чего предназначена структура ELSEIF?
3. Чем отличается структура IF от структуры SELECT CASE?
4. Какой вид условия можно применять после служебного слова IF?
5. Можно ли делать вложенные структуры IF (SELECT CASE)?
П3.11. Лабораторная работа №11. Циклы на VBA
Цель работы: научиться применять циклы FOR-NEXT, WHILE-WEND, DO-
LOOP, FOR-EACH на примере инженерного расчета разгазирования пластовой
нефти.
Порядок работы
Занятие 1 (Уровень А)
1. На листе 1 набрать справочную информацию по составу пластовой нефти.
Столбец 1 – название компонента нефти, столбец 2 – химическая формула, столбец
3 – молекулярная масса по таблице Менделеева (M
i
), первые 2 строки использовать
для заголовков столбцов. Пример окна приведен на рис. П5.18 в Приложении 5.
2. В столбце 4 набрать состав пластовой нефти в % мольных C
i
, в ячейках
A15,A17 – набрать исходное количество пластовой нефти (m) и коэффициент
пересчета тонн в баррели (для заданной Вам нефти). Для контроля под столбцами
поместить сумму элементов (сумма концентраций компонентов должна быть 100%).
5 столбец задать через формулу Excel как произведение 4 столбца на 3 столбец.
3. Поместить на лист 1 кнопки «Расчет» и «Очистка». Подготовить заголовки
для всех расчетных столбцов и ячеек на листе. Сохранить файл.
Занятие 2 (Уровень А)
4. По заданным расчетным формулам набрать пример программы перерасчета
единиц измерения состава пластовой нефти из мольных % (
C
i
) в массовые % (G
i
) и в
количество молей (
N
i
). Также набрать программу расчета массы каждого
компонента (
m
i
), количества товарной нефти Kn (жидкая фаза пластовой нефти при
н.у.) в тоннах и баррелях, количества нефтяного газа
Kg (углеводороды из газовой
фазы пластовой нефти при н.у.) и количества балластного газа (
Kb) в тоннах и
кубометрах.
5. Отладить программу расчета и очистки по шагам и по кнопкам. Результаты
проверить по закону сохранения массы (сумма всех компонентов на каждом шаге
должна быть точно равна исходной заданной массе). Пример такого окна приведен
на рис. П5.19 в Приложении 5. Значения, показываемые в диалоговом окне во время
расчета (8 цикл) должны соответствовать столбцу
H.
199
Занятие 3 (Уровень А)
6. Заменить в примере циклы FOR-NEXT на циклы, указанные в
индивидуальном задании и добиться того же результата. В отчете привести все
внесенные изменения в программу.
(Уровень В)
7. Дополнить программу расчета (и очистки) одним из заданных
преподавателем циклов для заполнения столбца I (газ нефтяной), столбца J (нефть
товарная) или столбца K (газ балластный). Пример окна приведен на рис. П5.20 в
Приложении 5.
Расчетные формулы
100*
*
*
)1(
1
∑
=
=
n
i
ii
ii
i
CM
CM
G
100/* )2(
ii
Gmm =
i
i
i
M
m
N = )3(
∑
=
=
7
3
)4(
i
ig
mK
∑
=
=
10
8
)5(
i
in
mK
∑
=
=
2
1
)6(
i
ib
mK
Пример программы с использованием цикла FOR-NEXT
Option Base 1
Const kk = 10 ' количество компонент пластовой нефти
Dim C(kk), N(kk), G(kk), M(kk), Mn(kk), Kg, Kn, Kb As Double
Private Sub CommandButton1_Click()
Call RASCHET
End Sub
Private Sub CommandButton2_Click()
Call OCHISTKA
End Sub
Sub RASCHET()
‘---------------------------считываем с листа исходные данные
Mneft = Worksheets(1).Range("A15").Value
200