Rem vero OR vero TRUE se almeno una condizione vera
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = -10
y = 20
Lista.AddItem (x & q & y)
Lista.AddItem (" vero se almeno una condizione vera")
Lista.AddItem (" se segni discordi è vero , se concordi è falso")
If verificaOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = -10
y = -20
Lista.AddItem (x & q & y)
If verificaOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub
Public Function verificaOR(x As Integer, y As Integer)
If x > 0 Or y > 0 Then
verificaOR = True
Else
verificaOR = False
End If
End Function
Private Sub UserForm_Click()
End Sub
