Board logo

标题: [问题求助] [已解决]求优化一下生成随机组合的VB代码 [打印本页]
作者: 纯植物    时间: 2014-11-12 08:51     标题: [已解决]求优化一下生成随机组合的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
复制代码
作者: 纯植物    时间: 2014-11-12 09:02

回复 1# 纯植物


    比如打开生成的第一个组合是ztukk1a13，那我把窗口关闭，重新再打开生成的第一个组合还是ztukk1a13
作者: czjt1234    时间: 2014-11-12 12:32

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

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

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

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

  1. Randomize

  2. msgbox rnd
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2