'进行插入法排序
   For i = 2 To 10
      For j = 1 To i - 1
         If a(j) >= a(i) Then
            k = a(i)
            For l = i To j + 1 Step -1
               a(l) = a(l - 1)
            Next l
            a(j) = k
         End If
      Next j
   Next i