随机数字生成器,古代赌坊骰子玩法？ _生活知识

只要在代码中使用随机函数即可实现随机抽取功能
一、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+下限);
把它封装成可直接调用的函数如下：
FunctionGetRandom(under,overAsInteger)AsInteger
Ifunder<overThen
temp=under;
under=over;
over=temp;
EndIf
Randomize
GetRandom=Int((under-over+1)*Rnd+over);
【随机数字生成器,古代赌坊骰子玩法？】EndFunction
调用方法：
GetRandom(10,100);//生成10到100的随机数
二、vb.net生成随机数的方法
1、方法：Random.Next(intminValue,intmaxValue);
2、说明：
若minValue和maxValue都没有提供，则生成一个0-2147483647之间的随机数；
若minValue和maxValue只提供一个，则生成一个0-maxValue之间的随机数；
若minValue和maxValue两个都提供，则生成一个minValue-maxValue之间的随机数；
3、举例
Dimran=NewSystem.Random()
ran.Next()//生成0-2147483647之间的随机数
ran.Next(100)//生成0-100之间的随机数
ran.Next(10,100)//生成10-100之间的随机数
Dimran=NewRandom(DateTime.Now.Millisecond)//通过日期的微秒生成随机数

文章插图
古代赌坊骰子玩法？
骰子迄今为止已经有两千年多的历史，可谓是在历史的长河中源远流长。根据传说西方的骰子是古罗马士兵行军无聊时用来消遣时间掷于盾牌内的小骨块。
而中国的骰子最早起源于先秦的爻，是用木头或竹子制的条形物，掷出后有两种结果分别为正反，后来逐渐缩短为琼。
三国时期，皇位被篡夺、情人被他人抢走、又学富五车的曹丕的第弟陈思王曹植发明出来了六个面的骰子，窑烧而制成。出于骰子也是最古老且简易的随机数字生成器之一，因此它最早的原形是应用于宗教占卜方面的，《七修类稿》就说曹植的骰子先是用来占卜，此后才成为嫔妃们的游戏之乐。