VB隨機取數怎麼做

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

一、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的隨機數

二、生成隨機數的方法

1、方法：(intminValue，intmaxValue)

2、説明：

若minValue和maxValue都沒有提供，則生成一個0-2147483647之間的隨機數

若minValue和maxValue只提供一個，則生成一個0-maxValue之間的隨機數

若minValue和maxValue兩個都提供，則生成一個minValue-maxValue之間的隨機數

3、舉例

Dimran=om()

()//生成0-2147483647之間的隨機數

(100)//生成0-100之間的隨機數

(10，100)//生成10-100之間的隨機數

Dimran=NewRandom(isecond)//通過日期的微秒生成隨機數