作者ken0921 (有形男之路还很远>.<")
看板Visual_Basic
标题[ASP ] 有关於乱数不重覆
时间Mon Mar 27 23:12:21 2006
<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