7.小明編寫一個小型電子英漢電子字典。下列程序中數組a用來存儲英文單詞,數組b用來存儲中文意思,第i個單詞保存在a(i)中,相對應的中文翻譯保存在b(i)中。程序界面如圖所示,左邊列表框列出所有單詞和中文翻譯,在右邊文本框Text1中輸入一個單詞,單擊“翻譯”按鈕(Command1),程序就進行查找,如果找到就在標簽Label1中輸出中文翻譯,否則就輸出“沒有找到該單詞!”。 實現上述功能的VB代碼如下,請完成下面代碼。 Const n=1000'假定字典中總共有1000個單詞 Dim a(1To n) As String Dim b(1To n) As String Private Sub Form_Load ( ) '此過程用于將單詞和中文翻譯存儲在數組a和數組b中,對數組升序進行排序,代碼略 End Sub Function search(key As String) As Integer Dim i as Integer,j as Integer i=1:j=n Do While i<=j m=(i+j)\2 If
Then search=m Exit Function ElseIf key<a(m) Then j=m-1 Else
End If Loop search=0'代表沒查找到 End Function Private Sub Command1_Click ( ) Dim key As String,k As Integer key=Text1.Text k=
If k<>0 Then Label1.Caption=b(k) Else Label1.Caption=“沒有找到該單詞!“ End If End Sub。