Programación General > Visual Basic 6.0 e inferiores

 AÑadir Ceros A Un Valor

(1/1)

RadicalEd:
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 NextDim xDim yy = "0"For x = 1 To Text2.Text   y = y & y - yNext xText3.Text = Text1.Text & yEnd 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 & "0"    Next x    Text3 = CLng(Valor) 'ResultadoEnd 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 NextDim xDim yy = "0"For x = 2 To Text2.Text   y = y & y - yNext xText3.Text = Text1.Text & yEnd Sub 

Navegación

[0] Índice de Mensajes