在VB6中生成随机数有些不同。 我不说哪个更好，因为我只熟悉VB6方法。 但是肯定会产生一个随机数（更正确地说是一个伪随机数）是

在VB6中更简单 。 您只需调用Rnd（）函数。

此示例表单将执行相同的操作-每次单击按钮，它将显示1到10之间的随机数。

若要使用此代码，请在VB6中启动一个新项目。 创建一个新窗体，并添加一个命令按钮。 将命令按钮的名称更改为“ cmdRandom”。

如果然后双击该表单，您将看到一个“空”窗口代码模板，其外观应与此类似。

Option Explicit
Private Sub Form_Load()
End Sub

选择整个窗口（只需按Ctrl-A），然后粘贴此代码即可替换它...

Option Explicit
DefLng A-Z
Private Sub Form_Load()' At startup, "seed" VB's pseudo-random number generator.Randomize
End Sub
Private Sub cmdRandom_Click()' Each time the button is clicked, display' a message box showing a random number between 1 and 10.MsgBox "The random number generated is: " & Format(RandomNumBetween(1, 10))
End Sub
Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long' This function returns a pseudo-random number between' the specified limits (inclusive).RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function

对于那些喜欢它的人，我将附上Frm文件的副本，您可以将其简单地添加到您的项目中。

这里有些事情可能值得一提...

• 从外观上看，这不适用于VB.Net，但是在VB6中，最好将随机数生成封装在这样的函数中。 忘记正确的程序来生成两个极限之间的随机数很容易，人们往往会得到偶尔超出极限的数字，从而导致程序错误。 设置类似的通用功能（将来您将始终使用它）可防止此类错误。
• 您可能已经在代码提示中注意到Option Explicit 。 如果您的VB安装程序没有自动插入此，您应该下拉到T ools菜单中选择[B] O ptions，进入编辑器选项卡，勾选选件R equire变量声明 。 有关此选项的讨论将很快在这里发布，但与此同时，请从我这里获取-这将防止出现很多错误。
• 也许您还注意到了DefLng AZ 。 如果您未指定其他类型，这仅指示VB使用Long作为所有变量的默认数据类型。 每当使用整数时，通常最好使用Long数据类型，除非有特殊的原因要避免使用它。 作为32位处理器上的本机数据类型，它需要较少的转换，因此处理速度稍快。

附加的文件

Form1.zip （725字节，2357视图）

From: https://bytes.com/topic/visual-basic/insights/738862-generating-random-numbers-vb6