hacer suma usando for vb formulario

[tinlui]

Hola a todos acabo de hacerme una cuenta aqui porque veo que si responden rapido bno como se ve en el tema lo que me pidieron es
usando el for agregar dies numeros d una caja d texto y por ultimo que lo sume y t de el resultado aqui el codigo k estoi usando pro tengo un problema que no puedo hacer k pare el for para que ingrese los siguientes numeros sino que en las diez posiciones m toma el primer numero que ingrese en la caja de texto a y todo tiene que ser usando un boton:

Dim i As Integer
Dim total As Integer = 0
Dim lista As ArrayList = New ArrayList(10)


For i = 1 To 10 Step 1
lista.Add(Val(TxtNumero.Text))


total = total + lista(i)
MsgBox("has agredado el numero " & i)
TxtNumero.Clear()
TxtNumero.Focus()
If i = 10 Then

MsgBox(total)
End If
Next i
a una cosa mas igual i el codigo no esta muy bien pro esk le he hecho varias modificaciones i la verdad ahorita ia estoy revuelto

[Aquaventus]

Hola tinlui... Parece que quieres que desarrollemos una pregunta de examen que te han propuesto... te doy la logica ya tu lo acomodas en codigo, el for no va a parar para solicitarte un numero... Bien ahora lo que debes hacer es declarar un contador

Código vb.net:

Dim contador as Integer = 0
 

y al momento de hacer click en tu boton te vaya incrementando +1 y vaya agregando el numero ingresado del textbox :

Código vb.net:

contador +=1
lista.Add(Val(txtNumero.Text))
 

Para luego en ese mismo evento ir verificando si se ah ingresado 10 numeros te haga la suma :

Código vb.net:

If contador = 10 Then
'Aqui va tu for contando cada elemento del ArrayList
End If
 

Espero haberte aclarado el panorama. Saludos!..

[tinlui]

ok gracias ya lo puse solo que el contador no avanza puse el mensaje y siempre me dice que esta en el 0 y por ende nunca entra en la condicion mira
Dim lista As ArrayList = New ArrayList(2)
Dim cont As Integer = 0
Dim i, total As Integer

lista.Add(Val(TxtNumero.Text))
MsgBox("has agredado el numero " & cont)
cont = +1
TxtNumero.Clear()
TxtNumero.Focus()
If cont = 2 Then
For i = 0 To 2 Step 1
total = total + lista(i)

Next
MsgBox(total)
End If

[Aquaventus]

Estos valores tienen que estar fuera del evento click de tu boton :
Declarados como variables global en tu formulario.

Código vb.net:

Dim lista As ArrayList = New ArrayList(9)
Dim cont As Integer = 0
Dim i, total As Integer
 

y esto dentro del evento click de tu boton :

Código vb.net:

'El contador aumenta 1
cont = cont + 1
'Se agrega al arraylist el numero
lista.Add(Val(TxtNumero.Text))
'Aqui hacer la validacion para saber si llego al numero 10
If cont = 10 Then
'recorremos el arraylist
For i = 0 To 9 Step 1
total = total + lista(i)
Next
'Una vez hecha la suma mostramos el total
MsgBox("El Suma Total es :" & total.toString())
End If
 

[tinlui]

gracias de nuevo Aquaventus