一个公司要怎么管理:谁能提供一个插入排序法的示例呀?

来源:百度文库 编辑:神马品牌网 时间:2024/04/27 17:48:22
不要其他解释,要直接打进VB里能运行的

设需要排序的数组为Nums,数据类型全部是整形

Dim X%
Dim I%, J%
For I = 2 To UBound(Nums)
X = Nums(I)
J = I - 1
Do While I > 0 And X < Nums(J)
Nums(J + 1) = Nums(J)
J = J - 1
Loop
Nums(J + 1) = X
Next I