Re: [.NET] 兩個1-6的骰子
※ 引述《usherkuo (§~~老郭郭~~§)》之銘言：
: 我用
: Dim g1, g2 As Double
: Randomize(1)
: g1 = Int(Rnd(10) * 7)
: g2 = Int(Rnd(8) * 7)
: Label1.Text = g1
: Label2.Text = g2
: End Sub
: 是有做出來...
: 但它會跑出0來啊....
: 我依照書寫的1-100一樣畫葫蘆...不行...
: 1-100就不會有0....骰子為啥會呢？
: 我是新手...麻煩告訴我時請詳細點...
: 謝謝你了
這個是因為你的公式想法有些許的問題，
以randmize這麼函式來講，若要產生介於M與N之間整數，則公式為
int(rnd()*(M-N+1)+N)
所以你的應該改為 Int(Rnd()*6+1)
這樣你明白了嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.6.234
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
