Asp.net 实现“九连环”小游戏

ublic Class ChinaRing1
  
  Inherits System.Web.UI.Page
  
  #Region " Web 窗体设计器生成的代码 "
  
  '该调用是 Web 窗体设计器所必需的。
  
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  
  End Sub
  
  Protected WithEvents ChinaRingCkBox1 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox2 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox3 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox4 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox5 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox6 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox7 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox8 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingCkBox9 As System.Web.UI.WebControls.CheckBox
  
  Protected WithEvents ChinaRingLb1 As System.Web.UI.WebControls.Label
  
  Protected ChinaRingCkBox(8) As System.Web.UI.WebControls.CheckBox
  
  '注意: 以下占位符声明是 Web 窗体设计器所必需的。
  
  '不要删除或移动它。
  
  Private designerPlaceholderDeclaration As System.Object
  
  Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  
  'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
  
  '不要使用代码编辑器修改它。
  
  InitializeComponent()
  
  End Sub
  
  #End Region
  
  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
  ChinaRingCkBox(0) = ChinaRingCkBox1
  
  ChinaRingCkBox(1) = ChinaRingCkBox2
  
  ChinaRingCkBox(2) = ChinaRingCkBox3
  
  ChinaRingCkBox(3) = ChinaRingCkBox4
  
  ChinaRingCkBox(4) = ChinaRingCkBox5
  
  ChinaRingCkBox(5) = ChinaRingCkBox6
  
  ChinaRingCkBox(6) = ChinaRingCkBox7
  
  ChinaRingCkBox(7) = ChinaRingCkBox8
  
  ChinaRingCkBox(8) = ChinaRingCkBox9
  
  End Sub
  
  Private Sub ChinaRingCkBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox1.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(1, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox2.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(2, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox3.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(3, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox4.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(4, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox5.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(5, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox6.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(6, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox7.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(7, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox8.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(8, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox9.CheckedChanged
  
  ChinaRingCkBox_CheckedChanged(9, sender, e)
  
  End Sub
  
  Private Sub ChinaRingCkBox_CheckedChanged(ByVal index As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs)
  
  Dim i As Integer
  
  i = 0
  
  Dim ChinaRingCk As Boolean = False
  
  If index = 1 Then
  
  ChinaRingCk = True
  
  Else
  
  If ChinaRingCkBox(index - 2).Checked Then
  
  ChinaRingCk = True
  
  End If
  
  Do While i < index - 2
  
  If ChinaRingCkBox(i).Checked Then
  
  ChinaRingCk = False
  
  End If
  
  i = i + 1
  
  Loop
  
  End If
  
  If Not ChinaRingCk Then
  
  ChinaRingCkBox(index - 1).Checked = Not ChinaRingCkBox(index - 1).Checked
  
  '可以在这里加一个提示,根据条件提示不能套入,或不能拿出该环。
  
  End If
  
  End Sub
  
  End Class
阅读更多
个人分类: asp.net
想对作者说点什么? 我来说一句

asp.net实现九连环小游戏

2009年05月06日 1011B 下载

asp.net 实现九连环小游戏

zgqtxwd zgqtxwd

2008-04-27 19:15:00

阅读数:136

C语言九连环解法源代码

2013年04月13日 507B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭