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