二分插入法排序
浙江省柯桥中学 吴建强
Private Sub Command1_Click()Dim low As Integer, high As Integer, m As Integer, key As Integerkey = Val(Text1.Text)low = 1: high = 10Do While low <= high m = (low + high) \ 2 If key < a(m) Then  high = m - 1 Else  low = m + 1 End IfLoopPrint low, high, mEnd Sub
key=10
low=4
key=13
high=3
m=4
low=5
high=4
m=4
key分别取10、13时，low、high和m的值分别是多少？
若要插入key使序列仍旧保持升序，则插入位置是多少？
插入位置low或high+1
For i = 2 To 10 If a(i) < a(i - 1) Then  ________________  low = 1: high = ________  Do While low ...