帮忙写个VB的骰子游戏

来源：百度知道 编辑：UC知道 时间：2024/06/30 01:38:50
两个骰子先撒，点数之和6点以上为大，6点以下为小，后撒两个骰子，两次都是大点或小点就算赢。

伪代码：
当窗体加载时：
启用play按钮
禁用roll按钮
当单击play按钮时：
清空Label文本
撒骰子
如果点数和大于6
gpb文本显示“点数为大”
否则
gpb文本显示“点数为小”
禁用play按钮
启用roll按钮

当单击roll按钮时：
撒骰子
如果两次都是大或小
结果显示“你赢了!”
否则
显示“你输了!”

撒骰子过程
Function RollDice(ByVal pic1 As PictureBox, ByVal pic2 As PictureBox) As Integer

显示图片过程
Sub DisplayDie(ByVal picDie As PictureBox, ByVal intFace As Integer)

以上是老师给的全部材料，谢谢～～～

定义1个label1，两个text，两个button. 我写的没有用过程，不过可以满足游戏要求。

Dim bo As Boolean
Private Sub Command1_Click()
Label1 = ""
Randomize
Text1 = Val(Int(Rnd * 6))
Text2 = Val(Int(Rnd * 6))
a = Val(Text1) + Val(Text2)
Label1 = IIf(a > 6, "点数为大", "点数为小")
If Label1 = "点数为大" Then
bo = True
Else
bo = False
End If

Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Label1 = ""
Randomize
Text1 = Val(Int(Rnd * 6))
Text2 = Val(Int(Rnd * 6))
b = Val(Text1) + Val(Text2)
If (b > 6 And bo = True) Or (b < 6 And bo = False) Then
Label1 = "你赢了!"
Else
Label1 = "你输了!"
End If
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Label1 = ""
Command1.Enabled = True
Command2.Enabled =