Re: [ASP ] 有關於亂數不重覆
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 4 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
