數(shù)組a中有50個(gè)正整數(shù)，已按升序排列．在文本框Text1中輸入一個(gè)正整數(shù)m,尋找數(shù)組a中是否有一對(duì)數(shù)的和等于給定的數(shù)m.若存在和為m的數(shù)對(duì)，輸出該數(shù)對(duì)包含的兩個(gè)整數(shù)，小的在前，大的在后．若有多個(gè)數(shù)對(duì)滿足條件，則輸出最先找到的數(shù)對(duì)．若找不到符合要求的數(shù)對(duì)，則輸出“沒(méi)有符合條件的數(shù)對(duì)”．小吳為此編寫了VB程序，代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim a（1 To 50）As Integer
Const n=50
Private Sub Command1_Click（　?。?br />  Dim m As Integer,left As Integer,right As Interger,mid As Integer
  Dim flag As Boolean
  flag=False：m=Val（Text1．Text）
  For i=1 To n-1
（1）
     right=n
       Do While （2）
           mid=（left+right）\2
           If a（i）+a（mid）＜m Then
           left=mid+1
         ElseIf a（i）+a（mid）＞m Then
            right=mid-1
           Else
              List1．AddItem Str（a（i）） &““&Str（a（mid））
             flag=True
          End If
        Loop
  Next i
  If Not flag Then List1．AddItem“沒(méi)有符合條件的數(shù)對(duì)“
End Sub.