Question

vb如何产生随机的7位小写英文和数字。

我需要随机小写英文和数字的混合，比如“4h8h2jh”,“g343fd2”，并且产生以后记录到text，每个一行。或者一次性产生很多个也可以。
是产生后自动保存下来，最好有代码

Answer 1

Private Sub Command1_Click()
For j = 1 To 10 '生成10组
Text1.Text = Text1.Text & Rand_Number(7) & vbCrLf
Next
End Sub

Function Rand_Number(num) As String 'num为产生位数
Randomize
Dim i As Integer, n As Integer, str As String
For i = 1 To num
n = Int(Rnd * 2) + 1 '随机生成1或2赋值
Select Case n '判断下一个数要生成的是数字还是小写字母
Case 1 '生成数字
str = str & Chr(Int(Rnd * 10) + 48) '在0-9范围里的随机挑一个数字
Case 2 '生成小写字母
str = str & Chr(Int(Rnd * 26) + 97) '在a-z范围里的随机挑一个字母
End Select
Next
Rand_Number = str
End Function

Answer 2

用ASCII码，随机生成数字，经ASCII转换就可以了
在ASCII码中有一段数值，比如48-57是数字，65-90是小写字母，97-122是大写字母
可以用两次随机，第一次随机生成1，2，3来确定生成是数字还是大小写字母，第二次就在上面的数字范围内生成一个数字，用ASCII转换就好了

Answer 3

Private Function CR(L As Long) As String 'l为字符串长度
Dim i As Long, j As Byte
For i = 1 To L
j = Int(Rnd * (Asc("z") - Asc("a") + 11))
CR = CR + IIf(j <= 9, CStr(j), Chr(j - 10 + Asc("a")))
Next
End Function

Private Sub Command1_Click()
For i = 1 To 10
Text1 = Text1 + CR(50) + vbCrLf
Next
End Sub