对一组无序数据,①设计直接插入排序算法；②再对得到的有序序列进行折 半查找.

对一组无序数据,①设计直接插入排序算法；②再对得到的有序序列进行折 半查找.

Sub Insertion(MyArray(),ByVal nOrder As Integer)Dim IndexDim TEMPDim NextElementNextElement = LBound(MyArray) + 1While (NextElement LBound(MyArray) ThenIf nOrder = ASCENDING_ORDER ThenIf MyArray(Index) TEMP = MyArray(Index)MyArray(Index) = MyArray(Index - 1)MyArray(Index - 1) = TEMPIndex = Index - 1ElseExit DoEnd IfElseIf nOrder = DESCENDING_ORDER ThenIf MyArray(Index) >= MyArray(Index - 1) ThenTEMP = MyArray(Index)MyArray(Index) = MyArray(Index - 1)MyArray(Index - 1) = TEMPIndex = Index - 1ElseExit DoEnd IfEnd IfElseExit DoEnd IfgIterations = gIterations + 1LoopNextElement = NextElement + 1gIterations = gIterations + 1WendEnd SubSub 查找(ByVal ai As Integer)Dim i As IntegerDim b As Booleani = sumax / 2b = FalseDo While Not bIf ai If ai > a(i) Then i = i + (i / 2)If ai = a(i) Then b = TrueLoopIf b Then MsgBox okEnd Sub

这个解释是对的