viernes, 7 de septiembre de 2007

Select Case

Select Case

En este programa se clasifica podiendo mostrar una frase o palabra según el valor ingresado.

Ejercicio1:
Un programa que me muestre los tres primeros meses del año si es uno mostrar enero, si es dos mostrar febrero y si es tres mostrar marzo.

Module Module 1

Dim mes As Integer

Sub Main ( )

Console.Writeline(“ingrese mes:”)
Mes = Console.Readline

Select Case Mes

Case 1: Console.Write(“enero”)
Case 2: Console.Write(“febrero”)
Case 3: Console.Write(“marzo”)

End Select

Console.Readline( )

End Sub
End Module