Bucles
Dim sum, n As Integer
Private Sub Form_Activate() Private Sub Form_Activate ()
List1.AddItem "n" & vbTab & "sum" List1.AddItem "n" & vbTab & "suma"
Do Hacer
n = n +1 n = n + 1
Sum = Sum + n Suma = Suma + n
List1.AddItem n & vbTab & Sum List1.AddItem n & vbTab & Sum
If n = 100 Then Si n = 100 A continuación,
Exit Do Exit Do
End If End IfLoop Bucle
End Sub End Sub
Explanation Explicación
In the above example, we compute the summation of 1+2+3+4+……+100. En el ejemplo anterior, se calcula la suma de 1 +2 +3 +4 + ... ... 100.In the design stage, you need to insert a ListBox into the form for displaying the output, named List1. En la etapa de diseño, es necesario insertar un ListBox en el formulario para la visualización dela salida
If
Private Sub Form_Activate ()
For n=1 to 10 Para n = 1 a 10
If n>6 then Si n> 6, entonces
Exit For Exit For
End If End If
Else Más
Print n Print n
End If End IfEnd Sub End Sub
Explicación
Para el contador = 1000 a 5 pasos -5
counter=counter-10 contador = contador-10
Next Próximo
*Notice that increment can be negative * Tenga en cuenta que elincremento puede ser negativo
while
VB
Copiar
Dim counter As Integer = 0
While counter < 20
counter += 1
' Insert code touse current value of counter.
End While
MsgBox("While loop ran " & CStr(counter) & " times")
Explicación
Este ejemplo utiliza la estructura While...EndWhile para incrementar una variable de contador. Las instrucciones del bucle se ejecutan en tanto la condición dé como resultado True.
For
Ejemplo:
"digite el numero de personas"n)for(i=0;i<n;i++)
se reìte el numero que digitaste.
Explicación
Como se observa, instrucciones de ciclo, si ocuparan que se declaren variables de control de ciclo, ya sea de tipo byte,integer o long.
Casos...
Regístrate para leer el documento completo.