推 tpjobp:g1 = Int(Rnd(10) * 5)+1 試試看 ^^ 06/06 13:24
我用
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....骰子為啥會呢？
我是新手...麻煩告訴我時請詳細點...
謝謝你了
--
http://www.comic.com.tw/mini02/
Taiwan 2ch 歡迎光臨
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.168.148.60