你是我心中的天使啊:谁能提供一个插入排序法的示例呀?

来源:百度文库 编辑:高校问答 时间:2024/05/08 04:54:40
不要其他解释,要直接打进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