Autor Tema: AÑadir Ceros A Un Valor (Leído 972 veces)

RadicalEd · « **en:** Miércoles 15 de Septiembre de 2004, 17:17 »

HOLA CHICOS DE SOLOCODIGO ESTUVE POR AHI RONDANDO Y ME ENCONTRE CON UNA PREGUNTA PECULIAR COMO SE HACE PARA AÑADIR CEROS A UN VALOR, POR EJM HAY EL NUMERO 2 Y QUIERO AGREGARLE 2 CEROS O SEA 200, SIN MULTIPLICAR AÑADIENDO LA CANTIDAD DE CEROS NO VALE MULTIPLICAR TENGO ESTE CODIGO Y ME SIRVE HASTA 1 CERO MAS

Código: Text

 
Private Sub Command1_Click()
On Error Resume Next
Dim x
Dim y
y = &#34;0&#34;
For x = 1 To Text2.Text
   y = y & y - y
Next x
Text3.Text = Text1.Text & y
End Sub
 
 

1 COMMAND Y 3 TEXTBOX, SI ENCUENTRO LA RESPUESTA SE LAS HAGO SABER

Shiquilla

Se puede pasar el número a String e ir añadiendo al final de la cadena de texto tantos 0 como quieras, luego lo pasas a entero y ya está.

¿Es una solución no?

Código: Text

Public 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 & &#34;0&#34;
    Next x
    Text3 = CLng(Valor) 'Resultado
End Sub
 

Saludos.

RadicalEd

GRACIAS CHIQUILLA MIRA COMO LO TERMINE HACIENDO Y ME FUNCIONO, ES MUY LARGO Y FEO

Código: Text

 
Private Sub Command1_Click()
On Error Resume Next
Dim x
Dim y
y = &#34;0&#34;
For x = 2 To Text2.Text
   y = y & y - y
Next x
Text3.Text = Text1.Text & y
End Sub
 

SoloCodigo

Autor Tema: AÑadir Ceros A Un Valor (Leído 972 veces)

RadicalEd

AÑadir Ceros A Un Valor

Shiquilla

Re: AÑadir Ceros A Un Valor

RadicalEd

Re: AÑadir Ceros A Un Valor