一款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()
‘ 请分别参考下面的函数实现
1