欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

函數(shù)說明

Random

產(chǎn)生一個偽隨機的浮點數(shù)。

Random ( [最小值 [, 最大值 [, 標(biāo)志]]] )

 

參數(shù)

最小值 [可選參數(shù)] 隨機數(shù)的最小值,默認(rèn)為0。
最大值 [可選參數(shù)] 隨機數(shù)的最大值,默認(rèn)為1。
標(biāo)志 [可選參數(shù)] 設(shè)為1則返回整數(shù),默認(rèn)則返回一個浮點數(shù)。

 

返回值

成功: 返回介于 最小值 及 最大值 之間的一個偽隨機數(shù)。
失。 返回 0,并把 @error 設(shè)為以下值的其中一種:
0 成功
1 參數(shù)錯誤

 

注意

默認(rèn)情況下此函數(shù)的返回值是十進制的浮點數(shù),如果需要得到整數(shù)則要把標(biāo)志參數(shù)設(shè)為1。

若在調(diào)用函數(shù)時只有一個實參則該值將被當(dāng)作 最大值(最小值是默認(rèn)的0)。

若(通過標(biāo)志參數(shù))把返回值設(shè)為整數(shù)時,返回值將在最小值和最大值之間(包括兩者在內(nèi)),如果是(默認(rèn)情況下的)浮點數(shù)則不能得到最大數(shù)。


關(guān)于源碼的說明

此函數(shù)使用了 Mersenne Twister 的隨機數(shù)發(fā)生器(MT19937算法,由 Takuji Nishimura、Makoto Matsumoto、Shawn Cokus、Matthe Bellew 及 Isaku Wada 編寫)。

Mersenne Twister(馬其賽旋轉(zhuǎn)算法) 是一個產(chǎn)生隨機數(shù)的著名算法。在設(shè)計該算法的時候就已經(jīng)綜合考慮了其它各種發(fā)生器的缺點。它的周期是 219937-1,而且在623維空間上的分布是均勻的,發(fā)生器產(chǎn)生隨機數(shù)的速度也挺快;它避免了乘法和除法的使用,同時還很好地利用了緩沖和管道。詳細(xì)說明請查看算法作者的網(wǎng)頁: http://www.math.keio.ac.jp/~matumoto/emt.html

版權(quán)所有 (C) 1997 - 2002,Makoto Matsumoto 及 Takuji Nishimura,保留所有權(quán)力。

如果滿足以下條件,則允許以源代碼格式或二進制格式,經(jīng)過修改或不經(jīng)修改,進行再分發(fā)和使用:

1. 再分發(fā)源代碼時,必須保留上述版權(quán)說明、此條件列表和以下免責(zé)聲明。

2. 以二進制格式再分發(fā)必須在文檔和/或隨分發(fā)版本一起提供的其他資料中復(fù)制上述版權(quán)說明、此條件列表和以下免責(zé)聲明。

3. 沒有專門的事先書面許可,不得用貢獻(xiàn)者的姓名來簽署或宣傳由此軟件衍生的產(chǎn)品。

此軟件由版權(quán)擁有者和貢獻(xiàn)者“照原樣”提供。對于任何明示或暗示的擔(dān)保,包括但不限于對商業(yè)可行性、針對特定用途的適用性的暗示擔(dān)保,我們均不負(fù)責(zé)。對于任何直接、間接、偶然、特別、典型或因果性損壞(包括但不限于替代商品或服務(wù)的獲得;用法、數(shù)據(jù)或利潤的丟失;或業(yè)務(wù)中斷),無論起因是什么,無論根據(jù)任何責(zé)任理論,無論是否在合同、嚴(yán)格賠償責(zé)任中,版權(quán)所有者及其貢獻(xiàn)者均一概不負(fù)責(zé)。對于由于使用此軟件,而以任何形式出現(xiàn)的民事侵權(quán)行為(包括疏忽或其他形式),版權(quán)所有者及其貢獻(xiàn)者均一概不負(fù)責(zé)。即使被告知了這種損壞的可能性,也是如此。

 

相關(guān)

Int, Round

 

示例


;模擬丟硬幣
If Random() < 0.5 Then  ; 返回介于0和1之間的數(shù)
    $msg = "正面朝上的幾率是 50%"
Else
    $msg = "反面朝上的幾率是 50%"
Endif
MsgBox(0,"結(jié)果", $msg )


;擲骰子
msgBox(0, "擲骰子", "您得到的是: " & Random(1, 6, 1) )


;模擬股票市場
$StockPriceChange = Random(-10, 10, 1)  ; 產(chǎn)生一個介于 -10 和 10之間的整數(shù)
$StockPrice = $StockPrice + $StockPriceChange
If $StockPriceChange < 0 Then
    MsgBox(4096, "股票變動", "您所持股票已下跌到 $" & $StockPrice)
ElseIf $StockPriceChange > 0 Then
    MsgBox(4096, "股票變動", "您所持股票已升到 $" & $StockPrice)
Else
    MsgBox(4096, "股票變動", "您所持股票仍維持在 $" & $StockPrice)
Endif


;隨機字符
If Random() < 0.5 Then
    ;Capitals
    $Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
Else
    ;Lower case
    $Letter = Chr(Random(Asc("a"), Asc("z"), 1))
Endif