数组a中有50个正整数，已按升序排列．在文本框Text1中输入一个正整数m,寻找数组a中是否有一对数的和等于给定的数m.若存在和为m的数对，输出该数对包含的两个整数，小的在前，大的在后．若有多个数对满足条件，则输出最先找到的数对．若找不到符合要求的数对，则输出“没有符合条件的数对”．小吴为此编写了VB程序，代码如下，但加框处代码有错，请改正．
Dim a（1 To 50）As Integer
Const n=50
Private Sub Command1_Click（　　）
  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“没有符合条件的数对“
End Sub.