只要在程式碼中使用隨機函式即可實現隨機抽取功能

一、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)//透過日期的微秒生成隨機數