|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
重写加下注释,- Sub test()
- Dim Arr(1 To 100, 0) '100个字符串
- s$ = "ABCD"
- Randomize
- For i% = 1 To 100
- x$ = ""
- For k% = 1 To 4 '随机字母组成字符串,至少一个字母,最多4个
- x = x & Mid(s, Int(1 + Rnd * IIf(k < 2, 4, 8)), 1) '8可以改,越大字符串长度短的可能越大
- Next
- m% = Int(Rnd * 9) '0-9随机数
- If Len(x) > 1 And m > 3 Then '字母多于1个,并且m大于3时插入 [ ],3可以改,影响是否插入 [ ] 的几率
- m = Int(Rnd * Len(x))
- Arr(i, 0) = Left(x, m) & "["
- x = Mid(x, m + 1)
- m = 1 + Int(Rnd * Len(x))
- Arr(i, 0) = Arr(i, 0) & Left(x, m) & "]" & Mid(x, m + 1)
- Else '一个字母就没有[],随机数小于4时不插入 [ ]
- Arr(i, 0) = x
- End If
- Next
- [a1:a100] = Arr '输出到表格
- End Sub
复制代码
|
|