请高手赐教，生成IMEI数据程序。

excel110 · 发表于 2011-11-24 11:48

本帖最后由 excel110 于 2011-11-24 13:30 编辑

具体如下：IMEI总共15位数，其中14位数是递增的（0，1，2……），最后一位是随机数字（0～9）。
需要写一个程序，给一个开始时的14位数，然后生产N个（50万或100万）的递增数据，并且加上最后一位随机数据。
并生成一个表格，字段名称：IMEI 。比如生成100个：35812500000000X（X是随机数）： 358125000000011 ，358125000000022 ，358125000000034 ，358125000000046 ， 358125000000053 ，358125000000067， 358125000000070 …… 3581250000001002
请高手帮忙搞一个ACCESS文件，不胜感谢

zhangjimfu · 发表于 2011-11-24 12:10

不太明白楼主的问题

excel110 · 发表于 2011-11-24 13:26

zhangjimfu 发表于 2011-11-24 12:10
不太明白楼主的问题

就是在ASSECC，编一个程序，生成一个表格。要求程序是给一个初始数，然后按步长1递增，递增到N，生成N个记录到表里面。

zhangjimfu · 发表于 2011-11-24 18:06

明天再解楼主的问题,回家先!

zhangjimfu · 发表于 2011-11-25 09:09

Sub StepValues()
Dim StartVal As Double, FinshVal As Double
Dim StepVal As Integer, strSql As String
StartVal = InputBox("请输入开始编号")
FinshVal = InputBox("请输入增加数")
StepVal = InputBox("请输入步长")
For i = 1 To FinshVal Step StepVal
strSql = "Insert into tblStepNumber(Numbers) Values(" & StartVal & ")"
StartVal = StartVal + StepVal
DoCmd.RunSQL strSql
Next i
End Sub

复制代码

frmTest.rar (18.54 KB, 下载次数: 17)

供参考

excel110 · 发表于 2011-11-28 16:20

本帖最后由 excel110 于 2011-11-28 16:39 编辑

zhangjimfu 发表于 2011-11-25 09:09
供参考

Thank you!高手！祝你好运！
但是我不知道在那里运行这个程序，能否告知？Thank you!
我不知道我们在哪里运行了这个程序，发现不好用，增加记录每次都弹出提示，都要确定，要是100万个记录，那要点击100万次。以前我学过VFP，入门程序。最好设置一个按钮，单击一下就运行程序。呵呵……

zhangjimfu · 发表于 2011-11-28 17:49

excel110 发表于 2011-11-28 16:20
Thank you!高手！祝你好运！
但是我不知道在那里运行这个程序，能否告知？Thank you!
我不知道我们在哪 ...

呵呵...晚一点附上动画演示

zhangjimfu · 发表于 2011-11-28 20:58

frmTest.rar (22.79 KB, 下载次数: 12)

excel110 · 发表于 2011-11-30 11:19

本帖最后由 excel110 于 2011-11-30 13:31 编辑

zhangjimfu 发表于 2011-11-28 20:58

谢谢！改善很多。不过数值后面没有加一个随机数。你是程序产生只是序列数。

需要这种效果。比如生成100个：35812500000000X（X是随机数）： 358125000000011 ，358125000000022 ，358125000000034 ，358125000000046 ， 358125000000053 ，358125000000067， 358125000000070 …… 3581250000001002

当然我已经很感激你的帮助。加随机数可以通过查询来实现吧
实验证明不行。

zhangjimfu · 发表于 2011-11-30 12:06

excel110 发表于 2011-11-30 11:19
谢谢！改善很多。不过数值后面没有加一个随机数。你是程序产生只是序列数。

需要这种效果。比如生成10 ...

是的,用随机函数排序即可

		自动登录	找回密码
密码			免费注册

[求助] 请高手赐教，生成IMEI数据程序。