Hola, estoy haciendo un programa para generar listas de números. Por ejemplo: desde el 0001 hasta el 9999. Claro, muy fácil, con un bucle for se podría hacer, pero yo necesito que me ponga los ceros adelante. Poque si hago esto:
Código:
dim i as long i=0001
la variable i va a tener el valor 1 y yo quiero que tenga el valor 0001 ¿Cómo se podría hacer esto? Espero que se alla entendido... Gracias a quién pueda ayudarme saludetes
Private Sub Form_Load() Dim var As String * 4 Dim i As Integer For i = 1 To 9999 var = StrReverse(i) var = StrReverse(Replace(var, " ", "0")) MsgBox var Next i End Sub