A continuación les muestro un simple ejemplo que utiliza dos For anidades para representar las tablas de multiplicar desde el uno hasta el diez.

Creá un nuevo formulario y copia el siguiente código en el evento load.

[Code lang="vbnet"]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tablas As New TextBox
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add(tablas)
tablas.Text = “T A B L A S” & vbCrLf
tablas.Text &= “==========” & vbCrLf & vbCrLf

For i As Integer = 1 To 10
tablas.Text &= String.Format(“Tabla del {0}”, i) & vbCrLf
tablas.Text &= “——————–” & vbCrLf
For a As Integer = 1 To 10
tablas.Text &= i.ToString & ” x ” & a.ToString & ” = ” & (i * a).ToString & vbCrLf
Next
tablas.Text &= vbCrLf
Next
End Sub

[/Code]

Ahora solo resta ejecutar el programa para que muestre el resultado en el formulario.

Dim i As Integer

For i = 1 To 10
    MsgBox("Repetición Nro: " & i)
Next

Supogamos que tenemos que realizar una tarea distinta deacuerdo al tipo de comprobante que se está procesando (factura, remito, nota de crédito, etc).

'El dato tipo de comprobante lo tomo de un
'comboBox llamado comboComprobante

Select Case comboComprobante.Text
    Case "Factura"
        MsgBox("Procesar Factura")
    Case "Remito"
        MsgBox("Procesar Remito")
    Case "Nota de Crédito"
        MsgBox("Procesar Nota de Crédito")
    Case "Nota de Débito"
        MsgBox("Procesar Nota de Débito")
    Case Else
        MsgBox("No procesar nada")
End Select

Otro buen ejemplo sería una function que reciba como parámetro el numero de mes y nos devuelva un string con el nombre

[Code lang="vbnet"]
Function nombreMes(ByVal numeroMes As Integer) As String
Dim mesSeleccionado As String = String.Empty
Select Case numeroMes
Case 1
mesSeleccionado = “Enero”
Case 2
mesSeleccionado = “Febrero”
Case 3
mesSeleccionado = “Marzo”
Case 4
mesSeleccionado = “Abril”
Case 5
mesSeleccionado = “Mayo”
Case 6
mesSeleccionado = “Junio”
Case 7
mesSeleccionado = “Julio”
Case 8
mesSeleccionado = “Agosto”
Case 9
mesSeleccionado = “Septiembre”
Case 10
mesSeleccionado = “Octubre”
Case 11
mesSeleccionado = “Noviembre”
Case 12
mesSeleccionado = “Diciembre”
End Select
Return mesSeleccionado
End Function
[/Code]

If <comprabación lógica> Then
         [Acciones a realizarse si se cumple la condición]
Else
         [Acciones a realizarse sin no se cumple la condición]
End If

en el siguiente ejemplo suponemos que nos pasaron la edad de una persona en la variable vEdad y debemos informar si esta persona es mayor de edad (21 años).

If vEdad >= 21 Then
MsgBox("Es mayor de edad")
Else
MsgBox("Es menor de edad")
End If

para la asignación de valores a una variable se puede utilizar la instrucción iif la cual se escribe en una sola línea:

iif(<comprobación lógica>, Acción si se cumple, Acción si no se cumple)

supongamos que tengo un textbox llamado txtCantidad de donde tomo un valor numerico y se lo asigno a una variable de tipo integer llamada vCantidad, pero si el textBox está vacio la asignación dará error, entonces lo podemos solucionar con un iif.

Dim vCantidad As Integer
vCantidad = IIf(txtCantidad.Text = String.Empty, 0, txtCantidad.Text)

Tambien podemos usa if’s anidados y asi romper la barrera de las dos opciones para decidir. Supongamos que tenemos que utilizar un semáfono (rojo, amarillo o verde) para resaltar un porcentaje de cumplimiento. Las opciones son tres y un if solo permite dos (verdadero o falso), usando if’s anidades podemos afrontar este y muchos otros problemas.

'Tenemos un formulario (Form1) con un
'textbox (textbox1) el cual contiene un
'valor que representa el porcentaje de
'cumplimiento

'Si es mayor igual a 100 el color es verde
'si está entre 80 y 100 el color es amarillo
'y si esta debajo de 80 es rojo

If TextBox1.Text >= 100 Then
TextBox1.BackColor = Color.Green
Else
If TextBox1.Text >= 80 Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.Red
End If
End If

también podemos usar elseif como se muestra a continuación

If TextBox1.Text >= 100 Then
TextBox1.BackColor = Color.Green
ElseIf TextBox1.Text >= 80 Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.Red
End If