Embed Size (px)
Citation preview
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructurasde
Control
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Condicional, IfIf condición Then
Instrucciones... (Condición Verdadera)End If
If condición ThenInstrucciones... (Condición Verdadera)
ElseInstrucciones... (Condición Falsa)
End If
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Condicional, IfIf a > b Then
mayor = aEnd If
If a > b Thenmayor = a
Elsemayor = b
End If
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Condicional, If
If a > b Thenmayor = a
ElseIf a < b thenmayor = b
Elsemayor = 0
End If
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Condicional Selectiva, Select CaseSelect Case variable
Case valor_1instrucciones...
Case valor_2instrucciones...
...Case Else
instrucciones ...End Select
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Select Case mesCase 2
If (año Mod 4 = 0) Thenmax_dia = 29
Elsemax_dia = 28
End IfCase 1, 3, 5, 7, 8, 10, 12
max_dia = 31Case 4, 6, 9, 11
max_dia = 30End Select
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Select Case mesCase “febrero”
If (año Mod 4 = 0) Thenmax_dia = 29
Elsemax_dia = 28
End IfCase “enero”, “marzo”, ...
max_dia = 31Case “abril”, “junio”, ...
max_dia = 30End Select
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Select Case notaCase 1 To 3
juicio =”Examen febrero”Case 4 To 6
Juicio = “Examen diciembre”Case Else
juicio = “Exonera el oral”End SelectMsgBox (juicio)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, For
For variable = inicio To finalInstrucciones...
Next variable
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, ForDim i, numero as IntegerFor i = 1 To 10numero *= 2
Next iMsgBox ((numero).ToString)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, For variante, incremento
distinto de 1 o decrementoFor … To final step incremento
Instrucciones...Next variable
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, ForDim i As IntegerDim par As StringFor i = 2 To 50 Step 2
par = par + “ “ + i.ToStringNext iMsgBox (par)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, While ... End While mientras que ...
While condicióninstrucciones ...
End While
Condición Falsa Condición Falsa oo VerdaderaVerdadera
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, While ... End While hacer mientras que
Dim i As IntegerDim pares As StringWhile i < 50
pares = pares + ”,“ + i.ToStringi += 2
End WhileMsgBox (pares)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do While ... Loop hacer mientras que
Do While (condición)instrucciones ...
Loop
Condición Falsa Condición Falsa oo VerdaderaVerdadera
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do While ... Loop hacer mientras que
Dim i As IntegerDim pares As StringDo While (i < 50)
pares = pares + ”,“ + i.ToStringi += 2
LoopMsgBox (pares)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do Until ... Loop hacer hasta que
Do Until (condición)instrucciones ...
Loop
Condición Verdadera Condición Verdadera oo FalsaFalsa
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do Until ... Loop hacer hasta que
Dim i As IntegerDim pares as StringDo Until (i = 50)
pares = pares+”,“+ i.ToStringi += 2
LoopMsgBox (pares)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do ... Loop While Repetir mientras que
Do instrucciones ...
Loop While condición
Las instrucciones se ejecutan al menos una vez.
Falsa Falsa oo VerdaderaVerdadera
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do ... Loop WhileDim i As IntegerDim pares as StringDo pares = pares + i.ToStringi += 2
Loop While i < 50 MsgBox (pares)
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva, Do ... Loop Until Repetir hasta que
Do instrucciones ...
Loop Until condición
Las instrucciones se ejecutan por lo menos una vez.
Verdadera Verdadera oo FalsaFalsa
Porf. Leonardo Carámbula - Programación III – EMT – I.S.B.O.
Estructuras de ControlEstructuras de Control
Repetitiva Do ... Loop Until Repetir hasta queDim i As IntegerDim pares As StringDo
pares = pares + “,” +i.ToStringi += 2
Loop Until i < 50 MsgBox pares
