Question

VB程序随机生成20位字符串

分成5组，每组4字符，由字母或数字组成，字母2个或3个，数字1个或2个

Answer 1

字母对大小写有要求么，下面这段程序是大小字母加数字。如果要小写或大小写均有再稍微改一下即可。

Function RndC$()
Dim ANo%, tmpStr$(4)    'ANo：已产生的字母个数，tmpStr(4)：用于存放5组字符串
For I = 0 To 4          '5组字符串
ANo = 0
For J = 0 To 3      '每组产生4个字符
If Rnd() < (2.5 - ANo) / (4 - J) Then        '(2.5 - ANo) / (4 - J)：准备生成字符是字母的概率
tmpStr(I) = tmpStr(I) & Chr(65 + Rnd() * 25)    '随机产生大写字母，如果要小写，把65改成97即可
ANo = ANo + 1
Else
tmpStr(I) = tmpStr(I) & Chr(48 + Rnd() * 9)     '随机产生数字字符
End If
Next J
Next I
RndC = Join(tmpStr, "-")        '用"-"连接5组字符串
End Function

追问

输出到text1

追答

函数已经做好，把上述代码加入后，你再在Command1_Click中直接调用就可以了。如下：
text1.text=Rndc()

当然，另一个选择是，你也可以不用子函数，把上面函数的内容部分放入你的Command1_Click事件中，把内容部分最后一行改为Text1.text=Join(tmpStr, "-")

Answer 2

Private Sub Command1_Click()
Dim s$, i%
Randomize
For i = 1 To 20
s = s & IIf(Int(Rnd * 2) = 0, Chr(Int(Rnd * 26) + 65), Chr(Int(Rnd * 10) + 48))
If i Mod 4 = 0 And i < 20 Then s = s & "-"
Next
Text1 = s
End Sub

追问

字母2至3个，比数字要多的

追答

字母和数字出现概率是相同的

追问

那请帮我修改一下
每组里面字母2或3个
数字1或2个

追答

白修改了