Editor de menus

En Visual Basic podemos crear aplicaciones que estén gobernadas a través de un menú, es decir, como los típicos programas del entorno Windows, para ello Visual Basic dispone del Editor de Menús.
Para acceder al Editor de Menús debemos pulsar en :

Menu Herramientas

Sel. Editor de Menús´

O pulsar sobre el formulario el botón derecho del mouse y seleccionar la opción `Editor de Menús´.

Estructuras de seleccion multiple

If es adecuado para comparar información en donde se necesita una o dos verificaciones. Sin embargo, si se necesitan varias, If se torna difícil de manejar. Visual Basic soporta una instrucción llamada Select Case que maneja mejor condiciones múltiples. He aquí el formato:
Select Case expresión

Case valor1
Codigo
Case valor2
CodigoCase valor3
Codigo

End Select

Select Case Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de codigos.

Ciclo do while | until

Do { While Until } condición
Codigo
Loop

Por supuesto, no podemos utilizar “While” y “Until” a la vez. En esta forma del bucle, la condición se evalúa al comienzo del mismo. En el caso de utilizar la opción “While”, el bucle se repetirá mientras que la condición sea verdadera. Podemos escribir el ejemplo anterior utilizando esta posibilidad:

Do While edad <> 0
edad = edad - 1
Loop

También podríamos haber resuelto el problema con el uso de “Until”:

Do Until edad = 0
edad = edad - 1
Loop
En este caso, el bucle se repetirá hasta que edad sea igual a cero.

La tercera forma que puede adoptar el bucle que estamos analizando es la siguiente:
Do
Codigo
Loop { While Until } condición

Como puede verse, se ha delegado la capacidad de evaluar la condición al final del bucle. Esto tiene la particularidad de permitir que el grupo de instrucciones existentes en el interior del bucle se ejecuten al menos una vez, independientemente de que la condición a evaluar sea o no verdadera.
Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop Until edad = 0

O así:

Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop While edad <> 0