數(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.