帮忙写一个VB骰子游戏

定义1标签，两个文本和两个按钮。我写了一个没用的程序，但是可以满足游戏的要求。

将业务对象定义为布尔值

私有子命令1_Click()

Label1 = " "

使不规则化

Text1 = Val(Int(Rnd * 6))

Text2 = Val(Int(Rnd * 6))

a = Val(文本1) + Val(文本2)

label 1 = IIf(a & gt；6、“点数多”和“点数少”)

如果Label1 = "点数很大"那么

bo =真

其他

bo =假

如果…就会结束

命令1。启用=假

命令2。启用=真

末端接头

私有子命令2_Click()

Label1 = " "

使不规则化

Text1 = Val(Int(Rnd * 6))

Text2 = Val(Int(Rnd * 6))

b = Val(文本1) + Val(文本2)

如果(b & gt6且bo =真)或(b & lt6且bo =假)那么

Label1 = "你赢了！"

其他

Label1 = "你输了！"

如果…就会结束

命令1。启用=真

命令2。启用=假

末端接头

私有子窗体_Load()

Label1 = " "

命令1。启用=真

命令2。启用=假

末端接头