某自助無人圖書館實現(xiàn)機器人從書架上取書還書，以下程序模擬還書過程中機器人查找歸還書籍插入位置：書架上已有書籍已按書名拼音簡稱升序排列，當用戶還書時，機器人掃描書籍條碼獲得書名簡稱（該過程模擬程序中由用戶輸入文本框text1），查找書架上現(xiàn)有書籍，若找到與歸還書籍相同的書，就把歸還的書插入該位置，若書架上沒有歸還的書籍，就把歸還的書插入合適的位置使書架上的書名簡稱還是升序排列。

（1）按示例圖中列表框中已有圖書，若要再還一本“bc”，該書蔣放入第

2

2

個位置
（2）完成代碼填空
Dim book（1 To 10）As String'存放書名簡稱，窗體加載時隨機生存保存
Private Sub Command1_Click

（　　）

（　　）

Dim key As String
key=Text1．Text
i=1：j=10
Do While i＜=j
m=（i+j）\2
If book（m）=key Then exit do
If

book（m）＞key

book（m）＞key

Then j=m-1 Else i=m+1
Loop
If

i＜=j

i＜=j

Then
Label3．Caption=″放入書架第″+Str（m）+″個位置“
Else
Label3．Caption=″放入書架第″+

str（i）或str（j+1）

str（i）或str（j+1）

+″個位置″
End If
End Sub