none
array.sort RRS feed

  • 问题

  •  

    如果資料有0

    好像排不進去

    Thanks

     

    程式碼------------------------------------------------------------

    Public Class Form1
        Dim a() As Integer = {1, 0, 2, 6, 10, 30, 7}
        Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
            Array.Sort(a)
            For i = 1 To UBound(a)
                Debug.Print("第 " & i & " 個元素值= " & a(i))
            Next
        End Sub
    End Class

     

    即時運算視窗的結果------------------------------------------

    第 1 個元素值= 1
    第 2 個元素值= 2
    第 3 個元素值= 6
    第 4 個元素值= 7
    第 5 個元素值= 10
    第 6 個元素值= 30

    2008年12月3日 23:30

答案

全部回复