ch06-03-02.aspx

来自「这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助」· ASPX 代码 · 共 23 行

ASPX
23
字号
<%@ Page Language="VB" Debug = "True"%>
<Html>
<Head>
<Title>Ch06-03-02.aspx 产生三组介于1到50之间的整数</Title>
</Head>
<Body>
<%
Dim I As Integer, Nums As Single
' 使用Fix()函数的范例
Response.Write("产生三组介于1到49之间的整数为:<BR>")
For i = 1 to 3
	Do Until (Nums <= 50 And Nums > 0)
		Randomize
		Nums = Fix(Rnd * 100)
	Loop
	Response.Write(Nums & "<BR>")
	Nums = 0
Next
%>
</H1>
</Body>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?