數(shù)組a中有50個正整數(shù)，已按升序排列．在文本框Text1中輸入一個正整數(shù)m,尋找數(shù)組a中是否有一對數(shù)的和等于給定的數(shù)m.若存在和為m的數(shù)對，輸出該數(shù)對包含的兩個整數(shù)，小的在前，大的在后．若有多個數(shù)對滿足條件，則輸出最先找到的數(shù)對．若找不到符合要求的數(shù)對，則輸出“沒有符合條件的數(shù)對”．小吳為此編寫了VB程序，代碼如下，但加框處代碼有錯，請改正．
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“沒有符合條件的數(shù)對“
End Sub.