请教VB高手，一个VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/13 17:50:41
掷骰子
实例说明：

本例编写掷骰子游戏：玩家可以定义自己的资金以及下注的金额，但下注金额不能超过总资金。由玩家先掷骰子，第一次如果玩家掷7点或者11点（每次两个骰子，它们的和为投掷的点数），那么玩家胜，将会赢得和自己下注的金额；如果掷的2、3或者12点，那么是废注，玩家将会输掉刚才的赌注；如果是其他点数（4、5、6、8、9、10），那么第一回合为平局，记录下总点数，游戏继续进行。在以下的回合中当玩家掷到第一次掷的点数时，则玩家赢；当玩家掷到11点时，玩家赢；当玩家掷到7点时，玩家输；当玩家知道其他点时，为平局。之后按前面的方法继续第三、四回合的游戏。
我不是要的提示，而是具体的程序，所以请大家帮忙

打开记事本，将以下代码复制到记事本里，保存为***.frm，打开，运行即可

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3060
ClientLeft = 60
ClientTop = 390
ClientWidth = 3195
LinkTopic = "Form1"
ScaleHeight = 3060
ScaleWidth = 3195
StartUpPosition = 3 '窗口缺省
Begin VB.CheckBox Check1
Caption = "重复上次下注金额"
Height = 195
Left = 120
TabIndex = 9
Top = 1800
Width = 2595
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 8
T