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


 附加的文件 


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


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

arcgis字段计算器的vb脚本生成随机数使用的函数是rnd()，而不是rand()。这个要特别注意。

    
在VB.NET中，有一个Random 类，表示伪随机数生成器，一种能够产生满足某些随机性统计要求的数字序列的设备。
与VB6相比较，在VB.NET中产生随机数的方法更加丰富而且简单。
 
Random 的类构造函数：
1. Random ()：使用与时间相关的默认种子值，初始化 Random 类的新实例。
2. Random(Int32) ：使用指定的种子值初始化 Random 类的新实例。
 
Random类的方法：
1.   Next ()：返回非负随机数。生成一个值范围在零与 Int32.MaxValue (2147483647 )之间的随机数 
2.   Next(Int32)：返回一个小于所指定最大值的非负随机数。 
3.   Next(Int32, Int32)：返回一个指定范围内的随机数。 
4.   NextBytes：用随机数填充指定字节数组的元素。 
5.   NextDouble：返回一个介于 0.0 和 1.0 之间的随机数。
 
例如：
Dim MyRnd As New Random
Dim n As Integer
Dim D As Double
'产生一个(0,2147483647 )之间的正整数
n = MyRnd.Next
MsgBox(n)
'产生一个小于100的正整数
n = MyRnd.Next(100)
MsgBox(n)
'产生【10,99】范围的正整数
n = MyRnd.Next(10, 100)
MsgBox(n)
'产生(0.0,0.1)范围的正整数
D = MyRnd.NextDouble
MsgBox(D)
 转载自：http://blog.sina.com.cn/s/blog_be3ce0250102x6o1.html

转载于:https://www.cnblogs.com/houtenghui/p/10923107.html

实验三：生成随机数
实验目的：
1. 
了解vb数据类型的基本概念
2. 
掌握变量的定义方法
3. 
掌握运算符和表达式用法
一．        
 实验内容：
生成指定范围内的随机整数。用int和rnd函数生成指定范围的随机整数，用randomize函数初始化随机数发生器，用val函数将数字字符串转换为数值。
二．        
实验步骤：
1．  
在窗体上放置三个文本框并在其后输入三个文本框，分别用于输入随机数的下界和上界，并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮，并在属性值中输入“生成随机数”。
2．  
编写程序代码
  
双击窗体中的命令按钮在代码窗口编写click事件过程，代码如下：
Dim M as Integer
Dim N as Integer
M=Val(text1.text)
N=val(text2.text)
Text3.text=m+int(rnd*(n-m=1))
End sub
三．        
心得体会：
做VB时要注意细心，在输入程序代码时要要看清，注意有无空格，有无标点，又或者是什么标点，例如是“,”还是“.”。运行过程不是很顺利，总是出现运行不出来的情况，要注意经常性错误的避免，编写的程序由于粗心经常出现丢落字母等问题，要注意纠正习惯性错误，要仔细编写，使错误率尽量降低，从而提高运行的成功率。
四．        
问题及解决方法；
问题：输入代码后不能正常运行，出现“编译码错误”或“缺少“结束语”等错误
解决方法：核对输入的代码，发现把“.”输成了“,”或添加“结束语”改正后可正常运行。