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


 
entrega anterior ir al índice siguiente entrega

Ir al índice principal del Guille