请大家看看我的程序错在哪里了

[caoshuhua]

下面是我生成随机数的程序，但是没有结果显示出来
<%
dim sqlstr,rs,upperbound,lowerbound,i
dim array[5]
upperbound=20
lowerbound=1

for i=1 to 5 step 1

Randomize
c=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) array[i]=c
next

%>

我把后面的用html显示部分剩了
请帮忙找找错

[freezwy]

把[]改成()就可以了，没有使用[]的。

[jamwaychen]

对，这不是c

[caoshuhua]

还是没有结果，我把后面的也写上吧
<% for i=1 to 5 step 1
%>
<p><%Response.Write array(i)%><hr><br></p>
<% next%>
结果只有一条线，why？

[freezwy]

你肯定上面没有修改
<%
dim sqlstr,rs,upperbound,lowerbound,i
dim array(5)
upperbound=20
lowerbound=1
for i=1 to 5
Randomize
c=Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
array(i)=c
next
for p=1 to ubound(array)
response.write array(p)&"<br>"
next
%>

[caoshuhua]

合起来跟你的是一样的嘛，还是不行

[freezwy]

你单运行上面的这个程序，绝对没有错，如果有错，那是你其他部分的错误。

[tripofdream]

array是VBS关键字,换一个变量名