SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: RadicalEd en Miércoles 15 de Septiembre de 2004, 17:17

Título: AÑadir Ceros A Un Valor
Publicado por: 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

1.  
2. Private Sub Command1_Click()
3. On Error Resume Next
4. Dim x
5. Dim y
6. y = "0"
7. For x = 1 To Text2.Text
8.    y = y & y - y
9. Next x
10. Text3.Text = Text1.Text & y
11. End Sub
12.  
13.  

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

Título: Re: AÑadir Ceros A Un Valor
Publicado por: Shiquilla en Miércoles 15 de Septiembre de 2004, 17:45

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

1. Public Sub Command1_Click()
2.     Dim Valor As String
3.     Valor = CStr(Text1)
4.     For x = 1 To Cint(Text2) ' texto para decirme cuantos ceros a añadir
5.         Valor = Valor & "0"
6.     Next x
7.     Text3 = CLng(Valor) 'Resultado
8. End Sub
9.  

Saludos.

Título: Re: AÑadir Ceros A Un Valor
Publicado por: RadicalEd en Miércoles 15 de Septiembre de 2004, 18:38

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

Código: Text

1.  
2. Private Sub Command1_Click()
3. On Error Resume Next
4. Dim x
5. Dim y
6. y = "0"
7. For x = 2 To Text2.Text
8.    y = y & y - y
9. Next x
10. Text3.Text = Text1.Text & y
11. End Sub
12.