十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
方法名称:next();功能描述:返回一个0~2147483647之间的整数
成都创新互联公司专注于裕安网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供裕安营销型网站建设,裕安网站制作、裕安网页设计、裕安网站官网定制、微信平台小程序开发服务,打造裕安网络公司原创品牌,更为您提供裕安网站排名全网营销落地服务。
方法名称:next(i);功能描述:返回一个0~i之间的整数
方法名称:next(i,j);功能描述:返回一个i~j之间的整数
方法名称:Nextdouble();功能描述:返回一个0~1之间的随机小数
================
使用方法:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rand = New System.Random()
MsgBox(rand.next().ToString())
End Sub
==========================
产生N个不同数的话,我给你个我写的VB的代码,你稍微改下:
产生0-10的数:
Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n + 1))
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
因为是伪随机数啊,你要给个随机种子
Dim rnd As Random = New Random(System.DateTime.Now.Millisecond) //通过日期产生随机数
VB的随机数即使用Rnd函数生成的随机数值。种子,为初始值,用来生成伪随机数字。
Rnd 函数,返回一个包含随机数值的 Single。
对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
种子,为初始值,用来生成伪随机数字。例如, Randomize 语句创建一种子值供 Rnd 函数使用,以接着创建唯一伪随机数列。
Randomize 语句,初始化随机数生成器。
说明
Randomize 用 number 将 Rnd 函数的随机数生成器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。
如果没有使用 Randomize,则(无参数的)Rnd 函数使用第一次调用 Rnd 函数的种子值。
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数, 所以
Randomize 用 Timer 函数的返回值作为新的随机数种子值。
Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。