📄 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 + -