谁有用VB做的21点游戏 源代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 09:20:23
急用啊 谢谢大家 谢谢高手们

Public Class Frm

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Btn.Visible = True
BtnCheat.Visible = True
Txt1.Visible = True
Txt2.Visible = True
Txt3.Visible = True
End Sub

Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click
PB.Visible = False
Randomize()
Txt1.Text = CShort(Rnd() * 10)
Txt2.Text = CShort(Rnd() * 10)
Txt3.Text = CShort(Rnd() * 10)
If CShort(Txt1.Text) + CShort(Txt2.Text) + CShort(Txt3.Text) = 21 Then
PB.Visible = True
End If
End Sub

Private Sub BtnCheat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCheat.Click
Randomize()
Txt1.Text = CShort(Rnd() * 10)
Txt