|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
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 |
