Office中国论坛/Access中国论坛

标题: VBA/VB及Vb.net生成各种随机数的几种方法对比 [打印本页]

---

作者: 盗梦    时间: 2015-6-13 11:48
标题: VBA/VB及Vb.net生成各种随机数的几种方法对比

在Access/Excel的VBA以及vb生成随机数的方法  和 vb.net 随机数生成方法有所不同，VBA/VB生成随机数生成方法是使用函数Rnd，而在vb.net随机数生成方法是 Random.Next()。vb.net生成随机数变得更容易和方便，下对它们生成随机数的方法进行一个对比和分析

　　一、VBA/VB(Access/Excel/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 + 下限);

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

　　

1. Function GetRandom(under, over As Integer) As Integer
   
2. 　　　　If under < over Then
   
3. 　　　　　　temp = under;
   
4. 　　　　　　under = over;
   
5. 　　　　　　over = temp;
   
6. 　　　　End If
   
7. 　　　　Randomize
   
8. 　　　　GetRandom = Int((under - over + 1) * Rnd + over);
   
9. 　　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)//通过日期的微秒生成随机数

摘自亮术网

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3