Sentencias

INSTITUTO UNIVERSITARIO POLICTÉCNICO
“SANTIAGO MARIÑO”
EXTENSIÓN MARACAY

Asignatura. Lenguaje de Programación II.
Prof. Luís E. Aponte I.
Octubre de 2008

La estructura Select Case nospermite evitar el uso de
varios If. Esta estructura viene a ampliar la funcionalidad de la

estructura IF

FORMATO

Select Case
(Variable)
Case(Valor1)
----------------------------------Case(Valor2)--------------------------------Case(Valor3)
--------------------------------Case
-------------------------------End Select

Else

Private Sub CmdMostrar_Click()
N = Val(TbN.Text)
Select Case N
Case 1MsgBox ("1")
Case 2
MsgBox ("dos")
Case Else
MsgBox ("Nºdesconocido)
End Select
End Sub

EJEMPLO 1 SELECT CASE

Private Sub CmdMostrar_Click()
N = Val(TbN.Text)
Select Case N
Case 1
TbO.Text = "uno"
Case2
TbO.Text = "dos"
Case 3
TbO.Text = "tres"
Case Else
TbO.Text = "Nº desconocido"
End Select
End Sub

EJEMPLO 2 SELECT CASE

Son sentencias que ayudan a repetir una porción de
un algoritmo un ciertonúmero de veces.
Permiten resolver problemas simples a muy complejos.

Formato:

Casos.

For Variable=Valor Inicial to Valor Final (Incremento o Decremento)
Print I
Next

1.El ciclo comienza en uno yse incrementa de uno en uno, caso más general.
2.El valor inicial puede ser diferente de uno
Ejemplo:
DIM X As Integer
For X= 5 To 28
Label4.caption= X
Next X

Casos.
3. El valor inicial puede sernegativo
Ejemplo:
DIM X As Integer
For X= -5 To 18
Label4.caption= X
Next X
4. Los incrementos pueden ser diferentes al de uno en uno
Ejemplo:
DIM X As Integer
For X= 1 To 50 Step 4
Label4.caption= XNext X

Casos.
5. Incluso puede ser decremento (El Valor inicial de la variable debe ser mayor
que el valor final)
Ejemplo:
DIM X As Integer
For X= 100 To 20 Step -5
Label4.caption= X
Next X

Ej.Private Sub btnmostrar_Click()
For x = Val(I.Text) To Val(F.Text)
Step Val(S.Text)
Print x
Next
End Sub
Private Sub btnborrar_Click()
Cls
End Sub

La propiedad Caption de cada uno de los...