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.