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