菜鸟提问,使用VB直接插入排序法将数组A中的10个整数进行排序

Question

使用VB直接插入排序法将数组A中的10个整数进行排序
  大侠给个答案代码 谢谢了 呵呵

Answer 1

http://download.csdn.net/source/1627064

Answer 2

百度或Google上面没有啊 

Answer 3

试一下这个：
Sub SortArr()    Dim A&(9)
    Dim i&, j&, k&, lTemp&
    
    Randomize
    ' 随机赋初值
    For i = 0 To 9
        A(i) = 6000 * Rnd() + 123
    Next
'    Debug.Print "排序前："
'    For i = 0 To 9
'        Debug.Print i, A(i)
'    Next
    ' 直接插入法
    ' 升序排序
    For i = 1 To 9
        lTemp = A(i)
        For j = 0 To i - 1
            If (lTemp < A(j)) Then Exit For
        Next
        For k = i To j + 1 Step -1
            A(k) = A(k - 1)
        Next
        A(j) = lTemp
    Next
'    Debug.Print "排序后："
'    For i = 0 To 9
'        Debug.Print i, A(i)
'    NextEnd Sub

Answer 4

谢谢 了哈 Chen8013  呵呵