ice2286

'En el proyecto utilize 10 TextBox, un Label, y un LabelLink. Public Class frmBucle 'Aqui declaro las variables que vamos a utilizar en el proyecto. 'i y j son para los contadores de los bucles. 'msg es una variable de tipo resultado de msgbox, para saber si se presionó "si" o "no". Dim i, j As Integer Dim msg As MsgBoxResult 'En el Load del form ingrese el nombre de la subrutina Private Sub frmBucle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Ingreso() End Sub 'Ésta es la subrutina, lo único que hace es cargar en la variable i el valor que colocamos en el 'imputbox. Ese valor lo coloca en el primer label que es para que se sepa cual fué el valor que 'seleccionamos, luego lo incrementa en 1 para la cadena de textboxes. Private Sub Ingreso() i = InputBox("Instroduzca el número", "Cadena de 10 consecutivos", 0, , ) lblPrimero.Text = i i = i + 1 End Sub 'Aquí es el evento del linklabel para calcular los 10 consecutivos Private Sub lblCalcular_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblCalcular.LinkClicked 'La variable j la utilizo para contar hasta 10 que son la cantidad de números que quiero. 'con esto le digo que vaya de 1 hasta 10 For Me.j = 1 To 10 'en cada select le asigno a un textbox el valor de i Select Case j Case Is = 1 txt1.Text = i Case Is = 2 txt2.Text = i Case Is = 3 txt3.Text = i Case Is = 4 txt4.Text = i Case Is = 5 txt5.Text = i Case Is = 6 txt6.Text = i Case Is = 7 txt7.Text = i Case Is = 8 txt8.Text = i Case Is = 9 txt9.Text = i Case Is = 10 txt10.Text = i End Select 'incremento i + 1 i = i + 1 Next 'reinicio las variables i = 0 j = 0 'mensaje de cortesía para saber si quieren calcular de nuevo msg = MsgBox("Desea calcular otro número?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "10 Consecutivos" 'Aquí uso la variable de tipo resultado de msgbox, si es "si" te manda a la subrutina Ingreso para ingresar 'de nuevo un numero If msg = MsgBoxResult.Yes Then Ingreso() 'Aquí coloco a cero los textbox txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txt5.Text = "" txt6.Text = "" txt7.Text = "" txt8.Text = "" txt9.Text = "" txt10.Text = "" Else 'Si elegimos que "no" en el msgbox cierra el programa. End End If End Sub End Class