Red de conocimiento informático - Material del sitio web - Cómo utilizar VB para generar números de serie consecutivos de longitud fija

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