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

纯植物

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

代码：

1. Dim a As Integer
   
2. Dim b As String
   
3. 
   
4. Private Sub Command1_Click()
   
5. a = Text1.Text
   
6. c = ""
   
7. b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
   
8. For i = 1 To a Step 1
   
9. c = c & Mid(b, Int(62 * Rnd + 1), 1)
   
10. Next
    
11. Text2.Text = c
    
12. End Sub

复制代码

纯植物

回复 1# 纯植物


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

czjt1234

Randomize 语句
请参阅
Rnd 函数 | Timer 函数
要求
版本 1
初始化随机数生成器。

Randomize [number]
number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。

czjt1234

1. Randomize
   
2. msgbox rnd

复制代码