Programación en Visual Basic 2008

Dim counter2 As Integer = 0
Do Until sum2 >= 100
sum2 = sum2 + CInt(Textbox1.Text)
counter2 = counter2 + 1
Loop
MsgBox("The loop has run " & CStr(counter2) & " times!")
Presione F5 para ejecutar el programa.
En el cuadro de texto, escriba un número y haga clic en el botón.
Aparece un segundo cuadro de mensaje que muestra el número de veces que
se agregó el número a sí mismo antes de igualar 100 o más.
Hacer que un programa elija entre dos posibilidades: la instrucción
If...Then
En esta lección, aprenderá a utilizar la instrucción If...Then para ejecutar el
código basado en condiciones.
Los programas deben realizar diferentes acciones en respuesta a distintas
condiciones. Por ejemplo, quizá desee que el programa compruebe qué día de la
semana es y haga algo diferente dependiendo del día. La instrucción If...Then
permite evaluar una condición y ejecutar las diferentes secciones de código
basándose en los resultados de esa condición.
El siguiente ejemplo muestra cómo funciona la instrucción If...Then.
Visual Basic Express Copiar código
If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Monday Then
MsgBox("Today is Monday!")
End If
Cuando se ejecuta este código, se evalúa la condición (la parte entre If y Then).
Si la condición es true, se ejecuta la siguiente línea de código y se muestra un
cuadro de mensaje; si es false, el código pasa a la línea End If. En otras
palabras, el código estipula "Si hoy es lunes, muestre el mensaje".
Inténtelo
Para utilizar la instrucción If...Then
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 49