[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

回复 1# 纯植物


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

TOP

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

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

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

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

QQ 20147578

TOP

  1. Randomize
  2. msgbox rnd
复制代码
1

评分人数


QQ 20147578

TOP

返回列表