asp 隨機數

函數RND（）是一個非常重要的函數。如果你想建立一個隨機的問候語，一個日期的隨機提示，或者甚至一個遊戲，你將要使用這個函數。

函數RND（）返回一個0到1之間的隨機數。這裏有這個函數的一個例子及其可能的返回值：

<%=RND()%>

0.7055643

典型情況下，你更感興趣的是用這個函數來返回處在一定範圍內的整數。要返回一個大於等於0而小於某個特定整數的數字，你可以使用如下的語句：

<%=INT((upperbound+1)*RND)%>

用你想產生的最大隨機數代替表達式upperbound。例如，下面的腳本返回一個0和5之間的數，包括0和5：

<%=INT(5+1)*RND)%>

如果你想產生一個處在某個範圍內的隨機數，該範圍有一個大於0的下界，可以使用如下的腳本：

<%=INT((upperbound – lowerbound + 1)*RND+lowerbound)%>

例如，下面的腳本產生一個50到75之間的隨機數（包括50和75）：

<%=INT((75-50+1)*RND+50)%>

無論何時使用函數RND（），它將以同樣的順序返回同樣的隨機數，這也許另你吃驚。考慮如下的例子：

<%

Pick_Greeting=INT((2+1)*RND)

SELECT CASE Pick_Greeting

CASE 0

Greeting=”Welcome!”

CASE 1

Greeting=”Hello!”

CASE 2

Greeting=”Happy to see you!”

END SELECT

%>

<%=Greeting%>

這個腳本建立並打印一個隨機的問候語。但是，它有可能並不按你想象的方式工作。無論何時有人下載了包含這段腳本的網頁，將有同樣的隨機問候語被打印。如果有人多次回到這個網頁，他或她將得到同樣的問候。一個隨機數產生了，但是每次都是同樣的隨機數。

有一個特殊的語句可以幫助解決這個問題。RANDOMIZE語句用來強制函數RND（）使用一個新的隨機數序列。RANDOMIZE語句通過計算機的系統計時器，爲函數RND（）提供一個新的種子值。下面的例子顯示瞭如何修改上面的例子，使其正確工作：

<%

RANDOMIZE

Pick_Greeting=INT((2+1)*RND)

SELECT CASE Pick_Greeting

CASE 0

Greeting=”Welcome!”

CASE 1

Greeting=”Hello!”

CASE 2

Greeting=”Happy to see you!”

END SELECT

%>

<%=Greeting%>

這個腳本可以正確工作。每次執行這個腳本時，將會產生一個新的隨機問候。RANDOMIZE語句強制函數RND（）使用新的隨機數序列。

最後，如果你對函數RND（）所產生的數值的分佈感到好奇，你可以用下面的腳本來確定它：

<%

CONST upperbound=9,iterations=100

REDIM DIST(upperbound)

RANDOMIZE

FOR i=1 to iterations

rnd_num=INT（(upperbound+1)*RND)

DIST(rnd_num)=DIST(rnd_num)&”#”

NEXT

FOR i=0 to upperbound

%>

<%=i&” : “&DIST(i)%><BR>

<%

NEXT

%>

這段腳本在0到9之間產生100個隨機數。它跟蹤對於每一個值有多少個隨機數產生。最後，它打印一個代表結果的條形圖。