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