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

excel110 · 发表于 2011-11-30 13:33

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

zhangjimfu 发表于 2011-11-30 12:06
是的,用随机函数排序即可

不行的。因为数字总共有15位，1～14位数是系列数，第15位是随机数。
1#我发的主题就明白了。
例子.jpg

zxb7679 · 发表于 2011-12-1 09:40

Rnd 函数返回小于 1 但大于或等于 0 的值
Dim MyValue
MyValue = Int(10* Rnd) ' 生成 0 到 9之间的随机数值。
把它加到上述代码中不就可以了嘛

excel110 · 发表于 2011-12-5 17:14

zxb7679 发表于 2011-12-1 09:40
Rnd 函数返回小于 1 但大于或等于 0 的值
Dim MyValue
MyValue = Int(10* Rnd) ' 生成 0 到 9之间的随 ...

我是菜鸟，麻烦你加上去试着看看，发个附件看看。Thank you!

zxb7679 · 发表于 2011-12-8 11:21

Sub StepValues()

Dim StartVal As Double, FinshVal As Double
Dim StepVal As Integer, strSql As String
Dim LastVal As Integer

StartVal = InputBox("请输入开始编号")
FinshVal = InputBox("请输入增加数")
StepVal = InputBox("请输入步长")

For i = 1 To FinshVal Step StepVal
      LastVal = Int(10 * Rnd)
      strSql = "Insert into tblStepNumber(Numbers) Values(" & StartVal & LastVal & ")"
      StartVal = StartVal + StepVal
      DoCmd.RunSQL strSql
Next i

End Sub

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

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