vb随机数生成的几种方法

　　vb 和 vb.net 随机数生成方法有所不同，vb随机数生成方法是 Rnd，而 vb.net随机数生成方法是 Random.Next()。vb.net生成随机数变得更容易和方便，下面分别介绍它们生成随机数的方法。

 

　　一、vb随机数生成的方法

　　vb随机数生成函数是 Rnd[(number)]，number 参数为可选项。在调用 Rnd 生成随机数之前，先使用 Randomize 初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。

　　1、生成100以内的随机数

　　Randomize

　　Int(Rnd() * 100)//生成 0 - 99 之间的随机数

　　Int(Rnd() * 101)//生成 0 - 100 之间的随机数

 

　 　　2、生成指定范围随机数

　　由于 vb 没有提供直接生成指定范围随机数的函数，所以要把 Rnd 变通一下，方法如下：

　　Int((上限 - 下限 + 1) * Rnd + 下限);

 

　　把它封装成可直接调用的函数如下：

　　Function GetRandom(under, over As Integer) As Integer
　　　　If under < over Then
　　　　　　temp = under;
　　　　　　under = over;
　　　　　　over = temp;
　　　　End If

　　　　Randomize
　　　　GetRandom = Int((under - over + 1) * Rnd + over);
　　End Function

 

　　调用方法：

　　GetRandom(10, 100);//生成10到100的随机数

 

 

　　二、vb.net生成随机数的方法

　　1、方法：Random.Next(int minValue, int maxValue);

 

　　2、说明：

　　若 minValue 和 maxValue 都没有提供，则生成一个 0 - 2147483647 之间的随机数；

　　若 minValue 和 maxValue 只提供一个，则生成一个 0 - maxValue 之间的随机数；

　　若 minValue 和 maxValue 两个都提供，则生成一个 minValue - maxValue 之间的随机数；

 

　　3、举例

　　Dim ran = New System.Random()

　　ran.Next()//生成 0 - 2147483647 之间的随机数

　　ran.Next(100)//生成 0 - 100 之间的随机数

　　ran.Next(10, 100)//生成 10 - 100 之间的随机数

　　Dim ran = New Random(DateTime.Now.Millisecond)//通过日期的微秒生成随机数