Operadores Lógicos

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