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