Програмування лінійних обчислювальних процесів.
Формулювання
задачі. Скласти
підпрограму розв’язування такої
задачі.
Дано: R-
радіус основи прямого кругового циліндра;
H-
радіус
основи прямого кругового циліндра .
Обчислити: площу бічної поверхні прямого
кругового циліндра
площу повної поверхні прямого кругового
циліндра
об’єм прямого кругового циліндра
Нижче наведені форма та програмний код розв’язування даної задачі.
Private Sub CommandButton1_Click()
'Завдання. Дано радіус основи та висоту прямого
'кругового циліндра.
'Необхідно обчислити:
'Площу бічної поверхні циліндра SB: SB=2*PI*R*H;
'Площу повної поверхні циліндра SP: SP=SB+2*PI*R^2;
'Об'єм циліндра V: V=PI*R^2*H.
Const PI As Single = 3.14159
Dim R, h, SB, SP, V As Single
R = Val(InputBox("Введіть радіус основи циліндра R!"))
h = Val(InputBox("Введіть висоту циліндра H!"))
SB = 2 * PI * R * h
SP = SB + 2 * PI * R ^ 2
V = PI * R ^ 2 * h
MsgBox "Площа бічної поверхні циліндра SB: SB= " & _
Format(SB, "0000.00")
MsgBox "Площа повної поверхні циліндра SP: SP=" & _
Format(SP, "0000.00")
MsgBox "Об'єм циліндра V: V=" & Format(V, "0000.00")
TextBox1.Text = TextBox1.Text _
+ "Радіус основи прямого кругового циліндра R=" + _
Format(R, "0000.00") + vbCr
TextBox1.Text = TextBox1.Text _
+ "Висота прямого кругового циліндра H" + _
Format(h, "0000.00") + vbCr
TextBox2.Text = TextBox2.Text _
+ "Площа бічної поверхні циліндра SB: SB=" + _
Format(SB, "0000.00") + vbCr
TextBox2.Text = TextBox2.Text _
+ "Площа повної поверхні циліндра SP: SP=" + _
Format(SP, "0000.00") + vbCr
TextBox2.Text = TextBox2.Text _
+ "Об'єм циліндра V: V=" + Format(V, "0000.00") + vbCr
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub CommandButton3_Click()
End
End Sub
Логічні операції та логічні вирази.
У мові VBA використовують такі логічні операції (табл.7.2):
Таблиця 14.2. Логічні операції мови VBA
Функція |
Назва функції |
Not |
Заперечення або інверсія |
And |
Логічне „І” або множення |
Or |
Логічне „АБО” або додавання |
Хоr |
Виключне логічне „АБО” |
Imp |
Імплікація |
Eqv |
Еквівалентність |
Результати виконання логічних операцій наведені у табл.14.3.
Таблиця 14.3. Таблиця істинності для логічних операцій (Т-true, F-false)
Значення аргументів А та В |
Значення логічних функцій |
|||||||
А |
В |
Not А |
А And В |
А Or В |
А Хоr В |
А Imp В |
А Eqv В |
|
T |
T |
F |
T |
T |
F |
T |
T |
|
F |
T |
T |
F |
T |
T |
T |
F |
|
T |
F |
F |
F |
T |
T |
F |
F |
|
F |
F |
T |
F |
F |
F |
T |
T |
|
Операція Not повертає логічну величину, протилежну даній.
Операція And повертає True лише тоді, коли обидва операнди дорівнюютьTrue.
Операція Or повертає False лише тоді, коли обидва операнди дорівнюють False.
Операція Хоr повертає True, якщо один із операндів дорівнює True, але не обидва одночасно.
Операція Eqv повертає True, якщо обидва операнди мають однакові значення.
Операція Imp повертає значення False лише тоді, коли перший операнд має значення True, а другий False.