Soluciones Quinta Entrega

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 Sub

El 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 Sub

Por ú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 cosntante 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 Sub

Espero 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.