Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
MsgBox("The loop has run " & CStr(counter) & " times!")<br />
Presione F5 para ejecutar el programa.<br />
En el cuadro de texto, escriba un número y haga clic <strong>en</strong> el botón.<br />
Aparece un cuadro de m<strong>en</strong>saje que muestra el número de veces que se agregó<br />
a sí mismo el número antes de llegar a 100.<br />
En el m<strong>en</strong>ú Depurar, elija Det<strong>en</strong>er depuración para finalizar el programa.<br />
Mant<strong>en</strong>ga abierto este proyecto. Más adelante se agregarán elem<strong>en</strong>tos.<br />
Instrucción Do...Until<br />
La instrucción Do...While repite un bucle mi<strong>en</strong>tras una condición permanece<br />
True, pero a veces es posible que desee que el código se repita a sí mismo<br />
hasta que una condición se convierta True. Puede utilizar la instrucción<br />
Do...Until del sigui<strong>en</strong>te modo.<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Dim sum As Integer = 0<br />
Do Until sum >= 100<br />
sum = sum + 10<br />
Loop<br />
Este código es similar al código para la instrucción Do...While, sólo que esta<br />
vez, el código evalúa la variable sum para ver si es igual a o mayor que 100.<br />
Inténtelo<br />
Para utilizar una instrucción Do...Until<br />
Agregue el sigui<strong>en</strong>te código debajo de la línea MsgBox.<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Dim sum2 As Integer = 0<br />
Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 48