1000分求輪盤遊戲源程序，UP者有分

Question

因為現在公司有做一網絡遊戲需要有一個象輪盤(Roulette)一樣抽獎程序，有運氣的玩家可獲得點數，希望有一部份或全部程序的高手幫忙，謝謝了,不夠分可以在加

Answer 1

再怎么看它也就是个随机数啊rnd()

Answer 2

看看这样行不Private l As LongPrivate Sub Form_Load()
    Command1.Caption = 0
End SubPrivate Sub Command1_Click()
    Randomize
    l = CLng(Rnd * 10 + 10)
    Timer1.Interval = 20 - l + 1
End SubPrivate Sub Timer1_Timer()
    With Timer1
        .Interval = IIf(.Interval >= 500, 0, .Interval + l)
    End With
    Command1.Caption = (Command1.Caption + 1) Mod 37
End Sub