Curso Básico de Visual Basic
Solución de Ejercicios
Solución de los ejercicios de la Quinta
Entrega: 11/Ago/97.
por Guillermo "guille" Som
Pulsa este link para volver a la Sexta Entrega y este otro para ir a la Quinta Entrega.
He preferido poner la solución a los ejercicios en una página separada, así creo que será mejor.
Solución al primero, preguntar el nombre, preguntar la edad y mostrar el nombre "edad" veces:
Tenemos dos TextBoxes: Text1 y Text2, un botón: Command1, el código sería:Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim Nombre As String j = Val(Text2) Nombre = Text1 For i = 1 To j Print Nombre Next End SubEl segundo es un poco más complicado, pero no tanto, espero.
Sólo hay que asignar el nombre al Label, suponiendo que fuese Label3, sería algo como esto:Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim Nombre As String j = Val(Text2) Nombre = Text1 For i = 1 To j Label3 = Label3 & Nombre Next End SubPor último, para que cada nombre se muestre en una línea diferente, hay que añadirle a continuación un retorno de carro y cambio de línea, en VB4 hay una constante definida para ello: vbCrLf, en el VB3 habría que declararla de esta forma:
Dim vbCrLf As String
vbCrLf = Chr$(13) & Chr$(10)
Este sería el código:Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim Nombre As String j = Val(Text2) Nombre = Text1 For i = 1 To j Label3 = Label3 & Nombre & vbCrLf Next End SubEspero que te hayas apuntado un 10, pero si no has logrado hacerlos bien, no te preocupes, poco a poco irás quedándote con la copla.