IF ELSE VB.Net

En este tutorial les enseñaré a como usar el IF ELSE, esta sentencia es una de las mas usadas y una que un programador debe de saberse a la perfección, bueno pues comencemos

(Información basada en la pagina de MSDN de Microsoft)

If condition [ Then ]
    [ statements ]
[ ElseIf elseifcondition [ Then ]
    [ elseifstatements ] ]
[ Else
    [ elsestatements ] ]
End If
-or-
If condition Then [ statements ] [ Else [ elsestatements ] ]

Partes que conforman el IF ELSE

condition (Condición) :
Obligatorio. Expresión. Se debe evaluar como verdadero o falso, o un tipo de datos que es implícitamente convertible a Boolean, es la condición a realizar en nuestra sentencia.
 Then(Entonces) :
Se requiere en la forma de una sola línea, opcional en forma de varias líneas, éste nos servirá para decirle al programa que si se realiza dicha condición "Entonces" realizará lo que esté despues de este código.
 statements (Declaraciones) :
Opcional. Una o más instrucciones siguientes If ... Then que se ejecutan si la condición se evalúa como True, aquí iran las declaraciones o lo que querramos que se realice si la sentencia resulta ser verdadera.
 elseifcondition (Condición ELSEIF) :
Obligatorio si ElseIf está presente. Expresión. Se debe evaluar como verdadero o falso, o un tipo de datos que es implícitamente convertible a Boolean, esta sentencia es sólo un complemento que podemos agregar a nuestro código diciendo que si se realiza una condicion dentro de la misma se realizará otra condición por ejemplo:
Si tienes una mascota y si ésta mascota es un perro entonces.
 elseifstatements (Declaraciones ELSEIF) :
Opcional. Una o más instrucciones siguientes ElseIf ... Then que se ejecutan si elseifcondition se evalúa como True, esto nos da a conocer de que si la sentencia ELSEIF resulta ser verdadera o TRUE en ingles entonces realizará una serie de cosas, pero estas declaraciones no son obligatorias si queremos podemos dejar en blanco dichas declaraciones.
 elsestatements(Declaraciones ELSE) :
Opcional. Una o más instrucciones que se ejecutan si ninguna condición o la expresión anterior elseifcondition se evalúa como True, este nos indica que si no se cumplió nada de lo anterior entonces realizará lo que esté despues de esta linea de código.
 End If
Termina el bloque If ... Then ... Else, mejor dicho finaliza toda la sentencia IF ELSE y derivados.

Bueno una vez que sepamos esta información tan corta y sencilla de entender procederemos a hacer un ejemplo de dicho if else en Visual .Net (VB.Net).
Nuestro ejemplo que haremos en este tutorial tratará de hacer que el programa nos diga si un número es par o impar, bueno este ejemplo lo puse gracias a un amigo que me planteó el problema y como es principiante no sabía por eso decidí hacer el IF ELSE con este ejemplo.
Bueno comencemos...
Como anteriormente ya hemos aprendido a como crear un proyecto de Visual Basic ya no tendremos tantos problemas, bueno ahora lo que tenemos que hacer es asignarle un nombre a nuestro proyecto en mi caso le colocaré el nombre de "IF ELSE", pero ustedes pongan el que quieran, una vez que ya tengamos creado el proyecto y que ya tengamos la pantalla en donde está el foemulario haremos lo siguiente:  
1.- Agregamos un botón a nuestro formulario.  
2.- Damos doble clic sobre el botón para redireccionarnos en la vista de código.  
3.- Declararemos una variable llamada (Num1) de la siguiente manera :

Dim Num1 as Integer

De esta manera le estamos diciendo al programa que cree una variable llamada Num1 y que sea del tipo numerica (Integer).
4.- Ahora colocaremos todo éste código debajo del anterior:

        Num1 = 3 'Le decimos al programa que el valor del Num1 será (2)
        If (Num1 / 2) = Int((Num1 / 2)) Then ' Se hace la verificación si se puede dividir el numero entre sí
            MessageBox.Show("El número es par") 'Mandamos un mensaje diciendo que es par
        Else ' Si no se cumple la condición realiza lo siguiente
            MessageBox.Show("El número es impar") 'Mandamos un mensaje diciendo que es impar
        End If 'Terminamos la sentencia IF ELSE

5.- Bueno una vez que tengamos claro esto así es como nos debe de quedar todo el código fuente del programa de visual basic.

 
Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Num1 As Integer
        Num1 = 3
        If (Num1 / 2) = Int((Num1 / 2)) Then
            MessageBox.Show("El número es par")
        Else
            MessageBox.Show("El número es impar")
        End If
    End Sub
End Class

Bueno ahora que ya sabemos hacer este tipo de IF vamos a ver como le hacemos con un IF dentro de otro IF.
Ahora cambiaremos el problema el problema será el siguiente:
Problema:
Hacer un programa que verifique si un animal es un gato y si es gato que mande un mensaje en pantalla diciendo el resultado y si no es gato que mande otro mensaje.
Para comenzar así como lo de hace un momento haremos los siguientes pasos :
1.- Agregamos un botón a nuestro formulario.  
2.- Damos doble clic sobre el botón para redireccionarnos en la vista de código.
3.- Declaramos la variable gato y la variable raza de la siguiente manera:

Dim Gato, Raza as String

De esta manera le estamos diciendo al programa que cree dos variables, una llamada Gato y una llamada Raza y las dos del tipo de Texto o String.
4.- Ahora colocaremos todo éste código debajo del anterior:

Gato = "Gary"
        Raza = "Quien sabe"
        If (Gato = "Gary") Then
            If Raza = "Quien sabe" Then
                MessageBox.Show("El gato es " & Gato & " de la raza " & Raza)
            ElseIf Raza = "Callejera" Then
                MessageBox.Show("El gato es " & Gato & " de la raza " & Raza)
            End If
        Else
            MessageBox.Show("No existe dicho gato")
        End If

5.- Bueno una vez que tengamos claro esto así es como nos debe de quedar todo el código fuente del programa de visual basic con los dos ejemplos que ya hemos creado.

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Num1 As Integer
        Num1 = 3
        If (Num1 / 2) = Int((Num1 / 2)) Then
            MessageBox.Show("El número es par")
        Else
            MessageBox.Show("El número es impar")
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim Gato, Raza As String
        Gato = "Gary"
        Raza = "Quien sabe"
        If (Gato = "Gary") Then
            If Raza = "Quien sabe" Then
                MessageBox.Show("El gato es " & Gato & " de la raza " & Raza)
            ElseIf Raza = "Callejera" Then
                MessageBox.Show("El gato es " & Gato & " de la raza " & Raza)
            End If
        Else
            MessageBox.Show("No existe dicho gato")
        End If
    End Sub
End Class

Buenoya que tenemos esto nos daremos cuenta que hay IF´s dentro de otros IF´s en el cual podemos jugar con el valor de las variables gato y raza y se nos mandarán distintos mensajes esto queda de tarea para que analicen.
Bueno espero que les haya gustado este tutorial y hasta la proxima, no olviden dejar sus comentarios de agradecimientos y si les gusto denle like o suscribanse que no cuesta nada o si quieren algo más para mejorar los tutoriales digánlo para que yo vea que puedo hacer por ustedes.