UC知道用vbscript循环结构，
来源：百度知道 编辑：UC知道 时间：2024/05/06 01:00:36
随机产生10个三位正整数，输出其最大数。要求原始数据、结果均输出到文本框中。大师们谢谢了
<%
dim a(9)
dim max
max=0
response.write "十个数分别为：<br>"
for i=0 to 9
randomize
a(i)=int(900*rnd()+100)
response.write"<input type=""text"" size=10 value="&a(i)&"> "
if max<a(i) then max=a(i)
next
response.write "<br>最大值：<br><input type=""text"" size=10 value="&max&">"
%>
将代码另存为num.htm,双击运行看效果.
<textarea name="num" cols="66" id="num" rows="8" onkeyup="parseInput(this.value,0);"></textarea>
<script language="vbscript">
sub cknum()
dim a(10)
dim max
dim non
dim all
max=0
non=0
for i=0 to 9
randomize
a(i)=Int(100*rnd+1)
all=all&a(i)&","
non=a(i)
if non>max then
max=non
end if
next