[问题求助] [已解决]求优化一下生成随机组合的VB代码

纯植物

下面这个代码可以生成几个数字和字母的随机组合，所以我用vb编译了一个exe文件。但是我发现一个问题，我每次运行这个exe程序时，生成的第一个组合，和下一次打开程序时生成的组合是相同的，怎么办？
求指教

代码：

Dim a As Integer
Dim b As String

Private Sub Command1_Click()
a = Text1.Text
c = ""
b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 To a Step 1
c = c & Mid(b, Int(62 * Rnd + 1), 1)
Next
Text2.Text = c
End Sub
复制代码

纯植物

回复 1# 纯植物


    比如打开生成的第一个组合是ztukk1a13，那我把窗口关闭，重新再打开生成的第一个组合还是ztukk1a13