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
Publicar un comentario