Задания / VBA / Задание_3 / Вычисление значения логического выражения

Постановка задачи:

Определить значение логического выражения:

D = (AB)&(NOT С)A

При различных значениях А, В, С (например A=0, B=0, C=1)

Форма должна иметь следующий вид:

Код программы:

Private Sub Вычислить_Click()

Dim a As Boolean

Dim b As Boolean

Dim c As Boolean

Dim d As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = (a Or b) And Not (c) Imp (a)

Text4.Text = d

'010 дает d=0,в остальных случаях d=-1(True)

End Sub