随机数前再加一组随机数

xlvevc

如何  如何实现？已经随机了一组 随机数问题.rar (15.2 KB, 下载次数: 2)

2020-6-4 20:50 上传

点击文件名下载附件

大灰狼1976

1. Sub RndStr()
   
2. Randomize
   
3. Dim s$, sTmp$, i&, j&
   
4. s$ = "0123456789abcdefghijklmnopqrstuvwxyz"
   
5. For j = 5 To 7
   
6.   sTmp = ""
   
7.   For i = 1 To 20
   
8.     sTmp = sTmp & Mid(s, Int(Rnd * 10) + 1, 1)
   
9.   Next i
   
10.   sTmp = sTmp & "-2020-"
    
11.   For i = 1 To 32
    
12.     sTmp = sTmp & Mid(s, Int(Rnd * Len(s)) + 1, 1)
    
13.   Next i
    
14.   Cells(j, "e") = sTmp
    
15. Next j
    
16. End Sub

复制代码

xlvevc

大灰狼1976 发表于 2020-6-4 20:50

另外请教一下  如何让生成的后面8位数之间随机空格？
7a13162db211e28a8e320cb1 9c 2 9 aa 65
7a13162db211e28a8e320cb1 9c2 9aa 65
7a13162db211e28a8e320cb1 9c29 a a 65
7a13162db211e28a8e320cb1 9c 2 9 a a65
像上面的效果

大灰狼1976

没猜错的话：

1. Sub RndStr()
   
2. Randomize
   
3. Dim s$, sTmp$, i&, j&
   
4. s$ = "0123456789abcdefghijklmnopqrstuvwxyz"
   
5. For j = 1 To 100
   
6.   sTmp = ""
   
7.   For i = 1 To 20
   
8.     sTmp = sTmp & Mid(s, Int(Rnd * 10) + 1, 1)
   
9.   Next i
   
10.   sTmp = sTmp & "-2020-"
    
11.   For i = 1 To 32
    
12.     sTmp = sTmp & Mid(s, Int(Rnd * Len(s)) + 1, 1)
    
13.     If i > 23 And i < 32 Then sTmp = sTmp & String(Int(Rnd * 2), " ")
    
14.   Next i
    
15.   Cells(j, "e") = sTmp
    
16. Next j
    
17. End Sub

复制代码