|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 micch 于 2020-2-27 15:43 编辑
没看清楚,可以没有[],那就是一个字母的时候肯定没有[]
重写一个
- Sub test()
- Dim arr(1 To 100, 0)
- s$ = "ABCD"
- Randomize
- For i% = 1 To 100
- x$ = ""
- For k% = 1 To 4 '随机字母
- x = x & Mid(s, Int(1 + Rnd * IIf(k < 2, 4, 8)), 1)
- Next
- m% = Int(Rnd * 9)
- If Len(x) > 1 And m > 3 Then
- 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
- arr(i, 0) = x
- End If
- Next
- [a1:a100] = arr
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|