Adicionar ceros a un número

leo
15 de Septiembre del 2004
Cómo se pueden adicionar ceros a la derecha de un número, por ejemplo si tengo 5151, que me muestre 5151000, que se adicionen los ceros que yo quiera.

Muchas Gracias

semper
15 de Septiembre del 2004
Multiplica el numero por 10, por 100, por 1000, etc... dependiendo de la cantidad de ceros que quieras agregarle...

¶mmm
15 de Septiembre del 2004
QUE TAL SI LO PONEMOS CON LA CANTIDAD DE 0 QUE QUERAMOS SIN MULTIPLICACION LO ESTOY TRATANDO DE HACER.

¶mmm
15 de Septiembre del 2004
MIRA ESTOS 2 CODIGOS
Private Sub Command1_Click()
On Error Resume Next
Dim x
Dim y
y = "0"
For x = 2 To Text2.Text
y = y & y - y
Next x
Text3.Text = Text1.Text & y
End Sub
Private Sub Command1_Click()
Dim Valor As String
Valor = CStr(Text1)
For x = 1 To CInt(Text2) ' texto para decirme cuantos ceros a añadir
Valor = Valor & "0"
Next x
Text3 = CLng(Valor) 'Resultado
End Sub