SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: EMHJ en Miércoles 2 de Mayo de 2007, 17:21

Título: Visual Basic
Publicado por: EMHJ en Miércoles 2 de Mayo de 2007, 17:21

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

Título: Re: Visual Basic
Publicado por: AnioN en Miércoles 2 de Mayo de 2007, 17:42

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.

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