Estructura For/Next

Dim i As Integer

For i = 1 To 10
    MsgBox("Repetición Nro: " & i)
Next

8 Responses to “Estructura For/Next”

1. zynid3as dice:

   03/06/2009 a las 3:43 pm

   Hola, eso es si deseas ir aumentando
   y para ir disminuyendo cómo se hace???

   Responder
   • Eliseo dice:

     03/06/2009 a las 5:39 pm

     Para hacerlo decreciente utilizas la cláusula step (paso) y le pasas un parámetro negativo. Como en este ejemplo:

     For i as Integer = 10 To 1 Step -1
     MsgBox(“Repetición Nro: ” & i)
     Next

     Responder
2. ruben aaron gonzalez dice:

   28/08/2009 a las 1:40 pm

   como se saca el factorial de un numero con la estructura for next en visual basic?

   Responder
   • Gransensei dice:

     25/01/2011 a las 9:29 pm

     crea la interfas y en btncalcular has click doble
     el codigo es

     dim x as integer, F as integer, N as integer
     dim Acum=1 as integer
     N=cint(txtN.text)
     for X=2 to N step X+1
     F=Acum+X
     Acu=F
     Next
     txtN.text=F

     Pruebalo si te corre bien

     Responder
3. nando dice:

   15/09/2009 a las 2:16 am

   ajaj los jodist verdad? nadie ayuda cuando se trata de estas cosas.. si supiera te lo dirria.. es mejor aprender por su cuenta.. el egoismo informatico es lo q mas vas a encontrar.. la confianza?? en uno mismo papa

   Responder
4. tavares dice:

   06/12/2009 a las 5:36 am

   oyes y para hacer un for que el limite sea cada vez que de un click o que me recomiendas

   Responder
5. Francis (CR) dice:

   13/10/2010 a las 7:00 pm

   Dema bena tu página… T felicito! Es d muxa ayuda!!!

   Responder
6. noriega dice:

   19/06/2011 a las 2:37 am

   Estoy aprendiendo a programar tengo este programa y necesito que cuando ingrese datos no me los duplique que me diga q ya existe y que me deje en blanco los cambos para ingresar otro

   Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   If TextBox1.Text = “” And TextBox2.Text = “” Then
   MessageBox.Show(” Codigo Y Nombre No puede ir en Blanco”)
   End If

   ListView1.Items.Add(TextBox1.Text).SubItems.Add(TextBox2.Text)

   For I = 0 To ListView1.Items.Count – 1

   If TextBox1.Text = ListView1.Items(I).Text Then
   MessageBox.Show(” Registro Ya existe”)
   End If

   Next

   End Sub
   End Class

   Responder