Cómo utilizar VB para generar números de serie consecutivos de longitud fija
3 cuadros de texto, 1 lista y un botón
texto1 es el número inicial, texto2 es el tamaño del paso y texto3 es cuántos grupos hay.
El código es el siguiente:
Private Sub Command1_Click()
Atenuar a como entero, b como entero, c como entero, d como entero
a = Val(Texto1): b = Val(Texto2): c = Val(Texto3)
For d = 1 To c
List1.AddItem e( Str(Text1 )): b = Val(Text2): c = Val(Text3)
Para d = 1 To c
List1.AddItem e(Str(Text2)): c = Val (Text3)AddItem e(Str(a))
a = a b
Siguiente d
End Sub
Función e(a como cadena) como cadena
Dim g como entero, h como cadena
h = ""
Para g = 0 a 10 - Len( a)
h = h amp; "0"
Siguiente g
e = h amp; Función