求助VB程序编写

来源：百度知道 编辑：UC知道 时间：2024/07/02 03:32:03
两个骰子先撒，点数之和6点以上为大，6点以下为小，后撒两个骰子，两次都是大点或小点就算赢。
当窗体加载时：
启用play按钮
禁用roll按钮
当单击play按钮时：
清空Label文本
撒骰子
如果点数和大于6
gpb文本显示“点数为大”
否则
gpb文本显示“点数为小”
禁用play按钮
启用roll按钮
当单击roll按钮时：
撒骰子
如果两次都是大或小
结果显示“你赢了!”
否则
显示“你输了!”

Dim Big As Boolean
Private Sub Form_Load()
roll.Enabled = False
play.Enabled = True
gpb.Caption = "请按Play掷骰子"
End Sub

Private Sub play_Click()
Dim x As Long, y As Long
Randomize
x = CInt(Rnd() * 5 + 1)
y = CInt(Rnd() * 5 + 1)

If x + y > 6 Then
Big = True
gpb.Caption = "点数为大"
Else
Big = False
gpb.Caption = "点数为小"
End If

play.Enabled = False
roll.Enabled = True
End Sub

Private Sub roll_Click()
Dim x As Long, y As Long
Randomize
x = CInt(Rnd() * 5 + 1)
y = CInt(Rnd() * 5 + 1)

If x + y > 6 Then
If Big = True Then
gpb.Caption = "你赢了"
Else
gpb.Caption = "你输了"
End If
Else
If Big = True Then
gpb.Caption = "你输了"