Введение в информатику. Хамухин А.А. - 194 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

193
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
D
Z
TRUE
TRUE
TRUE
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

Страницы