none
下面这段代码错在哪里呀? RRS feed

  • 问题

  • 复选列表框里面的数据格式是:00 00 00 00 00 00 00,如果有两项六个数相同的话就删除其中一项,我写了下面的代码,可是运行时出错,请问我应该怎么修改呀?谢谢!

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim x
            Dim y
            Dim x1 As Integer
            Dim y1 As Integer
            Dim xy As Integer
            For i1 As Integer = CheckedListBox1.Items.Count - 1 To 1 Step -1
                For i2 As Integer = i1 - 1 To 0 Step -1
                    x = Split(CheckedListBox1.Items(i1), " ")
                    y = Split(CheckedListBox1.Items(i2), " ")
                    For x1 = 0 To UBound(x())
                        For y1 = 0 To UBound(y())
                            xy = 0
                            If Val(x(x1)) = Val(y(y1)) Then xy = xy + 1
                            If xy = 6 Then CheckedListBox1.Items.Remove(i1)
                        Next y1
                    Next x1
                Next i2
            next i1
        End Sub

    2008年10月19日 0:40

答案

  •  只爱陌生人 写:
    但是我改了之后运行的时候列表框里面的项目没有任何变化,这是怎么回事呀?

     

     

    跟踪代码,看是不是像你希望的那么走的

    2008年10月21日 0:51
    版主

全部回复