jueves, 20 de marzo de 2008

Select Case

Tenemos la posibilidad de emplear alternativamente la instrucciones SELECT CASE por los bloques "IF...THEN..ENDIF" .


Sub cases()

Dim ventas As Integer
Dim totales As Integer

ventas = 50

Select Case ventas 'casos para ventas

Case Is = 30 'si es 30

totales = 30 * 12 'calcular

Case Is = 40 'si es 40

totales = 40 * 13 'calcular

Case Is = 50 'si es 50

totales = 50 * 14 'calcular

Case Else 'caso contrario

totales = 60 * 25 'calcular

End Select


MsgBox totales 'mostrar totales


End Sub