數(shù)組a中存儲的是一組正整數(shù)，特征是：①以三個數(shù)為一組的話，每組中任意一個數(shù)都比前面一組中的任意一個數(shù)要大；②每組中三個數(shù)依次遞減；③數(shù)組中數(shù)的總個數(shù)為3的倍數(shù)。依據(jù)對分查找思想，設(shè)計(jì)一個在數(shù)組a中查找數(shù)據(jù)key的程序。實(shí)現(xiàn)該功能的VB程序如下，但加框處代碼有錯，請改正。

Private Sub Command1_Click （　?。?br />Const n=15
Dim a（1 To n） As Integer,search As Integer,key As Integer
Dim i As Integer,j As Integer,m As Integer
'讀取一組正整數(shù)，按上述規(guī)則存入數(shù)組a中，代碼略。
key=Val（Text1．Text）
i=1：j=n：search=0
Do While i＜=j
m=（i+j）\2
If m Mod 3＜＞0 Then m='（1）把m調(diào)整到三個一組的最后一個數(shù)的位置
If key=a（m） Then
search=m：Exit Do
ElseIf key＜a（m） Then
j=m-3
ElseIf  Then'（2）
i=m+1
ElseIf key=a（m-2）Then
search=m-2：Exit Do
ElseIf key=a（m-1）Then
search=m-1：Exit Do
Else
search=0：Exit Do
End If
Loop
If search＜＞0 Then
Text2．Text=Str（search）
Else
Text2．Text=“找不到“
End IfEnd Sub