求救

[風之谷的娜烏西卡]

<%
Randomize

D1 = Fix(Rnd * 6) + 1
D2 = Fix(Rnd * 6) + 1
D3 = Fix(Rnd * 6) + 1

Response.Write "<IMG SRC=dice" & D1 & ".gif>"
Response.Write "<IMG SRC=dice" & D2 & ".gif>"
Response.Write "<IMG SRC=dice" & D3 & ".gif>"
Response.Write "<HR>您所擲出的點數是:" & D1 + D2 + D3

%>
上面是我寫一個隨機擲骰子的ASP程式
六個骰子的圖檔分別是dice1.gif~dice6.gif
我要如何用For-Next來簡化呢?
例:D1 = Fix(Rnd * 6) + 1只要寫一行就好了
因為小妹剛接觸,所以很多地方不懂
請前輩們幫幫忙吧...謝謝`

--
去吧! 任憑心之所行……
溫柔又勇敢的風……
我就是傳說中的藍衣人!!!!!!!

御風使者 風之谷的娜烏西卡
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: 140.126.100.157

[..]

哇勒..你程式嚴重灌水喔....
<%
Dim I, tmpTotal, tmpRandom '這行可以省略 ps.我習慣上還是會加

Randomize

tmpTotal = 0 '這行可省略 ps.我習慣上還是會加

For I = 0 To 2
tmpRandom = Fix(Rnd * 6) + 1
tmpTotal = tmpTotal + tmpRandom
Response.Write "<IMG SRC=dice" & tmpRandom & ".gif>"
Next

Response.Write "<HR>您所擲出的點數是:" & tmpTotal
%>
寫好囉..給姊姊(不知道這樣稱呼對不對)參考看看吧!

※ 引述《JEGA...@bbs.cs.nthu.edu.tw (風之谷的娜烏西卡)》之銘言：

> <%
> Randomize
> D1 = Fix(Rnd * 6) + 1
> D2 = Fix(Rnd * 6) + 1
> D3 = Fix(Rnd * 6) + 1
> Response.Write "<IMG SRC=dice" & D1 & ".gif>"
> Response.Write "<IMG SRC=dice" & D2 & ".gif>"
> Response.Write "<IMG SRC=dice" & D3 & ".gif>"
> Response.Write "<HR>您所擲出的點數是:" & D1 + D2 + D3
> %>
> 上面是我寫一個隨機擲骰子的ASP程式
> 六個骰子的圖檔分別是dice1.gif~dice6.gif
> 我要如何用For-Next來簡化呢?
> 例:D1 = Fix(Rnd * 6) + 1只要寫一行就好了
> 因為小妹剛接觸,所以很多地方不懂
> 請前輩們幫幫忙吧...謝謝`
--

[1;33m※ Origin: [36m奇摩 大摩域 [37m<telnet://bbs.kimo.com.tw> [m
[1;35m◆ From: [1;32m163.32.113.245 [m