作者lls23 (侰侰侁)
看板Visual_Basic
标题Re: [ASP ] 有关於乱数不重覆
时间Tue Mar 28 00:35:35 2006
※ 引述《ken0921 (有形男之路还很远>.<")》之铭言：
: <html>
: <head>
: <title>我爱网页程式设计</title>
: <body>
: <%
: dim p(8) as string
: dim n(14) as string
: dim i,j,r,k as integer
: randomize()
: p(1)="1.gif"
: p(2)="2.gif"
: p(3)="3.gif"
: p(4)="4.gif"
: p(5)="5.gif"
: p(6)="6.gif"
: p(7)="7.gif"
: p(8)="8.gif"
: for i = 0 to 7 step 1
: r=1
: do until r <> 1
: n(i)=int(rnd()*8)+1
: r=0
: for j = 0 to i-1 step 1
此处循环应当从1开始吧﹖ j=1 to i-1﹐最好把这些循环变数一个个打出来
就是在这个循环里response出来﹐过程就很清晰了
: if(n(j)=n(i))then
: r=1
: end if
: next j
: loop
: k=n(i)
: Response.Write("<img src = " & P(k) & " width=100 height=100
: "">")
: next i
: %>
: </body>
: </head>
: </html>
: 我想请问一下 "我爱网页程式设计"
: 八个字随机出现不重覆
: 但是我打了上面的程式码却只跑出四个字不重覆
: 想请问我是哪个地方写错了呢??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 130.88.114.91