看板 Programming 關於我們 聯絡資訊
我想設定一個類似大樂透能亂數跑出6個數字 我已經設出6個亂數 那要該怎麼辦才能讓這6個亂數不重複呢? <% Dim var As Single Randomize() ' 初始亂數 ' 取得亂數 Dim i As Integer For i = 1 To 6 var = Rnd() * 46 + 1 Response.Write(Int(var) & "<br/>") Next %> 這是我目前的設定 -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 125.229.16.235
TonyQ:有重複的就重新產生. 220.132.59.247 11/13 11:22
stary1213:是把重複的設定中斷然後重跑回圈嗎?? 210.71.118.66 11/13 16:10