如何用Vb6生成随机字符串

字符池变量为zfc，里面有55个字符，如何随机生成一个指定长度的字符串(字符串长度存储在变量cd里，结果存储在变量jg里)？

顺序一定要打乱，比如说从字符池里随机取到abc，输出结果就不能是abc

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

我不会~~~但还是要微笑~~~：）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息