|
Realizamos
programas para la gestión de empresas. Empresas medianas y
pequeñas. Programas de contabilidad, cartera de pedidos
clientes proveedores, facturación control de albaranes,
tesorería cartera de cobros y pagos y estadísticas.
Nuestro
agradecimiento a todos los que por unas causas o por otras
visitan nuestra web. Gestión de empresas PYMES. Curso de
programación de Visual Basic.
|
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.
