阅读背景:

排序字符串的意外返回()

来源:互联网 
  Private Sub bttSort_Click(sender As Object, e As EventArgs) Handles bttSort.Click
        DataView1.Rows.Clear()
        Dim i As Integer
        Dim j As Integer
        Dim temp As Integer
        For i = 0 To list1.Length - 1
            For j = (i + 1) To list1.Length - 1
                If list1(i) > list1(j) Then
                    temp = list1(i)
                    list1(i) = list1(j)
                    list1(j) = temp
                End If
            Next
        Next
        DataView1.Rows.Clear()
        For m As Integer = 0 To list1.Length - 1
            DataView1.Rows.Add(list1(m))
        Next
    End Sub
  Private Sub bttSort_Click(sender As Object, e



你的当前访问异常,请进行认证后继续阅读剩余内容。

分享到: