4.1.10 Bubles: FOR, FOR EACH, WHILE, WEND, DO LOOP


Tarea: Investiga y representa un ejemplo de un programa donde se ocupa cada sentencia.



  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Tabla"
        T = Val(InputBox("¿Qué tabla quiere conocer?" & vbCrLf & _
"(Introduzca un número de 1 a 10)", "¿Número?"))
LabelTabla.Font = New Font("Arial", 10, FontStyle.Bold)
LabelTabla.TextAlign = ContentAlignment.MiddleCenter
LabelTabla.Text = "TABLA DEL " & T & vbCrLf & vbCrLf
        For i = 1 To 10
          LabelTabla.Text = LabelTabla.Text & T & " * " & i & " = " & T * i & vbCrLf
        Next i
    End Sub
End Class










Sub Reempl()
Dim celdaactual As Object
Dim posicion As Integer

For Each celdaactual In Selection
 posicion = InStr(celdaactual, "-")
'si el valor de posicion es mayor a cero significará que
'la celda estudiada tiene un guión como parte de sus caracteres.
If posicion > 0 Then
 Cells(celdaactual.Row, celdaactual.Column + 1).Value_
= Cells(celdaactual.Row, celdaactual.Column).Value
 Cells(celdaactual.Row, celdaactual.Column).Value = ""
 Else
 Cells(celdaactual.Row, celdaactual.Column + 1).Value = ""
 Cells(celdaactual.Row, celdaactual.Column).Value_
= Cells(celdaactual.Row, celdaactual.Column).Value
 End If
Next
End Sub





Private Sub ej_1_Click()
a = 1
While a < 5
Print a
a = a + 1
Wend
End Sub
Private Sub ej_2_Click()
a = 4
While a > 0
Print a
a = a - 1
Wend
End Sub

Comentarios

Entradas populares de este blog

4.1.7 Operadores: Aritméticos, de comparación, logísticos y cadenas: (And, Or, Xor, Not; &)-

4.1.3 Reglas básicas del Programa o Script: mayúsculas, minúscula, variables, saltos y comentarios

4.1.4 Botón de ejecución de script 4.1.5 Variables. 4.1.6 Tipos de Datos: Variant, Sub tipos