VB小游戏: 押大小掷骰子源代码.rar

一款VB掷骰子游戏，押大校 　　程序从这里开始(加载窗体) 　　Private Sub Form_Load() 　　‘ 各变量赋初值 　　Betting = False ‘ 骰子还没滚动 　　Money = 1000 ‘ 现金等，各变量的意义见上 　　Bet = 0 　　Label2.Caption = Money ‘ 显示现金及押注 　　Label4.Caption = Bet 　　‘ 接下来： 　　‘ 当按“押注”按钮时，系统自动调用 Command1_Click() 函数 　　‘ 骰子没滚动时，若按“开始”按钮，则调用 Command2_Click() 　　‘ 骰子滚动时，“开始”按钮已变成“停1按钮(参见 Command2_Click()) 　　‘ 若按“停1按钮，则调用 Command2_Click() 　　‘ 当按“金盆洗手”按钮时，调用 Command3_Click() 　　‘ 每隔 0.05 秒时，系统调用 Timer1_Timer() 　　‘ 请分别参考下面的函数实现