Programación General > Visual Basic 6.0 e inferiores

 Visual Basic

(1/1)

EMHJ:
Buenos Días.

Soy aprendiz principiante de visual Basic, con muchas ganas de aprender

Alguien podría ayudarme para ponerle un bucle Do While a esta rutina.

Muchas Gracias

Saludos cordiales.


Sub calcula_case()
    Dim Aero As String * 3
    Dim Valor1 As Single, Valor2 As Single, total As Single
    Valor1 = ActiveSheet.Range("C5").Value
    Valor2 = ActiveSheet.Range("D5").Value
    Aero = ActiveSheet.Range("A5").Value
   
    Select Case Aero
        Case "ACA"
            total = Valor1 + Valor2
        Case "BJX"
            total = Valor1 + Valor2
        Case "CJS"
            total = Valor1 + Valor2
        Case "CTM"
            total = Valor1 + Valor2
        Case Else
            total = 0
    End Select
    ActiveSheet.Range("F5").Value = total
End Sub

AnioN:
mmm, lee este mejor.


--- Citar ---Bucles por condición

Ejecuta las instrucciones del bucle mientras se cumple una condición

X = 0

Do While X < 1000

X = X + 1

Loop

El programa toma una variable ( X ) que previamente tuvimos la curiosidad de ponerla a cero, e incrementa su valor una unidad. Analiza si el valor de X es menor que 1000, y si es cierto, vuelve a realizar el bucle. Así hasta que X ya no sea menor que 1000. Al dejar de cumplirse que X sea menor que 1000, sale del bucle.
--- Fin de la cita ---

http://www.monografias.com/trabajos2/guiavb/guiavb.shtml

Navegación

[0] Índice de Mensajes