Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2078|回复: 6

[已解决]如何用VB把如下代码改成一个由(1到4)随机生成11位的代码

[复制链接]
发表于 2013-6-1 09:03 | 显示全部楼层 |阅读模式
如何用VB把如下代码改成一个由(1到4)随机生成11位的代码
  Sub 号码生成器()
    Dim i As Long

    Dim s(100000) As String

    Randomize

    For i = 1 To 100000
        s(i) = CStr(Round(Rnd * 100000000000#))
    Next i

    Open "d:\oÅÂëÇåμ¥.txt" For Output As #1
    For i = 1 To 100000
        Print #1, s(i)
    Next i
    Close #1
End Sub


最佳答案
2013-6-5 13:32
Sub 号码生成器()
    Dim i&, J%, A%
    Dim s(100000) As String
    Randomize
    For i = 1 To 100000
        ReDim R(1 To 4)
        For J = 1 To 11
            A = (Round(Rnd * 3) + 1)
            R(A) = R(A) + 1
            If R(A) > 3 Then
                J = J - 1
                GoTo 10
            End If
            s(i) = s(i) & A
10      Next
    Next

    ' .................
End Sub
发表于 2013-6-1 09:26 | 显示全部楼层
Sub 号码生成器()
    Dim i&, J%
    Dim s(100000) As String
    Randomize
    For i = 1 To 100000
       For J = 1 To 11
        s(i) = s(i) & (Round(Rnd * 3) + 1)
       Next
    Next i

   .................
End Sub
回复

使用道具 举报

发表于 2013-6-1 09:30 | 显示全部楼层
  1. Sub 号码生成器()
  2.     Dim i As Byte
  3.     Dim strNumber As String
  4.     Dim k As Byte
  5.     Randomize

  6.     For i = 1 To 11
  7.         Do
  8.         k = Rnd * 100 Mod 5
  9.         Loop Until k > 0
  10.         strNumber = strNumber & k
  11.         
  12.     Next
  13.     MsgBox strNumber
  14.    
  15. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-6-1 14:16 | 显示全部楼层
谢谢各位,小弟受用了!!!!
回复

使用道具 举报

 楼主| 发表于 2013-6-5 12:12 | 显示全部楼层
可以帮我加上一个条件:让一个数字连续重复出现不超过三次吗?
回复

使用道具 举报

发表于 2013-6-5 13:32 | 显示全部楼层    本楼为最佳答案   
Sub 号码生成器()
    Dim i&, J%, A%
    Dim s(100000) As String
    Randomize
    For i = 1 To 100000
        ReDim R(1 To 4)
        For J = 1 To 11
            A = (Round(Rnd * 3) + 1)
            R(A) = R(A) + 1
            If R(A) > 3 Then
                J = J - 1
                GoTo 10
            End If
            s(i) = s(i) & A
10      Next
    Next

    ' .................
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-6-5 17:32 | 显示全部楼层
谢谢您!!!很好用!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:54 , Processed in 0.366450 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表