23/02/2013, 06:42
|
| | | Fecha de Ingreso: febrero-2013
Mensajes: 8
Antigüedad: 11 años, 2 meses Puntos: 0 | |
| Respuesta: repetir texto "n" numero de veses
mmmm a modo de respuesta, para complementar lo de Kenmasters
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As String
'En a colocaremos el numero de veces que se debe repetir
a = TextBox1.Value
'En b colocaremos el texto que se debe repetir
b = TextBox2.Text
For i = 1 To a
'Aqui escribimos repetidamente el texto pedido
Textorepetido = Textorepetido & CStr(b)
Next
'Aqui entregamos el valor en la caja de texto indicada
TextBox3.Text = Textorepetido
End Sub |