如何使用VB生成一个定长的连续序号

来源：百度知道 编辑：UC知道 时间：2024/06/26 01:32:19
如何使用VB程序成一个长度可以任意指定、起始号码可以任意指定（当超过指定长度时已此号码长度为准，不足指定长度时在前面自动补0达到指定长度）、任意数量、任意步长的连续号，各组连续号间要求换行。

举例：生成顺序号 自1开始 长度为10位的 步长为2的顺序号10000组。
结果：
0000000001
0000000003
0000000005
0000000007
0000000009
0000000011
0000000013
..........
0000020000

3个文本框,1个list 和一个按钮
text1为开始的数，text2为步长，text3 为有多少组。
代码如下:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(Text1): b = Val(Text2): c = Val(Text3)
For d = 1 To c
List1.AddItem e(Str(a))
a = a + b
Next d
End Sub

Function e(a As String) As String
Dim g As Integer, h As String
h = ""
For g = 0 To 10 - Len(a)
h = h & "0"
Next g
e = h & Trim(a)
End Function

Dim a()
Private Sub Command1_Click()
Form1.Visible = True

'text1初始值，text2步长，text3数量，text4长度
ReDim a(1 To Text3)
For i = 1 To Text3
b = Text1 + Text2 * i
a(i) = IIf(b > (10 ^ (Text2 + 1) - 1), b, Format(b, String(Text4, "0")))

Print a(i) '测试用
Next

End Sub

不用费劲了.给我邮箱里发个邮件.我给你,前几天刚帮人做的现成源码.