Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola,

He resuelto el problema de la siguiente forma puesto que he tenido muchos problemas utilizando While....  los bucles se me quedaban colgados.  No termino de entender la funcionalidad de la herramienta While.

La pregunta es: mejora la eficiencia, rendimiento del programa utilizando la herramienta While? como se introduciría en el codigo que he creado?

Public Class Form1
    Dim cantidadExcedida As Boolean
    Dim extracción As Integer
    Dim totalextraccion As Integer
    Dim valorLimite As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Introducir la cantidad extraida "
        valorLimite = 600

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        extracción = Val(TextBox1.Text)
        totalextraccion = totalextraccion + extracción
        Label2.Text = "Cantidad de dinero extraida total ha sido " & totalextraccion & " €"

        If totalextraccion >= valorLimite Then

            MsgBox("La cantidad de dinero extraida ha sido superior a " & valorLimite & " €")
            totalextraccion = 0

        End If
    End Sub
End Class

Hola,

Utilizo visual basic 2010 y estoy intentado obtener lo siguiente:
50
51
...
60

con el siguiente codigo:

Public Class Form1
    Dim i As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 50 To 60
            Label1.Text = i & vbCrLf

        Next
    End Sub
End Class

El resultado que me da es simplemente 60 por lo tanto únicamente refleja el último valor de i.

No entiendo la razón por la que no me registra cada valor de i

Karlos