產(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。
相關(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