Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'OPERADOR LÓGICO AND
Dim resultado As Boolean 'Creamos la variable resultado de tipo Booleana,o cierto o falso.
'El operador AND nos devuelve True cuando todas las opciones son correctas.
resultado = (2 = 2) And (3 = 3) 'Como las dos opciones son correctas nos devuelve True ya que dos es igual a 2 y 3 a 3.
MsgBox(resultado)
resultado = (2 = 2) And (4 = 3)
MsgBox(resultado)
resultado = (2 = 4) And (3 = 3)
MsgBox(resultado)
resultado = (2 = 3) And (3 = 4)
MsgBox(resultado)
'--------------------------------------------------------------------------------------------------------------------------------------------
'OPERADOR LÓGICO OR
Dim resultado_or As Boolean
'El Operador OR nos devuelve True siempre que una de las opciones sea verdadera.
resultado_or = (2 = 2) Or (3 = 3)
MsgBox(resultado_or)
resultado_or = (2 = 2) Or (4 = 3)
MsgBox(resultado_or)
resultado_or = (2 = 4) Or (3 = 3)
MsgBox(resultado_or)
resultado_or = (2 = 3) Or (3 = 4)
MsgBox(resultado_or)
'-------------------------------------------------------------------------------------------------------------------------------------------------------
'OPERADOR LÓGICO NOT
Dim resultado_not As Boolean
'El operador lógico NOT nos devuelve el contrario,si la opcion es falsa nos devuelve un TRUE.
resultado = Not (3 = 3)
MsgBox(resultado_not)
resultado_not = Not (2 2)
MsgBox(resultado_not)
'-------------------------------------------------------------------------------------------------------------------------------------------------------
'COMBINACIÓN DE AND Y OR
Dim resultado_comb As Boolean
resultado_comb = ((1 = 1) And (2 = 1)) Or (3 = 3) 'Nos devolvería TRUE.
MsgBox(resultado_comb)
End Sub
End Class

Relacionados