Lotus Symphony 1.2


Rnd 函數 [執行時期]

傳回 0 到 1 之間的亂數。

語法:

Rnd [(Expression)]

回覆值:

Double

參數:

Expression:定義如何產生亂數的任意數值表示式。

小於 0:總是傳回相同的亂數。

大於 0:傳回序列中的下一個亂數。

等於 0:傳回最後產生的亂數。

省略:傳回序列中的下一個亂數。

對於每一次連續的呼叫,如果傳送相同的數到 Rnd 函數,則產生的亂數序列也相同。這是因為 Expression 參數被用作下一個數的起始點。

Rnd 函數僅傳回大於 0 到 1 之間的值。若要產生給定範圍內的隨機整數,請使用以下範例中的公式:

錯誤代碼

5 無效的程序呼叫

範例:

Sub ExampleRandomSelect

Dim iVar As Integer

iVar = Int((15 * Rnd) -2)

Select Case iVar

Case 1 To 5

Print "Number from 1 to 5"

Case 6, 7, 8

Print "Number from 6 to 8"

Case Is > 8 And iVar < 11

Print "Greater than 8"

Case Else

Print "Outside range 1 to 10"

End Select

end sub


其他文件 | 商標