Ejemplos de ciclo for

Ejemplos de el bucle for

Private Sub

Btnmostrar_ Click()

For=1 To 4

Print “Hola”

Next

End Sub

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

Private Sub Form1_Load

Handles MyBase.Load

        Dim Num As Integer

        Dim i As Integer

        Me.Text = "Enteros"

        Num = Val(InputBox("Introduzca un número entero comprendido entre 1 y 99", "¿Número?"))

        LabelTabla.TextAlign = ContentAlignment.MiddleCenter

        LabelTabla.Font = New Font("Arial", 10, FontStyle.Bold)

        LabelTabla.Text = "ENTEROS ENTRE " & Num & " y 100"

        For i = Num To 100

            LabelTabla.Text = LabelTabla.Text & i & " "

        Next i

    End Sub

Private Sub Form1_Load

Handles MyBase.Load

        Dim Num As Integer

        Dim i As Integer

        Me.Text = "Enteros"

        Num = Val(InputBox("Introduzca un número entero comprendido entre 1 y 99", "¿Número?"))

        LabelTabla.TextAlign = ContentAlignment.MiddleCenter

        LabelTabla.Font = New Font("Arial", 10, FontStyle.Bold)

        LabelTabla.Text = "ENTEROS ENTRE " & Num & " y 100"

        For i = Num To 100

            LabelTabla.Text = LabelTabla.Text & i & " "

        Next i

    End Sub