此段代码timeout，是否存在死循环

[djf_1985]

以下代码timeout,其中iNum=2，l_count=2
刚看asp，不太懂，感谢大家了
<%
dim bj(1000)
max=0
Randomize
j=Int((l_count*rnd)+1) '隨機選出iNum數量的題目
'Response.Write(j)
'Response.End()
if iNum <> 0 then 'iNum=2
for i=1 to iNum
bj(i)=j
j=Int((l_count*rnd(i))+1)
max=max+1
for e=1 to max
while bj(e)=j
j=Int((l_count*rnd)+1) '題目編號
e=1
wend
next
next
for i=1 to inum
if iNum=l_count then
j=i
else
j=bj(i)
end if
'Randomize
'j=Int((l_count-i+1)*rnd(i)+1)
%>

[漫漫2009]

没看懂需求，而且代码有错误

for e=1 to max
while bj(e)=j  
j=Int((l_count*rnd)+1) '題目編號
e=1
wend
next   

e是循环变量，怎么可以在循环过程中随便定义e的值

[jianshao810]

应该会死循环，而且代码习惯不好。

[lzp4881]

是不是死循环，你只要在循环内部加上response.write X
输出一下变量值就知道了。

[lzp4881]

是不是死循环，你只要在循环内部加上response.write X
输出一下变量值就知道了。

[一把编程的菜刀]

[Quote=引用 2 楼 dogfish 的回复:]
VBScript code
for e=1 to max
while bj(e)=j
j=Int((l_count*rnd)+1) '題目編號
e=1 '此处让变量e永远是1，有可能是死循环。
wend
next
[/Quote]

e=1 '此处让变量e永远是1，有可能是死循环。

[Dogfish]

for e=1 to max
    while bj(e)=j  
        j=Int((l_count*rnd)+1) '題目編號
         e=1 '此处让变量e永远是1，有可能是死循环。
    wend
next   

[djf_1985]

去掉e=1就OK了