Question

如何用Vb6生成随机字符串

字符池变量为zfc，里面有55个字符，如何随机生成一个指定长度的字符串(字符串长度存储在变量cd里，结果存储在变量jg里)？
顺序一定要打乱，比如说从字符池里随机取到abc，输出结果就不能是abc

Answer 1

Private Sub Command1_Click()
zfc="..." '自己填,放不下
cd = InputBox("长度")
Randomize
jg = ""
For i = 1 To cd
jg = jg & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)
Next i
Print cd,jg
End Sub