在VB6中生成随机数

最新推荐文章于 2024-07-18 05:31:45 发布

cxygs5788

最新推荐文章于 2024-07-18 05:31:45 发布

阅读量3.5k

点赞数 1

VB6版本

在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位处理器上的本机数据类型，它需要较少的转换，因此处理速度稍快。