Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
En el código anterior, si el valor de Color es yellow el código lo comparará<br />
con las primeras tres líneas Case sin <strong>en</strong>contrar una coincid<strong>en</strong>cia. Cuando se<br />
llega a la línea Case Else, se ejecuta la sigui<strong>en</strong>te línea de código antes de pasar<br />
a End Select.<br />
Para utilizar la instrucción Select Case<br />
En el m<strong>en</strong>ú Archivo, elija Nuevo proyecto.<br />
En el cuadro de diálogo Nuevo proyecto, <strong>en</strong> el panel Plantillas, haga clic <strong>en</strong><br />
Aplicación para Windows.<br />
En el cuadro Nombre, escriba SelectCase y haga clic <strong>en</strong> Aceptar.<br />
Se abre un nuevo proyecto de formularios Windows Forms.<br />
En el Cuadro de herrami<strong>en</strong>tas, arrastre un control TextBox y un control<br />
Button al formulario.<br />
Haga doble clic <strong>en</strong> el botón para abrir el Editor de código.<br />
En el controlador de ev<strong>en</strong>tos Button1_Click, escriba el sigui<strong>en</strong>te código.<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Dim Number As Integer = CInt(Textbox1.Text)<br />
Select Case Number<br />
Case 1<br />
MsgBox("Less than 2")<br />
Case 2 To 5<br />
MsgBox("Betwe<strong>en</strong> 2 and 5")<br />
Case 6, 7, 8<br />
MsgBox("Betwe<strong>en</strong> 6 and 8")<br />
Case 9 To 10<br />
MsgBox("Greater than 8")<br />
Case Else<br />
MsgBox("Not betwe<strong>en</strong> 1 and 10")<br />
End Select<br />
Presione F5 para ejecutar el programa.<br />
En el cuadro de texto, escriba un número y haga clic <strong>en</strong> el botón.<br />
Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 54