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

核心提示： End Sub Private Sub ChinaRingCkBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox2.CheckedChanged ChinaR

　  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