?? ch12-05-01.aspx
字號:
<Html>
<Head>
<Title>Ch12-05-01.aspx System.Random類</Title>
</Head>
<Body>
<H2>System.Random類 － 產生隨機數</H2>
<%
Dim RandNum As Random = New Random()
Dim byteValue(3) As Byte
Dim I As Integer
Response.Write("產生一個整數隨機數：" & RandNum.Next() & "<BR>")
Response.Write("產生小于50的整數隨機數：" & RandNum.Next(50) & "<BR>")
Response.Write("產生介于0～50之間的整數隨機數：" & RandNum.Next(0,50) & "<BR>")
Response.Write("調用NextBytes(Byte())方法產生的隨機數如下：<BR>")
RandNum.NextBytes(byteValue)
For I = 0 to 3
Response.Write("byteValue(" & I & ")的值為：" & byteValue(I) & "<BR>")
Next
Response.Write("產生介于0～1之間的隨機數：" & RandNum.NextDouble())
%>
</Body>
</Html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -