作者abbe1021 ( abbe)
看板Visual_Basic
标题Re: [.NET] 两个1-6的骰子
时间Tue Jun 6 20:18:35 2006
※ 引述《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